| #!/usr/bin/sbcl --script | |
| ; Also see http://pleasegodno.wordpress.com/common-lisp-tutorials/common-lisp-gui-programming-with-commonqt/introduction-to-commonqt/ | |
| ; or see http://kvardek-du.kerno.org/2011/12/setting-up-commonqt-on-osx.html if you're still using Mac OS | |
| (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" | |
| (user-homedir-pathname)))) | |
| (when (probe-file quicklisp-init) | |
| (load quicklisp-init))) |
| #!/usr/bin/perl | |
| # Emacs starter for Emacs mac port | |
| # Thanks to Aquamacs Project and David Reitter | |
| my $args = ""; | |
| my $tmpfiles = ""; | |
| for my $f (@ARGV) { |
| ;; This function is quoted from this page. Thanks to Tomohiro Matsuyama. | |
| ;; http://dev.ariel-networks.com/Members/matsuyama/pretty-lambda-in-emacs/ | |
| (defun set-pretty-patterns (patterns) | |
| (loop for (glyph . pairs) in patterns do | |
| (loop for (regexp . major-modes) in pairs do | |
| (loop for major-mode in major-modes do | |
| (let ((major-mode (intern (concat (symbol-name major-mode) "-mode"))) | |
| (n (if (string-match "\\\\([^?]" regexp) 1 0))) | |
| (font-lock-add-keywords major-mode | |
| `((,regexp (0 (prog1 () |
| (defvar paren-face 'paren-face) | |
| (make-face 'paren-face) | |
| (set-face-foreground 'paren-face "#666666") | |
| (dolist (mode '(lisp-mode | |
| emacs-lisp-mode | |
| scheme-mode)) | |
| (font-lock-add-keywords mode | |
| '(("(\\|)" . paren-face)))) |
| (defun base64-to-base64url (str) | |
| (setq str (replace-regexp-in-string "=+$" "" str)) | |
| (setq str (replace-regexp-in-string "+" "-" str)) | |
| (setq str (replace-regexp-in-string "/" "_" str))) | |
| (defun base64url-to-base64 (str) | |
| (setq str (replace-regexp-in-string "-" "+" str)) | |
| (setq str (replace-regexp-in-string "_" "/" str)) | |
| (let ((mod (% (length str) 4))) | |
| (cond |
| #!/usr/bin/env ruby | |
| # | |
| # Converts VCard to org-mode/org-contacts files | |
| # | |
| # 2012 by Simon Thum | |
| # | |
| # Requires the vpim gem, which in turn needs patches to run (github xing/vpim) | |
| # | |
| # To the extent possible under law, the author(s) have dedicated all | |
| # copyright and related and neighboring rights to this software to the |
| ;;;; regenerate.lisp - script for regenerating [redacted] static HTML from template files. | |
| (ql:quickload "cl-emb") | |
| (ql:quickload "cl-fad") | |
| (ql:quickload "cl-ppcre") | |
| (defparameter *configuration* '() "plist containing config parameters passed to EMB templates.") | |
| (defparameter *essays* '() "plist containing essay descriptors generated by `defessay'.") | |
| (defconstant +default-properties+ '(:title nil :url nil :orig-title nil :orig-url nil :date nil :orig-date nil :alt-translations nil :translators nil :editors nil :disabled nil :additional-html nil :part-of-hnp nil :description "")) |
| (defpackage :rb-tree | |
| (:use :cl :optima) | |
| (:export #:rb-empty | |
| #:rb-member | |
| #:rb-insert)) | |
| (in-package :rb-tree) | |
| (defstruct (leaf (:constructor leaf))) | |
| (defstruct (node (:constructor node (color left label right))) | |
| color left label right) |
| (ql:quickload "cl-ppcre") | |
| (ql:quickload "anaphora") | |
| (defpackage :ini-parser | |
| (:use :common-lisp :anaphora) | |
| (:export :read-config-from-file)) | |
| (in-package :ini-parser) | |
| (defparameter +empty-line+ (format nil "~%")) |
rsync (Everyone seems to like -z, but it is much slower for me)
