現在の optimize 指定を取得する

SBCL 依存だけど sb-ext:describe-compiler-policy または sb-cltl2:declaration-information で取得できる。

(sb-ext:describe-compiler-policy)
;;->   Basic qualities:
;;   COMPILATION-SPEED = 1
;;   DEBUG = 3
;;   SAFETY = 3
;;   SPACE = 1
;;   SPEED = 1
;;   INHIBIT-WARNINGS = 1
;;     Dependent qualities:
;;   SB-C::CHECK-CONSTANT-MODIFICATION = 1 -> 3 (yes)
;;   SB-C::TYPE-CHECK = 1 -> 3 (full)
;;   SB-C::CHECK-TAG-EXISTENCE = 1 -> 3 (yes)
;;   SB-C::LET-CONVERSION = 1 -> 0 (off)
;;   SB-C:VERIFY-ARG-COUNT = 1 -> 3 (yes)
;;   SB-C::MERGE-TAIL-CALLS = 1 -> 0 (no)
;;   SB-C::INSERT-DEBUG-CATCH = 1 -> 3 (yes)
;;   SB-C::RECOGNIZE-SELF-CALLS = 1 -> 0 (no)
;;   SB-C::FLOAT-ACCURACY = 1 -> 3 (full)
;;   SB-C:INSERT-STEP-CONDITIONS = 1 -> 3 (full)
;;   SB-C::COMPUTE-DEBUG-FUN = 1 -> 3 (yes)
;;   SB-C::PRESERVE-SINGLE-USE-DEBUG-VARIABLES = 1 -> 3 (yes)
;;   SB-C::INSERT-ARRAY-BOUNDS-CHECKS = 1 -> 3 (yes)
;;   SB-C::STORE-XREF-DATA = 1 -> 3 (yes)
;;   SB-C:STORE-COVERAGE-DATA = 1 -> 0 (no)
;;
;;=>

(sb-cltl2:declaration-information 'optimize)
;;=> ((COMPILATION-SPEED 1) (DEBUG 3) (SAFETY 3) (SPACE 1) (SPEED 1)
;;    (INHIBIT-WARNINGS 1) (SB-C::CHECK-CONSTANT-MODIFICATION 1)
;;    (SB-C::TYPE-CHECK 1) (SB-C::CHECK-TAG-EXISTENCE 1) (SB-C::LET-CONVERSION 1)
;;    (SB-C:VERIFY-ARG-COUNT 1) (SB-C::MERGE-TAIL-CALLS 1)
;;    (SB-C::INSERT-DEBUG-CATCH 1) (SB-C::RECOGNIZE-SELF-CALLS 1)
;;    (SB-C::FLOAT-ACCURACY 1) (SB-C:INSERT-STEP-CONDITIONS 1)
;;    (SB-C::COMPUTE-DEBUG-FUN 1) (SB-C::PRESERVE-SINGLE-USE-DEBUG-VARIABLES 1)
;;    (SB-C::INSERT-ARRAY-BOUNDS-CHECKS 1) (SB-C::STORE-XREF-DATA 1)
;;    (SB-C:STORE-COVERAGE-DATA 1))

CLIM ベースの IRC クライアント beirc

今年は CLIM-desktop を流行っているようなので、 @g000001 さんから #Lisp_Scheme できいた、 CLIM ベースのクライアント beirc を使ってみました。

インストールは Quicklisp で。

(ql:quickload "beirc")

起動はレプルから。

(beirc:beirc)

使い方（コマンド）は CLiki のページが詳しいようですが、次の2つのコマンドがあれば何とかなるでしょう。

• /Connect server nick
• /Join channel

~/.beirc.lisp に設定情報を書いおけば起動時に自動的にサーバに接続してくれたりします。また日本語まわりの設定もそのファイルに書いておけばいいかと思います。

~/.beirc.lisp

(in-package :beirc)

;; フォント
(require :mcclim-freetype)

;; uim での日本語入力 https://github.com/quek/mcclim-uim
(require :mcclim-uim)

;;; variables.lisp を参照。

;; 自動的に接続するサーバ
(setq *auto-connect-list* '("irc.freenode.net"))
;; 自動的に join するチャンネル
(setq *auto-join-alist* '(("irc.freenode.net" . ("#lisp" "#Lisp_Scheme"))))

;; ニックネーム
(setq *default-nick* "quek")
(setq *default-realname* "Yoshinori Tahara")

(setq *hyperspec-base-url* "file://localhost/usr/share/doc/hyperspec/")
(setq *default-web-browser* "/usr/bin/opera")

ただ、SBCL だとちょっと問題があるので ~/.sbclcr にその対策もかねて、 beirc 起動用の関数を書いておきます。

(defun beirc ()
  "beirc を起動す2。"
  (require :beirc)
  (eval (read-from-string "
(progn (setf beirc:*beirc-user-init-file* \"~/.beirc.lisp\")
       (beirc:beirc))
")))

mcclim-uim の微妙さをがまんしてもらえれば、普通に使えます。

ところで CLIM-desktop を見ると Backtrace Dialog, Restarts Dialog とか McCLIM の機能としてあるんですね。

Common Lisp でパッケージのニックネームを変える

rename-package を使う。

(defun set-package-nicknames (package &rest nicknames)
  (rename-package package (package-name package) nicknames))

(defpackage :foo
  (:nicknames :bar))

(values (package-name :foo) (package-nicknames :foo))
;;=> "FOO"
;;   ("BAR")

(set-package-nickname :foo :baz :baha)
;;=> #<PACKAGE "FOO">

(values (package-name :foo) (package-nicknames :foo))
;;=> "FOO"
;;   ("BAHA" "BAZ")

(set-package-nickname :foo)
;;=> #<PACKAGE "FOO">

(values (package-name :foo) (package-nicknames :foo))
;;=> "FOO"
;;   NIL

Climacs に Switch To View Other Window と Find File Other Window を実装

勝手に github に fork して Climacs をいじることにしてみた。 McCLIM も github に勝手に fork した。

https://github.com/LaPingvino/Climacs もあるので、そのうち Pull Request できたらいいと思う。

Emacs の switch-to-buffer-other-window と find-file-other-window 相当を実装した。

window-commands.lisp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Commands for switching/find-file in other window

(define-command (com-switch-to-view-other-window :name t :command-table window-table)
    ((view 'view :default (or (cadr (views *application-frame*)) (any-view))))
  "Prompt for a view name and switch to that view in other window.
If the a view with that name does not exist, create a buffer-view
with the name and switch to it. Uses the name of the next
view (if any) as a default."
  (when (= 1 (length (windows *application-frame*)))
    (com-split-window-horizontally t))
  (com-other-window)
  (com-switch-to-view view))

(set-key `(com-switch-to-view-other-window ,*unsupplied-argument-marker*)
         'window-table
         '((#\x :control) (#\4) (#\b)))

(define-command (com-find-file-other-window :name t :command-table window-table)
    ((filepath 'pathname
               :prompt "Find File in other window: "
               :prompt-mode :raw
               :default (esa-io::directory-of-current-buffer)
               :default-type 'pathname
               :insert-default t))
  "Prompt for a filename then edit that file in other window.
If a buffer is already visiting that file, switch to that
buffer. Does not create a file if the filename given does not
name an existing file."
  (when (= 1 (length (windows *application-frame*)))
    (com-split-window-horizontally t))
  (com-other-window)
  (esa-io:com-find-file filepath))

(set-key `(com-find-file-other-window ,*unsupplied-argument-marker*)
         'window-table
         '((#\x :control) (#\4) (#\f)))

Climacs での色（フェイス）の設定

climacs:climacs-rv で起動すると黒背景になる。でも、デフォルトの色付が合わない。そんな場合は次のように各 drawing-options を変更する。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; lisp height
;;;; climacs:climacs-rv で起動するとデフォルトのフェイスが合わないので。
(in-package :drei-lisp-syntax)

(setf
 *string-drawing-options* (make-drawing-options :face (make-face :ink +light-salmon+))
 *comment-drawing-options* (make-drawing-options :face (make-face :ink +chocolate1+))
 *keyword-drawing-options* (make-drawing-options :face (make-face :ink +light-steel-blue+))
 *special-variable-drawing-options* (make-drawing-options :face (make-face :ink +light-goldenrod+))
 *special-operator-drawing-options* (make-drawing-options
                                     :face (make-face :ink +cyan1+
                                                      :style (make-text-style nil :bold nil))))

simple-date-time のパッチをもらった

たまたま #lisp に接続したら Axioplase さんから simple-date-time について質問された。昨日 Axioplase さんから RFC 2822 のフォーマットで出力するパッチのメールをもらった。この件ではいろいろ嬉しい驚きがあった。

• 数ヶ月ぶりに #lisp したまさにその時に質問されたこと。
• simple-date-time を使っている人がいたこと。
• パッチのメールが綺麗な日本語だったこと。

Axioplase さんありがとうございました。

simple-date-time は cl-win32ole を作るときに日時クラスが必要になって、でちっあげたもの。はなはだ効率の悪い実装になっている。アルゴリズムとか無視だし。申し訳ないです。

Climacs でビットマップフォントを使った時のフォンサイズ変更

ビットマップフォントを使うというより X のフォント描画を使う場合のフォントサイズは clim-clx::*clx-text-sizes* で指定する。

参考: McCLIM (Climacs) でビットマプフォン使って日本語を表示する

;; X のフォント描画を使う場合のフォント設定
(setq clim-clx::*clx-text-family+face-map*
  '(:fix
    ("*-*"
     (:roman               "medium-r"
      :bold                "bold-r"
      :italic              "medium-o"
      :bold-italic         "bold-o"
      :italic-bold         "bold-o"))
    :sans-serif
    ("*-*"
     (:roman               "medium-r"
      :bold                "bold-r"
      :italic              "medium-o"
      :bold-italic         "bold-o"
      :italic-bold         "bold-o"))
    :serif
    ("*-*"
     (:roman               "medium-r"
      :bold                "bold-r"
      :italic              "medium-i"
      :bold-italic         "bold-i"
      :italic-bold         "bold-i"))))

;; ビットマップでのフォントサイズを 2 ずつ大きくする。
(setq clim-clx::*clx-text-sizes*
  '(:normal         16
    :tiny           10
    :very-small     12
    :small          14
    :large          20
    :very-large     22
    :huge           26))

X のフォント描画を使う場合は、次が必要になるかと。

;;; ビットマップフォントで日本語表示するために一行追加する。
(in-package :clim-clx)
(defmethod medium-draw-text* ((medium clx-medium) string x y
                              start end
                              align-x align-y
                              toward-x toward-y transform-glyphs)
  (declare (ignore toward-x toward-y transform-glyphs))
  (with-transformed-position ((sheet-native-transformation (medium-sheet medium))
                              x y)
    (with-clx-graphics (medium)
      (when (characterp string)
        (setq string (make-string 1 :initial-element string)))
      (when (null end) (setq end (length string)))
      (multiple-value-bind (text-width text-height x-cursor y-cursor baseline)
          (text-size medium string :start start :end end)
        (declare (ignore x-cursor y-cursor))
        (unless (and (eq align-x :left) (eq align-y :baseline))
          (setq x (- x (ecase align-x
                         (:left 0)
                         (:center (round text-width 2))
                         (:right text-width))))
          (setq y (ecase align-y
                    (:top (+ y baseline))
                    (:center (+ y baseline (- (floor text-height 2))))
                    (:baseline y)
                    (:bottom (+ y baseline (- text-height)))))))
      (let ((x (round-coordinate x))
            (y (round-coordinate y)))
        (when (and (<= #x-8000 x #x7FFF)
                   (<= #x-8000 y #x7FFF))
          (multiple-value-bind (halt width)
              (xlib:draw-glyphs mirror gc x y string
                                :start start :end end
                                :size 16 ; この一行を追加
                                :translate #'translate)))))))

tc2 で 3 ストローク

tc2 で「ます。」を 2 ストローク だけど、シフトキーを使うとどうもリズムが悪い。

"-" をプレフィクスとした 3 ストロークに変更してみた。

それはともかく https://github.com/naota/tc の tc2 はいいですね。ありがとうございます。

(add-hook
 'tcode-ready-hook
 (lambda ()

   ;; いろいろ他の設定。。。

   ;; フィルターによる拡張入力。
   (progn
     (defvar *my-t-code-filter-active-p* nil)

     (defun my-t-code-filter-activate ()
       (setq *my-t-code-filter-active-p* t))

     (defun my-t-code-filter (x)
       (setq *my-t-code-filter-active-p* nil)
       (or (cdr (assoc x '((?で . "です。")
                           (?ま . "ます。")
                           (?し . "した。")
                           (?事 . "こと")
                           (?〜 . "から")
                           (?消 . "削")
                           (?願 . "お願いします。")
                           (?以 . "以上、")
                           (?メ . "foo.bar.baz@gmail.com")
                           (?住 . "横浜市中区上野町123-42")
                           )))
           x))

     (setq tcode-input-filter-functions
           '((*my-t-code-filter-active-p* . my-t-code-filter)
             ((or tcode-katakana-mode tcode-shift-state) . japanese-katakana)
             ((and (boundp 'tcode-bushu-prefix-list)
               tcode-bushu-prefix-list)
              . tcode-bushu-prefix-convert)
             (tcode-alnum-2-byte . tcode-1-to-2)))

     (set-tcode-mode-key "-" 'my-t-code-filter-activate)
     )))

Stumpwm が落ちる件（未解決）

例えば画面の明るさを調整する Fn + ↑ 等のキーを押すと Stumpwm が落ちる件を調べてみた。

現時点では未解決。分かったのは次のようなこと。

• まず mayu は関係なかった。ごめんなさい。
• 画面の明るさ調整の Fn + ↑, Fn + ↓ と電源ボタンで落ちる。
• ボリューム調整ボタンでは大丈夫。
• 正確には落ちるのではなく下記のようにデバッガに入っている。
• XLIB:KEYBOARD-MAPPING で XLIB::READ-REPLY する時に XLIB:ALLOC-ERROR が発生している。
• repl から XLIB:KEYBOARD-MAPPING や、もっと上の方の (STUMPWM::GET-MODIFIER-MAP) などを呼んだ場合は正常に動作する。

テストする時は次のように gnome-terminal を X 上で上げてから stumpwm を起動すると、キーボードが効かなくなった場合にマウスで gnome-terminal を終了して X をぬけられる。

STARTUP=gnome-terminal startx

以下、デバッガに入った時の出力。

Caught 'ALLOC-ERROR in current request  Code 101.0 [GetKeyboardMapping]' at the top level. Please report this.
0: (SB-DEBUG::MAP-BACKTRACE
    #<CLOSURE (LAMBDA #) {10057E9319}>
    :START
    0
    :COUNT
    100)
1: (SB-DEBUG:BACKTRACE 100 #<SB-IMPL::STRING-OUTPUT-STREAM {10057E9271}>)
2: (STUMPWM::PRINT-BACKTRACE 100)
3: (STUMPWM::BACKTRACE-STRING)
4: (STUMPWM::PERFORM-TOP-LEVEL-ERROR-ACTION #<XLIB:ALLOC-ERROR {10057E8851}>)
5: ((FLET #:LAMBDA284) #<XLIB:ALLOC-ERROR {10057E8851}>)
6: (SIGNAL #<XLIB:ALLOC-ERROR {10057E8851}>)
7: (ERROR
    XLIB:ALLOC-ERROR
    :DISPLAY
    #<XLIB:DISPLAY :0 (The X.Org Foundation R10707000)>
    :ERROR-KEY
    XLIB:ALLOC-ERROR
    :ASYNCHRONOUS
    NIL
    :CURRENT-SEQUENCE
    2516
    :MAJOR
    101
    :MINOR
    0
    :SEQUENCE
    2516)
8: (STUMPWM::ERROR-HANDLER
    #<XLIB:DISPLAY :0 (The X.Org Foundation R10707000)>
    XLIB:ALLOC-ERROR
    :ASYNCHRONOUS
    NIL
    :CURRENT-SEQUENCE
    2516
    :MAJOR
    101
    :MINOR
    0
    :SEQUENCE
    2516)
9: (XLIB::REPORT-ERROR
    #<XLIB:DISPLAY :0 (The X.Org Foundation R10707000)>
    11
    XLIB:ALLOC-ERROR
    :ASYNCHRONOUS
    NIL
    :CURRENT-SEQUENCE
    2516
    :MAJOR
    101
    :MINOR
    0
    :SEQUENCE
    2516)
10: (XLIB::REPORT-ERROR
     #<XLIB:DISPLAY :0 (The X.Org Foundation R10707000)>
     11
     XLIB:ALLOC-ERROR
     :ASYNCHRONOUS
     NIL
     :CURRENT-SEQUENCE
     2516
     :MAJOR
     101
     :MINOR
     0
     :SEQUENCE
     2516)[:OPTIONAL]
11: (XLIB::READ-REPLY
     #<XLIB:DISPLAY :0 (The X.Org Foundation R10707000)>
     #S(XLIB::PENDING-COMMAND
        :SEQUENCE 2516
        :REPLY-BUFFER NIL
        :PROCESS #<SB-THREAD:THREAD "initial thread" RUNNING {1002BC78D1}>
        :NEXT NIL))
12: (XLIB:KEYBOARD-MAPPING
     #<XLIB:DISPLAY :0 (The X.Org Foundation R10707000)>
     :FIRST-KEYCODE
     NIL
     :START
     NIL
     :END
     NIL
     :DATA
     NIL)
13: (XLIB::DISPLAY-KEYBOARD-MAPPING
     #<XLIB:DISPLAY :0 (The X.Org Foundation R10707000)>)
14: (XLIB:KEYSYM->KEYCODES
     #<XLIB:DISPLAY :0 (The X.Org Foundation R10707000)>
     65511)
15: ((LABELS STUMPWM::FIND-MOD) "Meta_L" NIL)
16: (STUMPWM::GET-MODIFIER-MAP)
17: (STUMPWM::UPDATE-MODIFIER-MAP)
18: ((LABELS #:G578) :REQUEST :KEYBOARD :START 8 :COUNT 248)
19: ((FLET #:FORM-FUN-[HANDLE-EVENT]997))
20: (STUMPWM::HANDLE-EVENT
     :DISPLAY
     #<XLIB:DISPLAY :0 (The X.Org Foundation R10707000)>
     :EVENT-KEY
     :MAPPING-NOTIFY
     :EVENT-CODE
     34
     :SEND-EVENT-P
     NIL
     :SEQUENCE
     2514
     :REQUEST
     :KEYBOARD
     :START
     8
     :COUNT
     248)
21: (XLIB::MAPPING-NOTIFY-EVENT-GET
     #<XLIB:DISPLAY :0 (The X.Org Foundation R10707000)>
     #S(XLIB::REPLY-BUFFER
        :SIZE 34
        :IBUF8 #(34 25 210 9 1 8 248 0 243 25 10 124 255 127 0 0 242 25 10 124
                 255 127 0 0 1 0 0 0 3 0 0 0)
        :NEXT #S(XLIB::REPLY-BUFFER
                 :SIZE 34
                 :IBUF8 #(34 25 210 9 0 0 0 0 243 25 10 124 255 127 0 0 242 25
                          10 124 255 127 0 0 1 0 0 0 3 0 0 0)
                 :NEXT #S(XLIB::REPLY-BUFFER
                          :SIZE 10
                          :IBUF8 #(10 0 210 9 4 0 160 0 1 0 0 0 0 0 0 0 0 0 0 0
                                   0 0 0 0 0 0 0 0 0 0 0 0)
                          :NEXT #S(XLIB::REPLY-BUFFER
                                   :SIZE 10
                                   :IBUF8 #(10 5 210 9 4 0 160 0 2 0 0 0 0 0 0
                                            0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
                                   :NEXT #S(XLIB::REPLY-BUFFER
                                            :SIZE 9
                                            :IBUF8 #(9 0 210 9 4 0 160 0 2 0 0
                                                     0 0 0 0 0 0 0 0 0 0 0 0 0
                                                     0 0 0 0 0 0 0 0)
                                            :NEXT NIL
                                            :DATA-SIZE 32)
                                   :DATA-SIZE 32)
                          :DATA-SIZE 32)
                 :DATA-SIZE 32)
        :DATA-SIZE 32)
     #<FUNCTION STUMPWM::HANDLE-EVENT>)
22: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
23: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]324))
24: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
     #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {7FFFF4FA6079}>
     #S(SB-THREAD:MUTEX
        :NAME "CLX Event Lock"
        :%OWNER #<SB-THREAD:THREAD "initial thread" RUNNING {1002BC78D1}>
        :STATE 1))
25: (XLIB:PROCESS-EVENT
     #<XLIB:DISPLAY :0 (The X.Org Foundation R10707000)>
     :HANDLER
     #<FUNCTION STUMPWM::HANDLE-EVENT>
     :TIMEOUT
     NIL
     :PEEK-P
     NIL
     :DISCARD-P
     NIL
     :FORCE-OUTPUT-P
     T)
26: (STUMPWM::STUMPWM-INTERNAL-LOOP)
27: (STUMPWM::STUMPWM-INTERNAL ":0.0")
28: (STUMPWM ":0.0")
29: (SB-INT:SIMPLE-EVAL-IN-LEXENV (STUMPWM) #<NULL-LEXENV>)
30: (SB-FASL::LOAD-AS-SOURCE
     #<SB-SYS:FD-STREAM for "file /home/ancient/bin/stumpwm.lisp" {1004E42231}>
     NIL
     NIL)
31: ((FLET SB-FASL::LOAD-STREAM)
     #<SB-SYS:FD-STREAM for "file /home/ancient/bin/stumpwm.lisp" {1004E42231}>
     NIL)
32: (LOAD
     #P"/home/ancient/bin/stumpwm.lisp"
     :VERBOSE
     NIL
     :PRINT
     NIL
     :IF-DOES-NOT-EXIST
     T
     :EXTERNAL-FORMAT
     :DEFAULT)
33: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS
     ((:LOAD . "/home/ancient/bin/stumpwm.lisp")))
34: (SB-IMPL::TOPLEVEL-INIT)
35: ((LABELS SB-IMPL::RESTART-LISP))

debugger invoked on a XLIB:ALLOC-ERROR in thread #<THREAD
                                                   "initial thread" RUNNING
                                                   {1002BC78D1}>:
  ALLOC-ERROR in current request  Code 101.0 [GetKeyboardMapping]

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [QUIT-STUMPWM] Quit Stumpwm
  1: [CONTINUE    ] Ignore runtime option --load "/home/ancient/bin/stumpwm.lisp".
  2: [ABORT       ] Skip rest of --eval and --load options.
  3:                Skip to toplevel READ/EVAL/PRINT loop.
  4: [QUIT        ] Quit SBCL (calling #'QUIT, killing the process).

(STUMPWM::ERROR-HANDLER
 #<XLIB:DISPLAY :0 (The X.Org Foundation R10707000)>
 XLIB:ALLOC-ERROR
 :ASYNCHRONOUS
 NIL
 :CURRENT-SEQUENCE
 12
 :MAJOR
 101
 :MINOR
 0
 :SEQUENCE
 12)
source:

(T (APPLY 'ERROR ERROR-KEY :DISPLAY DISPLAY :ERROR-KEY ERROR-KEY KEY-VALS))
0]
IMPL::TOPLEVEL-INIT)
35: ((LABELS SB-IMPL::RESTART-LISP))

debugger invoked on a XLIB:ALLOC-ERROR in thread #<THREAD
                                                   "initial thread" RUNNING
                                                   {1002BC78D1}>:
  ALLOC-ERROR in current request  Code 101.0 [GetKeyboardMapping]

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [QUIT-STUMPWM] Quit Stumpwm
  1: [CONTINUE    ] Ignore runtime option --load "/home/ancient/bin/stumpwm.lisp".
  2: [ABORT       ] Skip rest of --eval and --load options.
  3:                Skip to toplevel READ/EVAL/PRINT loop.
  4: [QUIT        ] Quit SBCL (calling #'QUIT, killing the process).

(STUMPWM::ERROR-HANDLER
 #<XLIB:DISPLAY :0 (The X.Org Foundation R10707000)>
 XLIB:ALLOC-ERROR
 :ASYNCHRONOUS
 NIL
 :CURRENT-SEQUENCE
 12
 :MAJOR
 101
 :MINOR
 0
 :SEQUENCE
 12)
source:

(T (APPLY 'ERROR ERROR-KEY :DISPLAY DISPLAY :ERROR-KEY ERROR-KEY KEY-VALS))
0]

今年の抱負

今年の抱負

• 仕事を見つける。
  • 今月中には見つけないと路頭に迷ってしまいかねない。
  • 条件の優先順位はこんな感じ。
    1. 自宅でできる Common Lisp の仕事
    2. 自宅でできるプログラムの仕事
    3. Common Lisp の仕事
    4. プログラムの仕事
• 日常的に Common Lisp を使う。
  • ウインドマネージャ（Stumpwm）
    • 昨年からすでに常用している。
  • エディタ（Climacs）
    • Common Lisp で開発環境を改善していきた。
  • キーボードカスタマイズ（cl-mayu）
    • 年末から作り始めて最低限使えるようにはなったが、まだまだ改善が必要。
  • ブラウザ
    • これは無理だろうけど。
• T-Code をマスターする。
  • 変換不要の爽快感を求め、今年こそ T-Code に完全移行したい。
• あとは言葉にはしないけど大切なこと。

cl-mayu

mayu for linux を参考に作ったキーボードカスタマイズツールです。 SBCL で動きます。

カーネルモジュール uinput を使います。

uinput まわりは mayu for linux をおおいに参考にさせていただきました。ありがとうございす。

設定ファイル config.lisp は窓使いの憂鬱とは全く別ものです。

ソースは github にあります。 https://github.com/quek/info.read-eval-print.cl-mayu

参考

• 窓使いの憂鬱
• Linux Input Subsystemの使い方