美しい GUI を持つ多機能と軽快さを兼ね備えた message user agent。 開発版としては約 1 週間ぶりの version up。
PostScript 関連の tool 群。 AFPL 系列としては約 4 ヶ月ぶりの version up。
複数の連絡ミスから痛い目に遭った。 ついでに自分のうっかりミスもあったので、今週後半はけっこう忙しくなっちゃいそう。 失敗失敗。
うーん、五月病かなぁ…。 好き勝手にやれる状況になるまでは我慢我慢。
何か誤解されているようなので一応書いておきます。 僕が意図しているのは、\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)