My own SKK-JISYO.lisp

SKK-JISYO.lisp

;; okuri-ari entries.
;; okuri-nasi entries.
;; https://github.com/nathancorvussolis/corvusskk/blob/master/installer/config-sample/skk-strftime.txt
いま /(skk-strftime "%Y年%#m月%#d日(%a) %#H時%#M分%#S秒")/
#びょうご /(skk-strftime "%Y年%#m月%#d日(%a) %#H時%#M分%#S秒" "sec" #0)/
#びょうまえ /(skk-strftime "%Y年%#m月%#d日(%a) %#H時%#M分%#S秒" "sec" -#0)/
#ふんご /(skk-strftime "%Y年%#m月%#d日(%a) %#H時%#M分%#S秒" "min" #0)/
#ふんまえ /(skk-strftime "%Y年%#m月%#d日(%a) %#H時%#M分%#S秒" "min" -#0)/
#じかんご /(skk-strftime "%Y年%#m月%#d日(%a) %#H時%#M分%#S秒" "hour" #0)/
#じかんまえ /(skk-strftime "%Y年%#m月%#d日(%a) %#H時%#M分%#S秒" "hour" -#0)/
きょう /(skk-strftime "%Y年%#m月%#d日(%a)")/
あした /(skk-strftime "%Y年%#m月%#d日(%a)" "day" 1)/
あす /(skk-strftime "%Y年%#m月%#d日(%a)" "day" 1)/
みょうごにち /(skk-strftime "%Y年%#m月%#d日(%a)" "day" 2)/
あさって /(skk-strftime "%Y年%#m月%#d日(%a)" "day" 2)/
しあさって /(skk-strftime "%Y年%#m月%#d日(%a)" "day" 3)/
みょうみょうごにち /(skk-strftime "%Y年%#m月%#d日(%a)" "day" 3)/
きのう /(skk-strftime "%Y年%#m月%#d日(%a)" "day" -1)/
おととい /(skk-strftime "%Y年%#m月%#d日(%a)" "day" -2)/
おとつい /(skk-strftime "%Y年%#m月%#d日(%a)" "day" -2)/
いっさくじつ /(skk-strftime "%Y年%#m月%#d日(%a)" "day" -2)/
#にちご /(skk-strftime "%Y年%#m月%#d日(%a)" "day" #0)/
#にちまえ /(skk-strftime "%Y年%#m月%#d日(%a)" "day" -#0)/
こんげつ /(skk-strftime "%Y年%#m月")/
らいげつ /(skk-strftime "%Y年%#m月" "month" 1)/
さらいげつ /(skk-strftime "%Y年%#m月" "month" 2)/
せんげつ /(skk-strftime "%Y年%#m月" "month" -1)/
せんせんげつ /(skk-strftime "%Y年%#m月" "month" -2)/
#かげつご /(skk-strftime "%Y年%#m月" "month" #0)/
#かげつまえ /(skk-strftime "%Y年%#m月" "month" -#0)/
ことし /(skk-strftime "%Y年")/
らいねん /(skk-strftime "%Y年" "year" 1)/
みょうねん /(skk-strftime "%Y年" "year" 1)/
さらいねん /(skk-strftime "%Y年" "year" 2)/
みょうごねん /(skk-strftime "%Y年" "year" 2)/
きょねん /(skk-strftime "%Y年" "year" -1)/
さくねん /(skk-strftime "%Y年" "year" -1)/
おととし /(skk-strftime "%Y年" "year" -2)/
いっさくねん /(skk-strftime "%Y年" "year" -2)/
#ねんご /(skk-strftime "%Y年" "year" #0)/
#ねんまえ /(skk-strftime "%Y年" "year" -#0)/
;; https://github.com/nathancorvussolis/corvusskk/blob/master/installer/config-sample/skk-omikuji.txt
おみくじ /(skk-omikuji)/
;; https://github.com/skk-dev/dict/blob/master/SKK-JISYO.lisp
#feet /(skk-gadget-units-conversion "feet" (string-to-number (car skk-num-list)) "cm")/
#inch /(skk-gadget-units-conversion "inch" (string-to-number (car skk-num-list)) "cm")/(skk-gadget-units-conversion "inch" (string-to-number (car skk-num-list)) "feet")/
#mile /(skk-gadget-units-conversion "mile" (string-to-number (car skk-num-list)) "km")/(skk-gadget-units-conversion "mile" (string-to-number (car skk-num-list)) "yard")/
#yard /(skk-gadget-units-conversion "yard" (string-to-number (car skk-num-list)) "cm")/(skk-gadget-units-conversion "yard" (string-to-number (car skk-num-list)) "feet")/
#かげつご /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 0 nil 0 0 0)) nil nil :mm #0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 0 'gengo 0 0 0)) nil nil :mm #0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 3 'gengo 0 0 0)) nil nil :mm #0)/
#かげつまえ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 0 nil 0 0 0)) nil nil :mm -#0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 0 'gengo 0 0 0)) nil nil :mm -#0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 3 'gengo 0 0 0)) nil nil :mm -#0)/
#にちご /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 nil 0 0 0)) nil nil :dd #0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd #0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd #0)/
#にちまえ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 nil 0 0 0)) nil nil :dd -#0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd -#0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd -#0)/
#ねんご /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 nil 0 0 0)) nil nil :yy #0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 'gengo 0 0 0)) nil nil :yy #0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 3 'gengo 0 0 0)) nil nil :yy #0)/
#ねんまえ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 nil 0 0 0)) nil nil :yy -#0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 'gengo 0 0 0)) nil nil :yy -#0)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 3 'gengo 0 0 0)) nil nil :yy -#0)/
bar /(make-string (- fill-column 1) ?-)/
line /(make-string (- (window-width) 5) ?-)/(make-string (- (window-width) 5) (string-to-char comment-start))/
@ /(skk-strftime "%Y%m%d_%H%M%S")/
now /(current-time-string)/(skk-strftime "%Y%m%d_%H%M%S")/(substring (current-time-string) 11 16)/(substring (current-time-string) 11 19)/(format-time-string "%H時%M分" (current-time))/(format-time-string "%p%I時%M分" (current-time))/
skk /(skk-version)/
time /(current-time-string)/
today /(skk-strftime "%Y%m%d")/(skk-strftime "%Y_%m_%d")/(skk-strftime "%Y-%m-%d")/(skk-strftime "%Y.%m.%d")/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)))/(skk-current-date)/
tomorrow /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd 1)/(skk-relative-date nil nil nil :dd 1)/
version /(skk-version)/
yesterday /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd -1)/(skk-relative-date nil nil nil :dd -1)/
あさって /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd 2)/(skk-relative-date nil nil nil :dd 2)/
あした /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd 1)/(skk-relative-date nil nil nil :dd 1)/
あす /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd 1)/(skk-relative-date nil nil nil :dd 1)/
いま /(current-time-string)/(substring (current-time-string) 11 16)/(substring (current-time-string) 11 19)/(format-time-string "%H時%M分" (current-time))/(format-time-string "%p%I時%M分" (current-time))/
おとつい /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd -2)/(skk-relative-date nil nil nil :dd -2)/
おととい /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd -2)/(skk-relative-date nil nil nil :dd -2)/
おととし /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 nil 0 0 0)) nil nil :yy -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 'gengo 0 0 0)) nil nil :yy -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 3 'gengo 0 0 0)) nil nil :yy -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 1 'gengo 0 0 0)) nil nil :yy -2)/
きのう /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)) nil nil :dd -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)) nil nil :dd -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)) nil nil :dd -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)) nil nil :dd -1)/(skk-relative-date nil nil nil :dd -1)/
きょう /(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 0 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s-%s-%s(%s)" 0 nil 0 0 nil)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 0 'gengo 1 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information nil 3 'gengo 0 0 0)))/(skk-current-date)/
きょねん /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 nil 0 0 0)) nil nil :yy -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 'gengo 0 0 0)) nil nil :yy -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 3 'gengo 0 0 0)) nil nil :yy -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 1 'gengo 0 0 0)) nil nil :yy -1)/
ことし /(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 nil 0 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 'gengo 0 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 3 'gengo 0 0 0)))/(skk-current-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 1 'gengo 0 0 0)))/
さくねん /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 nil 0 0 0)) nil nil :yy -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 'gengo 0 0 0)) nil nil :yy -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 3 'gengo 0 0 0)) nil nil :yy -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 1 'gengo 0 0 0)) nil nil :yy -1)/
さらいげつ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 0 nil 0 0 0)) nil nil :mm 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 0 'gengo 0 0 0)) nil nil :mm 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 3 'gengo 0 0 0)) nil nil :mm 2)/
さらいねん /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 nil 0 0 0)) nil nil :yy 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 'gengo 0 0 0)) nil nil :yy 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 3 'gengo 0 0 0)) nil nil :yy 2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 1 'gengo 0 0 0)) nil nil :yy 2)/
しょうわ#ねん /(skk-gengo-to-ad "" "年")/(skk-gengo-to-ad "西暦" "年")/
せいれき#ねん /(skk-ad-to-gengo 0 nil "年")/(skk-ad-to-gengo 1 nil "年")/
せんげつ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 0 nil 0 0 0)) nil nil :mm -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 0 'gengo 0 0 0)) nil nil :mm -1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 3 'gengo 0 0 0)) nil nil :mm -1)/
せんせんげつ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 0 nil 0 0 0)) nil nil :mm -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 0 'gengo 0 0 0)) nil nil :mm -2)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 3 'gengo 0 0 0)) nil nil :mm -2)/
たいしょう#ねん /(skk-gengo-to-ad "" "年")/(skk-gengo-to-ad "西暦" "年")/
ばーじょん /(skk-version)/
へいせい#ねん /(skk-gengo-to-ad "" "年")/(skk-gengo-to-ad "西暦" "年")/
めいじ#ねん /(skk-gengo-to-ad "" "年")/(skk-gengo-to-ad "西暦" "年")/
らいげつ /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 0 nil 0 0 0)) nil nil :mm 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 0 'gengo 0 0 0)) nil nil :mm 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年%s月" 3 'gengo 0 0 0)) nil nil :mm 1)/
らいねん /(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 nil 0 0 0)) nil nil :yy 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 0 'gengo 0 0 0)) nil nil :yy 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 3 'gengo 0 0 0)) nil nil :yy 1)/(skk-relative-date (lambda (date-information format gengo and-time) (skk-default-current-date date-information "%s年" 1 'gengo 0 0 0)) nil nil :yy 1)/
れいわ#ねん /(skk-gengo-to-ad "" "年")/(skk-gengo-to-ad "西暦" "年")/