chore: init HEAD master

2 files changed, 155 insertions, 0 deletions

diff --git a/uim/.uim b/uim/.uim
new file mode 100644
index 0000000..493769d
--- /dev/null
+++ b/uim/.uim
@@ -0,0 +1,143 @@
+;;; -*- mode: scheme; -*-
+
+(define custom-activate-default-im-name? #t)
+(define custom-preserved-default-im-name 'skk)
+(define default-im-name 'skk)
+(define enabled-im-list '(skk))
+(define enable-im-switch? #f)
+(define switch-im-key '())
+(define switch-im-key? (make-key-predicate '()))
+(define switch-im-skip-direct-im? #f)
+(define enable-im-toggle? #f)
+(define toggle-im-key '())
+(define toggle-im-key? (make-key-predicate '()))
+(define toggle-im-alt-im 'direct)
+(define uim-color 'uim-color-uim)
+(define candidate-window-style 'vertical)
+(define candidate-window-position 'caret)
+(define enable-lazy-loading? #t)
+(define bridge-show-input-state? #f)
+(define bridge-show-with? 'time)
+(define bridge-show-input-state-time-length 3)
+
+
+(define toolbar-display-time 'never)
+
+
+(define uim-xim-use-xft-font? #t)
+(define uim-xim-xft-font-name "Source Sans Han")
+
+
+(define enable-annotation? #t)
+(define annotation-agent 'im)
+(define skk-show-annotation? #t)
+(define skk-show-annotation-in-preedit? #f)
+
+
+(define skk-use-candidate-window? #t)
+(define skk-commit-candidate-by-label-key? #t)
+(define skk-candidate-selection-style 'ddskk-like)
+(define skk-use-manual-candwin-setting? #f)
+(define skk-candidate-op-count 5)
+(define skk-nr-candidate-max 7)
+(define skk-widgets '(widget_skk_input_mode widget_skk_kana_input_method))
+(define default-widget_skk_input_mode 'action_skk_latin)
+(define skk-input-mode-actions '(action_skk_latin action_skk_hiragana action_skk_katakana action_skk_hankana action_skk_wide_latin))
+(define default-widget_skk_kana_input_method 'action_skk_roma)
+(define skk-kana-input-method-actions '(action_skk_roma action_skk_azik action_skk_act action_skk_kzik))
+
+
+(define skk-style 'skk-style-ddskk-like)
+(define skk-use-recursive-learning? #t)
+(define skk-use-numeric-conversion? #t)
+(define skk-auto-start-henkan? #t)
+(define skk-dcomp-activate? #t)
+(define skk-use-look? #f)
+(define skk-look-dict "")
+(define skk-show-annotation? #t)
+(define skk-show-annotation-in-preedit? #f)
+(define skk-use-with-vi? #t)
+(define skk-egg-like-newline? #t)
+(define skk-commit-newline-explicitly? #f)
+
+
+(define skk-use-skkserv? #f)
+(define skk-skkserv-enable-completion? #f)
+(define skk-skkserv-completion-timeout 2000)
+(define skk-skkserv-use-env? #t)
+(define skk-skkserv-hostname "localhost")
+(define skk-skkserv-portnum 1178)
+(define skk-skkserv-address-family 'unspecified)
+(define skk-dic-file-name "/usr/share/skk/SKK-JISYO.L")
+(define skk-personal-dic-filename "/home/azahi/.local/var/skk-jisyo")
+(define skk-uim-personal-dic-filename "/home/azahi/.local/var/skk-uim-jisyo")
+
+
+(define skk-on-key '("<IgnoreCase><Control>j" "zenkaku-hankaku" "<IgnoreShift><Alt>`"))
+(define skk-on-key? (make-key-predicate '("<IgnoreCase><Control>j" "zenkaku-hankaku" "<IgnoreShift><Alt>`")))
+(define skk-latin-key '("<IgnoreCase>l" "zenkaku-hankaku" "<IgnoreShift><Alt>`"))
+(define skk-latin-key? (make-key-predicate '("<IgnoreCase>l" "zenkaku-hankaku" "<IgnoreShift><Alt>`")))
+(define skk-wide-latin-key '("<IgnoreCase><Shift>l"))
+(define skk-wide-latin-key? (make-key-predicate '("<IgnoreCase><Shift>l")))
+(define skk-kcode-input-key '("yen"))
+(define skk-kcode-input-key? (make-key-predicate '("yen")))
+(define skk-kanji-mode-key '("<IgnoreCase><Shift>q"))
+(define skk-kanji-mode-key? (make-key-predicate '("<IgnoreCase><Shift>q")))
+(define skk-hankaku-kana-key '("<IgnoreCase><Control>q"))
+(define skk-hankaku-kana-key? (make-key-predicate '("<IgnoreCase><Control>q")))
+(define skk-kana-toggle-key '("<IgnoreCase>q"))
+(define skk-kana-toggle-key? (make-key-predicate '("<IgnoreCase>q")))
+(define skk-begin-conv-key '(" "))
+(define skk-begin-conv-key? (make-key-predicate '(" ")))
+(define skk-commit-key '("<IgnoreCase><Control>j"))
+(define skk-commit-key? (make-key-predicate '("<IgnoreCase><Control>j")))
+(define skk-cancel-key '("escape" "<IgnoreShift><Control>[" "<IgnoreCase><Control>g"))
+(define skk-cancel-key? (make-key-predicate '("escape" "<IgnoreShift><Control>[" "<IgnoreCase><Control>g")))
+(define skk-sticky-key '())
+(define skk-sticky-key? (make-key-predicate '()))
+
+
+(define skk-return-key '("return" "<IgnoreCase><Control>m"))
+(define skk-return-key? (make-key-predicate '("return" "<IgnoreCase><Control>m")))
+(define skk-latin-conv-key '("<IgnoreShift>/"))
+(define skk-latin-conv-key? (make-key-predicate '("<IgnoreShift>/")))
+(define skk-conv-wide-latin-key '("<IgnoreCase><Control>q"))
+(define skk-conv-wide-latin-key? (make-key-predicate '("<IgnoreCase><Control>q")))
+(define skk-conv-opposite-case-key '("<IgnoreCase><Control>u"))
+(define skk-conv-opposite-case-key? (make-key-predicate '("<IgnoreCase><Control>u")))
+(define skk-begin-completion-key '("tab" "<IgnoreCase><Control>i" "<Alt>tab" "<IgnoreCase><Control><Alt>i"))
+(define skk-begin-completion-key? (make-key-predicate '("tab" "<IgnoreCase><Control>i" "<Alt>tab" "<IgnoreCase><Control><Alt>i")))
+(define skk-next-completion-key '("<IgnoreShift>." "tab" "<IgnoreCase><Control>i"))
+(define skk-next-completion-key? (make-key-predicate '("<IgnoreShift>." "tab" "<IgnoreCase><Control>i")))
+(define skk-prev-completion-key '("<IgnoreShift>,"))
+(define skk-prev-completion-key? (make-key-predicate '("<IgnoreShift>,")))
+(define skk-new-completion-from-current-comp-key '("<Alt>tab" "<IgnoreCase><Control><Alt>i"))
+(define skk-new-completion-from-current-comp-key? (make-key-predicate '("<Alt>tab" "<IgnoreCase><Control><Alt>i")))
+(define skk-special-midashi-key '("<IgnoreShift>>" "<IgnoreShift><" "<IgnoreShift>?"))
+(define skk-special-midashi-key? (make-key-predicate '("<IgnoreShift>>" "<IgnoreShift><" "<IgnoreShift>?")))
+(define skk-vi-escape-key '("escape" "<IgnoreShift><Control>["))
+(define skk-vi-escape-key? (make-key-predicate '("escape" "<IgnoreShift><Control>[")))
+(define skk-state-direct-no-preedit-nop-key '("<IgnoreCase><Control>j"))
+(define skk-state-direct-no-preedit-nop-key? (make-key-predicate '("<IgnoreCase><Control>j")))
+(define skk-purge-candidate-key '("<IgnoreCase><Shift>x"))
+(define skk-purge-candidate-key? (make-key-predicate '("<IgnoreCase><Shift>x")))
+
+
+(define skk-begin-conv-with-completion-key '("<Alt> "))
+(define skk-begin-conv-with-completion-key? (make-key-predicate '("<Alt> ")))
+(define skk-commit-with-conv-completion-key '("<IgnoreCase><Control><Alt>j"))
+(define skk-commit-with-conv-completion-key? (make-key-predicate '("<IgnoreCase><Control><Alt>j")))
+(define skk-next-candidate-key '(" " "down" "<IgnoreCase><Control>n"))
+(define skk-next-candidate-key? (make-key-predicate '(" " "down" "<IgnoreCase><Control>n")))
+(define skk-prev-candidate-key '("<IgnoreCase>x" "up" "<IgnoreCase><Control>p"))
+(define skk-prev-candidate-key? (make-key-predicate '("<IgnoreCase>x" "up" "<IgnoreCase><Control>p")))
+(define skk-next-page-key '("next"))
+(define skk-next-page-key? (make-key-predicate '("next")))
+(define skk-prev-page-key '("prior"))
+(define skk-prev-page-key? (make-key-predicate '("prior")))
+(define skk-backspace-key '("backspace" "<IgnoreCase><Control>h"))
+(define skk-backspace-key? (make-key-predicate '("backspace" "<IgnoreCase><Control>h")))
+(define skk-go-left-key '("left" "<IgnoreCase><Control>b"))
+(define skk-go-left-key? (make-key-predicate '("left" "<IgnoreCase><Control>b")))
+(define skk-go-right-key '("right" "<IgnoreCase><Control>f"))
+(define skk-go-right-key? (make-key-predicate '("right" "<IgnoreCase><Control>f")))
diff --git a/uim/@install b/uim/@install
new file mode 100755
index 0000000..7e9a311
--- /dev/null
+++ b/uim/@install
@@ -0,0 +1,12 @@
+#!/bin/sh
+
+[ ! -d "${HOME}/.uim.d" ] &&
+    mkdir -p "${HOME}/.uim.d"
+[ ! -d "${HOME}/.uim.d/customs" ] &&
+    mkdir -p "${HOME}/.uim.d/customs"
+
+stow \
+    --target="${HOME}" \
+    --ignore="^@.*" \
+    --verbose \
+    uim