Clojure Shell Script

Feb 21st, 2012

#!/bin/sh export CLOJURE_EXT=$HOME/.clojure export CLOJURE_OPTS="-Xmx1g -server" LIBS=$(ls -1 $CLOJURE_EXT/* 2> /dev/null) export CLASSPATH=$CLASSPATH:"$(echo "$LIBS" | tr \\n :)" JAVA=${CLOJURE_JAVA:-java} OPTS=${CLOJURE_OPTS:-} MAIN=${CLOJURE_MAIN:-clojure.main} #exec $JAVA $OPTS $MAIN "$@" #exec $JAVA $OPTS jline.ConsoleRunner $MAIN "$@" breakchars="(){}[],^%$#@\"\";:''|\\" if [ $# -eq 0 ]; then exec rlwrap --remember -c -b $breakchars \ -f $HOME/.clj_completions \ --history-filename=$HOME/.clj_history --histsize=1000000 \ $JAVA $OPTS $MAIN -i $HOME/.clojure.clj --repl else exec $JAVA $OPTS $MAIN $1 "$@" fi

所有jar文件都放到~/.clojure, 使用rlwrap的Tab completions。

My Favorite Clojure Repository

Feb 16th, 2012

Shell:~/opt/clojure >: ./checkout.sh | column -t clj-http : https://github.com/dakrone/clj-http clojure : https://github.com/clojure/clojure clojure-contrib : https://github.com/clojure/clojure-contrib clojure_for_gedit : https://github.com/mitko/clojure_for_gedit clojure-mode : https://github.com/technomancy/clojure-mode clojurescript : https://github.com/clojure/clojurescript compojure : https://github.com/weavejester/compojure Conjure : https://github.com/macourtney/Conjure data.json : https://github.com/clojure/data.json enlive : https://github.com/cgrand/enlive IClojure : https://github.com/cosmin/IClojure incanter : https://github.com/liebke/incanter java.jdbc : https://github.com/clojure/java.jdbc jline2 : https://github.com/cosmin/jline2 lazypress : https://github.com/sunng87/lazypress lein-iclojure : https://github.com/cosmin/lein-iclojure leiningen : https://github.com/technomancy/leiningen lein-noir : https://github.com/ibdknox/lein-noir lein-ring : https://github.com/weavejester/lein-ring noir : https://github.com/ibdknox/noir one : https://github.com/brentonashworth/one rageviewer : https://github.com/sunng87/rageviewer reply : https://github.com/trptcolin/reply ring : https://github.com/mmcgrana/ring slacker : https://github.com/sunng87/slacker swank-clojure : https://github.com/technomancy/swank-clojure tools.cli : https://github.com/clojure/tools.cli

Setup Exim on Debian

Dec 21st, 2011

我的debian版本：6.0.3，使用系统自带的exim，如果你的系统还没有安装exim，先装这几个包：

Shell:~ >: aptitude search exim | grep '^i'
i   exim4                           - metapackage to ease Exim MTA (v4) installa
i   exim4-base                      - support files for all Exim MTA (v4) packag
i   exim4-config                    - configuration for the Exim MTA (v4)
i   exim4-daemon-light              - lightweight Exim MTA (v4) daemon

设置你的/etc/hosts, /etc/resolv.conf

Shell:~ >: cat /etc/resolv.conf
nameserver 127.0.0.1
nameserver 8.8.8.8
nameserver 8.8.4.4

可以装一下dnsmasq，避开那些讨厌的dns问题

Shell:~ >: aptitude search dnsmasq | grep '^i'
i   dnsmasq                         - A small caching DNS proxy and DHCP/TFTP se
i A dnsmasq-base                    - A small caching DNS proxy and DHCP/TFTP se

开始配置

假设我的域名为：number23.no.de，可以先写在/etc/hosts里，

My Emacs Init File

Dec 21st, 2011

我的 .emacs 文件，还见得人吧。

(set-language-environment 'Chinese-GB) (set-keyboard-coding-system 'utf-8) (set-clipboard-coding-system 'utf-8) (set-terminal-coding-system 'utf-8) (set-buffer-file-coding-system 'utf-8) (set-default-coding-systems 'utf-8) (set-selection-coding-system 'utf-8) (modify-coding-system-alist 'process "*" 'utf-8) (setq default-process-coding-system '(utf-8 . utf-8)) (setq-default pathname-coding-system 'utf-8) (set-file-name-coding-system 'utf-8) (setq ansi-color-for-comint-mode t) (global-set-key (kbd "C-SPC") 'nil) (setq default-directory "~/") (fset 'yes-or-no-p 'y-or-n-p) (setq visible-bell t) (setq inhibit-startup-message t) (setq gnus-inhibit-startup-message t) (setq backup-directory-alist '(("." . "~/backups"))) (setq version-control t) (setq kept-old-versions 2) (setq kept-new-versions 3) (setq delete-old-versions t) (setq backup-by-copying t) (setq auto-save-default nil) (setq user-full-name "N23") (setq user-mail-address "number23.cn@gmail.com") (display-time-mode t) (setq display-time-24hr-format t) (setq display-time-day-and-date t) (setq display-time-interval 10) (setq-default indent-tabs-mode nil) (setq-default tab-width 4) (setq tab-stop-list '(4 8 12 16 20 24 28)) (setq sentence-end "\$[。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\$\\)[ \t\n]*") (setq sentence-end-double-space nil) (set-scroll-bar-mode nil) (when window-system (if (eq system-type 'darwin) (progn (setq ns-pop-up-frames nil) (set-frame-font "Monaco:style=Roman:size=16"))) (if (eq system-type 'gnu/linux) (progn (tool-bar-mode nil) ;; (set-default-font "YaHei Consolas Hybrid-12") (set-default-font "Consolas-12:bold")))) (setq default-major-mode 'text-mode) (setq default-fill-column 80) (show-paren-mode t) (column-number-mode t) (setq show-paren-style 'parenthesis) (setq frame-title-format "emacs@%b") (setq global-font-lock-mode t) (setq font-lock-maximum-decoration t) (setq font-lock-global-modes '(not shell-mode text-mode)) (setq font-lock-verbose t) (setq font-lock-maximum-size '((t . 1048576) (vm-mode . 5250000))) (setq auto-image-file-mode t) (setq x-select-enable-clipboard t) (setq mouse-yank-at-point t) (setq scroll-margin 3 scroll-conservatively 10000) (setq enable-recursive-minibuffers t) (setq kill-ring-max 200) (setq-default require-final-newline t) (add-hook 'before-save-hook 'delete-trailing-whitespace) (add-to-list 'load-path' "~/.emacs.d/site-lisp") (global-auto-revert-mode t) (setq vc-follow-symlinks t) (when window-system (load "server") (unless (server-running-p) (server-start))) (require 'c-w3m) (require 'c-ibus) ;; recentf (recentf-mode t) (setq recentf-max-saved-items 30) (setq recentf-auto-cleanup 300) (setq recentf-save-file "~/.emacs.d/recentf-list") ;; package.el (require 'package) (add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/") t) (package-initialize) (when (not package-archive-contents) (package-refresh-contents)) (defvar my-packages '(color-theme-tangotango paredit slime slime-repl clojure-mode clojurescript-mode js2-mode)) (dolist (p my-packages) (when (not (package-installed-p p)) (package-install p))) (require 'color-theme-tangotango) (color-theme-tangotango) ;; slime ;(load (expand-file-name "~/quicklisp/slime-helper.el")) (setq inferior-lisp-program "/usr/local/bin/ccl") (setq common-lisp-hyperspec-root "http://127.0.0.1/docs/HyperSpec-7-0/HyperSpec/") (eval-after-load 'slime '(setq slime-protocol-version 'ignore)) (defun lisp-indent-or-complete (&optional arg) (interactive "P") (if (or (looking-back "^\\s-*") (bolp)) (call-interactively 'lisp-indent-line) (call-interactively 'slime-indent-and-complete-symbol))) (eval-after-load "lisp-mode" '(progn (define-key lisp-mode-map (kbd "TAB") 'lisp-indent-or-complete))) (add-hook 'lisp-mode-hook '(lambda () (local-set-key (kbd "RET") 'newline-and-indent))) (setq slime-autodoc-use-multiline-p t) (setq slime-repl-history-remove-duplicates t) (setq slime-repl-history-trim-whitespaces t) (setq slime-net-coding-system 'utf-8-unix) (require 'c-slime-autodoc) ;; python-mode (setq auto-mode-alist (cons '("\\.py$" . python-mode) auto-mode-alist)) (setq interpreter-mode-alist(cons '("python" . python-mode) interpreter-mode-alist)) (autoload 'python-mode "python-mode" "Python editing mode." t) ;;copy pycomplete.py Pymacs into PYTHONPATH (setq py-python-command "/usr/local/bin/pypy") (setq-default py-indent-offset 4) (setq pymacs-python-command py-python-command) (autoload 'pymacs-load "pymacs" nil t) (autoload 'pymacs-eval "pymacs" nil t) (autoload 'pymacs-apply "pymacs") (autoload 'pymacs-call "pymacs") (require 'pycomplete) ;; js2-mode ;; emacs -batch -f batch-byte-compile *.el (autoload 'js2-mode "js2" nil t) (add-to-list 'auto-mode-alist '("\\.js$" . js2-mode)) ;; paredit (autoload 'paredit-mode "paredit" "Minor mode for pseudo-structurally editing Lisp code." t) (dolist (mode '(scheme emacs-lisp lisp clojure clojurescript)) (add-hook (intern (concat (symbol-name mode) "-mode-hook")) (lambda () (paredit-mode t)))) (defun esk-pretty-fn () (font-lock-add-keywords nil `(("(\$fn\\>\$" (0 (progn (compose-region (match-beginning 1) (match-end 1) "\u0192") nil)))))) (add-hook 'clojure-mode-hook 'esk-pretty-fn) (add-hook 'clojurescript-mode-hook 'esk-pretty-fn) ;; misc functions (defun copy-lines (&optional arg) (interactive "P") (save-excursion (beginning-of-line) (set-mark (point)) (next-line arg) (kill-ring-save (mark) (point)))) (defun switch-buffer-scratch () "Switch to the scratch buffer. If the buffer doesn't exist" (interactive) (let* ((scratch-buffer-name "*scratch*") (scratch-buffer (get-buffer scratch-buffer-name))) (unless scratch-buffer (setq scratch-buffer (get-buffer-create scratch-buffer-name)) (with-current-buffer scratch-buffer (lisp-interaction-mode))) (switch-to-buffer scratch-buffer))) (global-set-key (kbd "C-c C-w") 'copy-lines) (global-set-key (kbd "C-c C-j") 'join-line) (global-set-key "\C-cbs" 'switch-buffer-scratch)

All my emacs config files in here

Install Octopress Log

Dec 20th, 2011

install rvm and setup

$ bash -s stable < <(curl -s https://raw.github.com/wayneeseguin/rvm/master/binscripts/rvm-installer)
$ [[ -s "$HOME/.rvm/scripts/rvm" ]] && source "$HOME/.rvm/scripts/rvm"
$ rvm install 1.9.2 && rvm use 1.9.2

$ ruby --version  # Should report Ruby 1.9.2

$ git clone git://github.com/imathis/octopress.git number23

$ proxychains gem install bundler
$ proxychains bundle install
$ rake install
$ rake setup_github_pages

new a github repository call: number23.github.com
git URI: git@github.com:number23/number23.github.com.git

rake commonds:

rake new_post["post title"]
rake generate   # generate your blog static pages content according to your input.
rake preview    # start a web server on "http://localhost:4000", you can preview your blog content.
rake deploy     # push your static pages content to your github pages repo ("master" branch)

Octopress doc

Hello World

Dec 20th, 2011

Hello…

Hello Octopress

Blog Archives

Longing for the world outside the wall

an engineer, focus on Clojure/Python/JavaScript.