Leonardo Etcheverry legumbre

## *scratch*

(message "testing gist.el")

## *scratch*

(message "testing gist.el again")

## .fetchmailrc
set daemon 310

poll pop.gmail.com with proto POP3
      user 'user@domain' there with password 'XXXXXXX' is leo here options keep nofetchall ssl sslcertck sslcertpath '/home/leo/.certs/'

mda "/usr/bin/procmail -d %T"

## *scratch*
# forwarding exit status

(exit 127) | echo foo; (exit ${PIPESTATUS[0]}); echo $?

## *scratch*

# set mac volume
sudo osascript -e "set Volume 10"

## gist:1140438
;; simplifying units with calc, ie 1.23e-10 s -> 123 ps
'1.23e-10s RET     ;; algebraic input
s u                ;; calc-simplify-units


## gist:1140686
;; 1) te bajas una lista de 15 primos impares de aca
;;  http://www.research.att.com/~njas/sequences/table?a=65091&fmt=4


;; 2) abris el emacs, (que de todas maneras deberias tenerlo abierto) y pones
(setq list-of-odd-primes '( 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277))

(setq numerito
      (let ((first-fifteen (subseq (coerce list-of-odd-primes 'vector) 0 15)))
        (reduce 'math-mul first-fifteen)))

## gist:1148156
;; awful hack, get the common suffix from two strings using regexp-quote

(let* ((a "foo/bar")
       (b "baz/bar")
       (ro (regexp-opt (list a b))))
  (string-match "\\\\)\\(.*?\\)\\\\)$" ro)
  (match-string 1 ro))
;; "/bar"

;; what trickery be this?!

## *scratch*
# USB Blaster setup for Centos5

# create /etc/udev/rules.d/51-usbblaster.rules
BUS=="usb", SYSFS{idVendor}=="09fb", SYSFS{idProduct}=="6001",MODE="0666", PROGRAM="/bin/sh -c 'K=%k; K=$${K#usbdev}; printf /proc/bus/usb/%%03i/%%03i $${K%%%%.*} $${K#*.}'", RUN+="/bin/chmod 0666 %c"

touch ~/.jtag.conf

## *scratch*

;; read a key sequence and echo it in kbd-friendly format
(message (edmacro-format-keys (read-key-sequence "key: ") nil))
	set daemon 310

	poll pop.gmail.com with proto POP3
	user 'user@domain' there with password 'XXXXXXX' is leo here options keep nofetchall ssl sslcertck sslcertpath '/home/leo/.certs/'

	mda "/usr/bin/procmail -d %T"
	# forwarding exit status

	(exit 127) \| echo foo; (exit ${PIPESTATUS[0]}); echo $?
	;; simplifying units with calc, ie 1.23e-10 s -> 123 ps
	'1.23e-10s RET ;; algebraic input
	s u ;; calc-simplify-units
	;; 1) te bajas una lista de 15 primos impares de aca
	;; http://www.research.att.com/~njas/sequences/table?a=65091&fmt=4


	;; 2) abris el emacs, (que de todas maneras deberias tenerlo abierto) y pones
	(setq list-of-odd-primes '( 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277))

	(setq numerito
	(let ((first-fifteen (subseq (coerce list-of-odd-primes 'vector) 0 15)))
	(reduce 'math-mul first-fifteen)))
	;; awful hack, get the common suffix from two strings using regexp-quote

	(let* ((a "foo/bar")
	(b "baz/bar")
	(ro (regexp-opt (list a b))))
	(string-match "\\\\)\\(.*?\\)\\\\)$" ro)
	(match-string 1 ro))
	;; "/bar"

	;; what trickery be this?!
	# USB Blaster setup for Centos5

	# create /etc/udev/rules.d/51-usbblaster.rules
	BUS=="usb", SYSFS{idVendor}=="09fb", SYSFS{idProduct}=="6001",MODE="0666", PROGRAM="/bin/sh -c 'K=%k; K=$${K#usbdev}; printf /proc/bus/usb/%%03i/%%03i $${K%%%%.} $${K#.}'", RUN+="/bin/chmod 0666 %c"

	touch ~/.jtag.conf

	;; read a key sequence and echo it in kbd-friendly format
	(message (edmacro-format-keys (read-key-sequence "key: ") nil))