No Such Blog or Diary

ついでなので，元のリージョンの内容を出力の上部にコメントとして出力するものも作った．

(defun perform-command-region (start end command)
  (interactive 
   (let (string)
     (unless (mark)
       (error "The mark is not set now, so there is no region"))
     ;; Do this before calling region-beginning
     ;; and region-end, in case subprocess output
     ;; relocates them while we are in the minibuffer.
     (setq string (read-from-minibuffer "Shell command on region: "
					nil nil nil
					'shell-command-history))
     ;; call-interactively recognizes region-beginning and
     ;; region-end specially, leaving them in the history.
     (list (region-beginning) (region-end)  string)))
  (let (exit-status)
    ;; Replace specified region with output from command.
    (let ((swap (< start end)))
      (goto-char start)
      (kill-region start end)
      (yank)
      (push-mark (point) 'nomsg)
      (setq exit-status
	    ;; see describe-function
	    ;; error output is marged into standard output
	    (call-process-region start end shell-file-name t
				 (list t t)
				 nil shell-command-switch command))
      ;; swap the point and mark if necessary
      (and swap (exchange-point-and-mark))
      ;; mark current position
      (setq p1 (point-marker))
      (set-marker-insertion-type p1 nil)
      ;; yank the original contents
      (yank nil) 
      (setq p2 (point-marker)) 
      ;; comment the yanked contents
      (comment-region (marker-position p1) (marker-position p2))
      (setq p1 nil)
      (setq p1 nil))
    exit-status))
(define-key global-map [(control meta ?!)] 'perform-command-region)

そして C-M-! で発動すると．これって comment-region がない場合にどうなるんだろう？

二通りの立場が混ぜ合わされていることを指摘される．指摘されるとわかるのだが，執筆中はローカルの最適解へ向かってしまうため気づかない．もう少しグローバルな最適化をちゃんとすべきだなぁ．何はともあれ，さっさと直して１０ページに収めましょう．

へんな負荷をかけたら突然ウィンドウがまったく開かなくなった．どうやらお仕事したくなくなったらしい．しょうがないのでまっさらに記憶喪失になってもらうことにした．とりあえずWebとメールは復旧したがそれ以外のツール群が…　すでに半日つぶしたので後はレイジーにインストールしよう．

describe-function というコマンドで見つかるらしい．

消防車のサイレンで二度寝できず外に出てみたら煙が…　出火原因は良く分からんけど最近乾燥しとるので火の元には注意しようかと思う．

どうみてもBINDの設定がGUIでは最低限しか出来ない．view 設定で内向きと外向きを切り替えるとか全く出来なさそう．隠しメニューとかあって出来るのかもしれないが…　見つけられん．よって GUI で DNS の設定をするのはあきらめましょう．