hns - 日記自動生成システム - Version 2.19.9

先月 2004年02月 来月
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29
Namazu for hns による簡易全文検索
詳しくは 詳細指定/ヘルプを参照して下さい
検索式:

2004年02月06日(金) 旧暦 [n年日記]

#1 [Emacs] wl-2.10.1/wl-draft.el

2075 行から
(defun wl-draft-config-exec (&optional config-alist reply-buf)
...
   (when (and (or (interactive-p)
                   wl-draft-config-exec-flag)
               alist)
      (save-excursion
        (catch 'done
          (while alist
            (setq key (caar alist)
                  clist (cdar alist))
            (cond
             ((eq key 'reply)
...
             ((stringp key)
...
            ((eval key)
             (wl-append local-variables
                        (wl-draft-config-exec-sub clist))
              (setq found t)))
            (if (and found wl-draft-config-matchone)
                (throw 'done t))
            (setq alist (cdr alist))))
ここんとこ、合っているのかなぁという思いが。

eval の使い方:

(progn
  (setq a nil)
  (setq text '(setq a "a-value"))
  (princ a)
  (princ " (1)\n")
  (eval text)
  (princ a)
  (princ " (2)\n")
  nil
) ..... C-j
nil (1)
a-value (2)
nil
↑は(いつものように)僕の勘違い。見るべきは wl-draft-config-exec-sub の中だった。

lambda を使うのが正しいのかな。:

実はこれがやりたかっただけ。 wl-draft-colnfig-alist の中で:
((string-match  "to/home" wl-draft-parent-folder)
 ("From" .  "藤原 誠/ Makoto Fujiwara <hoge.foo@example.com>")
 (lambda () 
   (setq wl-x-face-file "~/.xface")
   (setq wl-auto-insert-x-face nil)
   (message "executing lambda expression") ))
↑ちょっと冗長ではある。(というか一行目は意味がない) それと、 wl-auto-insert-x-face って buffer local になってくれているのかな。 .. なってないようなので、上の方法はうまくない。
x-face を切替えるだけだったら、そういう名前も使えるらしいが。

wl-draft-config-alist ばんざい:

という感じで。... と思ったが、ちょっと時期の問題がある。 上のやり方では間に合わず、一つ後で draft を作る時に初めて有効に なる。
やはり x-face の名前で指定する方法が良い。

#2 [Emacs] apropos-command と apropos-symbol

C-h a って apropos-command
M-x apropos は apropos-symbol
なのかな。知らなかった ? ...
C-u C-h a が apropos command or function



最近の日記
2024年05月08日
comparison on ./buildsh tools
2024年05月06日
py-setuptools (python 3.11.9)
make release took 1 hours and 10 min
qemu invocation for 10.99.10
2024年05月05日
Windows 10 version
serial connection
bc bench
2024年05月04日
Trial on 10.99.10
another version (later trial) to succeed
2024年04月29日
dkim
以上、1 日分です。
タイトル一覧
カテゴリ分類
Powered by hns-2.19.9, HyperNikkiSystem Project

Count.cgi (since 2000/02/05)