hchbaw

uim用のACT09、japanese-act.scmアーカイブ
ここに含まれている japanese-act.scm はACT09です
/path/to/share/uim/japanese-act.scm へと上書きして下さいね。

.
├── dist                     改変を加えていないデータ用のディレクトリです
│   ├── ACT09_GoogleJP.zip   [[1]]より
│   └── act09_key_pos.html   [[2]]より
├── act09-t.diff             [[1]]のデータの[[2]]を網羅した差分です
│                            どこを変えたのかのてががりにもどうぞ

hchbaw

diff --git a/iex b/iex
index 8f116a1..afe7ec2 100755
--- a/iex
+++ b/iex
@@ -48,7 +48,7 @@ add_tempfiles() {
 IS_REGISTERED_REMOVE_ALL_TEMPFILES="$false"
 register_remove_all_tempfiles() {
     $IS_REGISTERED_REMOVE_ALL_TEMPFILES || {
-        trap 'remove_all_tempfiles' HUP INT QUIT TERM
+        trap 'remove_all_tempfiles' HUP INT QUIT TERM EXIT

hchbaw

#!zsh
# textobj-between code.
# Thank you very much, thinca and tarao!
#
# http://d.hatena.ne.jp/thinca/20100614/1276448745
# http://d.hatena.ne.jp/tarao/20100715/1279185753

def-oppc-textobj-between () {
  def-oppc-inbetween-2 "$1" "opp+i$1" "opp+a$1" oppc-tb-main
}

hchbaw

collections {
  group {
    name: "modules/switch-window/popup";
    images {
      image: "vgrad_dark.png" COMP;
      image: "vgrad_light.png" COMP;
      image: "shelf_alt_over.png" COMP;
    }
    styles {
      style {

hchbaw

Lisp₁、Lisp₂

hchbaw

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

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

;; 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

;; 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

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 ||