.data/menu/.gitignore .data/menu/commands .data/menu/menu.sh .data/menu/menus/applications .data/menu/menus/games .data/menu/menus/internet .data/menu/menus/main .data/menu/menus/media .data/menu/menus/office .data/menu/menus/programming .data/menu/menus/system .data/ucron/.gitignore .data/ucron/halfhour/signature.sh code/scheme/brainfuck.scm @@ -47,7 +47,7 @@ URxvt*scrollBar: false URxvt*saveLines: 1000 URxvt*transparent: true URxvt*inheritPixmap: true -URxvt*shading: 30 +URxvt*shading: 0 URxvt*tintColor: white URxvt*internalBorder: 0 URxvt.imLocale: en.GB.UTF-8 .config/Xdefaults @@ -71,7 +71,7 @@ (define-key *top-map* (kbd "M-Print") "exec urxvtc -e screenshot") (define-key *top-map* (kbd "Print") "exec import -window root ~/screenshot.png") (define-key *top-map* (kbd "M-F9") "loadrc") -(define-key *root-map* (kbd "m") "exec ~/menu/menu.sh") +(define-key *root-map* (kbd "m") "exec ~/.data/menu/menu.sh") (define-key *root-map* (kbd "M") "mode-line") (define-key *top-map* (kbd "M-space") "exec emelfm2") (define-key *top-map* (kbd "C-M-space") "exec kildclient") .config/stumpwmrc @@ -62,3 +62,7 @@ <Multi_key> <C> <C> : "ℂ" <Multi_key> <asciicircum> <minus> : "⁻" <Multi_key> <s> <minus> : "−" +<Multi_key> <v> <bracketleft> : "⌈" +<Multi_key> <v> <bracketright> : "⌉" +<Multi_key> <asciicircum> <bracketleft> : "⌊" +<Multi_key> <asciicircum> <bracketright> : "⌋" .config/xorg/XCompose.d/maths-symbols @@ -129,3 +129,4 @@ alias xreload='xrdb -load ~/.config/Xdefaults' alias zen='fortune /usr/share/fortune/zen' alias rfcdate='date --rfc-3339="seconds"' alias screenx='screen -r `screen -ls | grep Detached | sed "s/(.*//"`' +alias myman='myman -z big -i' \ No newline at end of file .config/zsh/aliases @@ -77,7 +77,7 @@ function gith() function gituz() { - pushd ~/uzbl + pushd ~/projects/uzbl commit $1 git push uzbl experimental popd @@ -93,7 +93,7 @@ function gituw() function gitwii() { - pushd ~/wiipen + pushd ~/projects/wiipen commit $1 git push wiipen master popd .config/zsh/functions @@ -9,7 +9,7 @@ !cron/ !docs/ !.config/ -!menu +!.data/ # GIT stuff !.gitignore .gitignore @@ -18,13 +18,9 @@ function umount () function amount () { - mount MHD false - mount M2HD false - mount ARCHOS5 false - - mount MHD - mount M2HD - mount ARCHOS5 + /bin/mount | grep MHD || mount MHD + /bin/mount | grep M2HD || mount M2HD + /bin/mount | grep ARCHOS5 || mount ARCHOS5 } function wait-for-daemon () bin/bcompa @@ -6,14 +6,14 @@ while(True): now = datetime.datetime.now() # Run minutely commands. - os.system("for script in ~/cron/minute/*; do $script; done") + os.system("for script in ~/.data/ucron/minute/*; do $script; done") if now.minute == 30: # Run bihourly commands. - os.system("for script in ~/cron/halfhour/*; do $script; done") + os.system("for script in ~/.data/ucron/halfhour/*; do $script; done") elif now.minute == 0: # Run bihourly and hourly commands. - os.system("for script in ~/cron/halfhour/*; do $script; done") - os.system("for script in ~/cron/hour/*; do $script; done") + os.system("for script in ~/.data/ucron/halfhour/*; do $script; done") + os.system("for script in ~/.data/ucron/hour/*; do $script; done") time.sleep(60) bin/ucron @@ -25,6 +25,9 @@ (define (! n) (prod 1 n)) +(define (? n) + (sum 0 n)) + (define (gcd a b) (if (= b 0) a (gcd b (remainder a b)))) @@ -46,38 +49,38 @@ (define (isprime n) (define (iter cur) - (cond ((= (remainder n cur) 0) #f) - ((<= cur (sqrt n)) (iter (+ cur 1))) - (else #t))) + (cond ((= (remainder n cur) 0) #f) + ((<= cur (sqrt n)) (iter (+ cur 1))) + (else #t))) (cond ((= n 2) #t) - ((< n 2) #f) - (else (iter 2)))) + ((< n 2) #f) + (else (iter 2)))) ;;;;;;;;;; Numerical Accumulation Functions (define (accumulator from to increment counter function) (define (iter current total) - (if (= current to) total - (let ((newcurrent (increment current))) - (iter newcurrent - (counter total (function newcurrent)))))) + (if (= current to) total + (let ((newcurrent (increment current))) + (iter newcurrent + (counter total (function newcurrent)))))) (if (or (= from to) (< to from)) (function from) - (iter from (function from)))) + (iter from (function from)))) (define (sum from to) (accumulator from to inc - (lambda (x y) (+ x y)) - identity)) + (lambda (x y) (+ x y)) + identity)) (define (prod from to) (accumulator from to inc - (lambda (x y) (let ((z (* x y))) - (if (= z 0) 1 z))) - identity)) + (lambda (x y) (let ((z (* x y))) + (if (= z 0) 1 z))) + identity)) (define (exp-func x r) (+ 1 (accumulator 0 r inc - (lambda (a b) (+ a (if (= b 0) 0 (/ (expt x b) (! b))))) - identity))) + (lambda (a b) (+ a (if (= b 0) 0 (/ (expt x b) (! b))))) + identity))) ;;;;;;;;;; Exponention (define (exp x) code/scheme/generic.scm cron/.gitignore cron/halfhour/signature.sh menu/.gitignore menu/commands menu/menu.sh menu/menus/applications menu/menus/games menu/menus/internet menu/menus/main menu/menus/media menu/menus/office menu/menus/programming menu/menus/system 9a51c8a0c8674b21c247a5c02cf7fa2dc63f577d Barrucadu mike@barrucadu.co.uk http://github.com/Barrucadu/home/commit/1cc1bce63a0192a8afcd6a44371e64fab39a2320 1cc1bce63a0192a8afcd6a44371e64fab39a2320 2009-09-30T13:44:07-07:00 2009-09-30T13:44:07-07:00 Edited config files a little (shading, shortcuts, etc). Moved a load of files around (menu > .data/menu, cron > .data/ucron). Started work on a bf interpreter in Scheme. bce9707ceb8e866e9d31adc02c8f401b3b146c76 Barrucadu mike@barrucadu.co.uk