hchbaw

(defmacro aif (test-form then-form &optional else-form)
  (declare (indent 1))
  `(let ((it ,test-form))
     (if it ,then-form ,else-form)))

(defmacro aand  (&rest args)
  (declare (indent 0))
  (cond ((null args) t)
        ((null (cdr args)) (car args))
        (t `(aif ,(car args)

hchbaw

#!zsh
# _git vcs_info
# __git_branch_switches

autoload -Uz vcs_info
zstyle ':vcs_info:*' enable git
#zstyle ':vcs_info:*' formats '%B%F{black}(%f%b%F{black})%f%%b' # `%f` eats "1"
zstyle ':vcs_info:*' formats '%B%F{black}(%F{white}%b%F{black})%f%%b'
zstyle ':vcs_info:*' actionformats '%B%F{black}(%F{white}%b%F{black}|%F{white}%a%F{black})%f%%b'

hchbaw

#compdef clbuild

# TODO: clbuild-bash-completion.sh stuff (run/update/install/uninstall)
# Especially `update' found in this script is totally broken:)

_clbuild () {
local clbuild_dir=${clbuild_dir:=$(pwd)}

(( $+functions[__clbuild_commands] )) ||
__clbuild_commands () {

hchbaw

hchbaw

diff --git a/Src/Zle/complist.c b/Src/Zle/complist.c
index bac072e..4a0e5f6 100644
--- a/Src/Zle/complist.c
+++ b/Src/Zle/complist.c
@@ -1991,6 +1991,7 @@ complistmatches(UNUSED(Hookdef dummy), Chdata dat)
     mlistp = NULL;
 
     queue_signals();
+    if (mlbeg == -1) mlbeg = 0;
     if (mselect >= 0 || mlbeg >= 0 ||

hchbaw

;; http://d.hatena.ne.jp/kitokitoki/20100618/p1
(require 'cl)

(defun* my-tmp (s &optional (sep "\t"))
  (destructuring-bind (x y z) (split-string s sep)
    (cons (concat x sep y) z)))

(mapcar 'my-tmp '("a\tb\tc" "d\te\tf" "g\th\tk"))
;;⇒ (("a	b" . "c") ("d	e" . "f") ("g	h" . "k"))

hchbaw

;; g:eskk_revert_henkan_style = "eskk"
;; http://github.com/tyru/eskk.vim/commit/a962f27d868c902415c364df8a7cb0d0d8018bcc
;; Thank you very much, tyru!
(define skk-back-to-kanji-state
  (lambda (sc)
    (let ((skk (lambda (sc)
                 (skk-context-set-state! sc 'skk-state-kanji)
                 (skk-context-set-okuri-head! sc "")
                 (if (not (null? (skk-context-okuri sc)))
                   (begin

hchbaw

#!/usr/local/bin/gosh
;;; stuff such that .zhistory → “"cdr" function for recent directories etc.”
;;; - http://thread.gmane.org/gmane.comp.shells.zsh.devel/20592
#|
% {
  local -a match mbegin mend
  print -l ${${(@f)"$(\
gosh /tmp/cdr.scm -f $HISTFILE -t $((12 * 60 * 60)) -l 99999 \
  )"}/(#b)(*)/\$"'"${match}"'"}
} > ~/..chpwd-recent-dirs

hchbaw

⚀⚀---⚀⚀---⚀⚀---⚀⧄
|    |    |    |
|    |    |    Principes
|  d'implantation
|      de Scheme et
Lisp

hchbaw

Lisp₁、Lisp₂