Hena Hena Nikki

* [computer/update] Sylpheed ver.1.9.9

美しい GUI を持つ多機能と軽快さを兼ね備えた message user agent。 開発版としては約 1 週間ぶりの version up。

* [computer/update] AFPL Ghostscript 8.51

PostScript 関連の tool 群。 AFPL 系列としては約 4 ヶ月ぶりの version up。

* [myself] 昨日と今日のお仕事

複数の連絡ミスから痛い目に遭った。 ついでに自分のうっかりミスもあったので、今週後半はけっこう忙しくなっちゃいそう。 失敗失敗。

うーん、五月病かなぁ…。 好き勝手にやれる状況になるまでは我慢我慢。

* [computer/emacsen] Re: \M-m 押すのが面倒くさい

何か誤解されているようなので一応書いておきます。 僕が意図しているのは、\C-a を連打すると行頭と行の最初の非空白文字を行き来する、トグルの様な動作です。

(define-key global-map "\C-a"
  #'(lambda (arg)
      (interactive "p")
      (if (looking-at "^")
         (back-to-indentation)
        (beginning-of-line arg))))

こちらはおまけ (muneda さん向け)。 手抜きしてますが、こちらの方がある意味自然な動作なのかも。

(defun ys:beginning-of-line (&optional arg)
  (interactive "p")
  (if (and (eq last-command 'ys:beginning-of-line)
           (looking-at "^"))
      (back-to-indentation)
    (beginning-of-line arg)))
(defun ys:back-to-indentation (&optional arg)
  (interactive "p")
  (if (and (eq last-command 'ys:back-to-indentation)
           (not (looking-at "^")))
      (beginning-of-line arg)
    (back-to-indentation)))
(define-key global-map "\C-a" 'ys:beginning-of-line)
(define-key global-map "\M-m" 'ys:back-to-indentation)

• この日記には本日 名の方が訪問してくださっているようです。 また、昨日は 名の方が訪問してくださったようです。
• この日記の更新情報の取得には antenna.lirs を利用するのがおすすめです。