This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- in src/common | |
-- python -m SimpleHTTPServer 10000 . | |
function dale() | |
require("socket.http") | |
host='localhost' | |
port='10000' | |
file='localuser.lua' | |
url='http://' .. host .. ':' .. port .. '/' .. file | |
str, h = socket.http.request(url) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defmacro lif (COND THEN &rest ELSE) | |
"if con logging" | |
`(if ,COND | |
(progn | |
(message (format "(then) %s is true" (prin1-to-string (quote ,COND)))) | |
,THEN) | |
(message (format "(else): %s is false" (prin1-to-string (quote ,COND)))) | |
,@ELSE)) | |
(lif (< 8 9) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defmacro lif (COND THEN &rest ELSE) | |
`(if ,COND | |
(progn | |
(message (format "(then) %s is true" (prin1-to-string (quote ,COND)))) | |
,THEN) | |
(message (format "(else): %s is false" (prin1-to-string (quote ,COND)))) | |
,@ELSE)) | |
(lif (< 8 9) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/* | |
mobile twitter mode | |
- adds rel="next" to the "Load older tweets" button | |
*/ | |
require ("content-buffer.js"); | |
define_page_mode("mobile_twitter_mode", | |
build_url_regexp($domain = "mobile.twitter", | |
$allow_www = true, |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
notany is a compiled Lisp function in `cl-extra.el'. | |
(notany PREDICATE SEQ...) | |
Return true if PREDICATE is false of every element of SEQ or SEQs. | |
[back] |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
register_user_stylesheet( | |
"data:text/css," + | |
escape ( | |
"@-moz-document url-prefix(http://news.ycombinator.com/) {" + | |
".current {" + | |
" -moz-animation: 2s flash;" + | |
" background-color: #FCEDCC;" + | |
"}" + | |
"@-moz-keyframes flash { " + | |
" 0% { background-color: inherit; }" + |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
https://github.com/legumbre/z80-stub/compare/341e5e1b89...c4fc82aa3a | |
https://github.com/legumbre/z80-stub/compare/341e5e1b89...c4fc82aa3a.patch |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
! this did it, cmd is now working as Meta in Conkeror *and* Emacs | |
clear mod1 | |
clear mod2 | |
add mod4 = Meta_L |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(setq emacs-lisp-mode-hook nil) ;; remove this once you're sure it works | |
(add-hook 'emacs-lisp-mode-hook 'enable-paredit-mode) | |
(defun faster-cursor-movement () | |
(progn | |
(define-key paredit-mode-map (kbd "C-M-p") (lambda () (interactive) (previous-line 5))) | |
(define-key paredit-mode-map (kbd "C-M-n") (lambda () (interactive) (next-line 5))))) | |
(eval-after-load 'paredit '(faster-cursor-movement)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# find and lack of -printf in BSD, use stat -f as a workaround | |
find . -name '*.mp3' -print0 | xargs -0 stat -f "%m%t%Sm %N" | grep Apr | cut -d" " -f 5 | xargs -I{} cp {} /tmp/ |