[[About:self:AboutPage.txt]] | [[Profile:file/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:lisp/]] | [[あんてな:listall]] | [[■:lisp]] | [[buzz:files/southly#buzz]]

(defun delete-blank-lines-region (start end)
  (interactive "*r")
  (save-restriction
    (narrow-to-region start end)
    (save-excursion
      (goto-char (point-min))
      (while (and (scan-buffer "^$" :no-dup t :regexp t)
                  (not (eobp)))
        (delete-blank-lines)))))

RandomNote投稿lisp。
refwikiのPOST用も作ってみたり。公開はしないけど。
[[(ReadMore...) index.rb?1148233294.txt]]

• スペースとタブの話。
• スペースインデント派です。
• 混ざっていると#\TABをわざわざ表示させて、#\SPCとの違いを意識しないといけないのが面倒。
• 基本的に M-x untabify & M-x indent-buffer するので、受け取るときはどちらでもOK。
• けど、コメント部分で#\TABで揃えてある所があると悲しい。
• タブでインデントするときはタブ幅をちゃんと書いておいて欲しいなと思ったり。

• outline-tree2で十分、タブバーは非表示な人 ノシ
• もともとタブバーはnext-bufferの指標にしかしてなかったのかな〜とか思ったりします。

xyzzy/index.html

[[あの件 self:1143031173.txt]]とか[[この件 self:1142430169.txt]]とか。後者については採用感謝です。
(2006-03-30)
[[(ReadMore...) index.rb?1143961754.txt]]

機能的には[[しょぼしょぼすくりぷと http://www2.ocn.ne.jp/~cheerful/script/xyzzy/library/buffer.html#buffer_rename]]さんと同等。
ひとつ上のディレクトリでやめてしまうみたいだから自分で書いてみた。

(defun buffer-name-with-directory ()
  (let* ((buffer (selected-buffer))
         (name (buffer-name buffer))
         dirs)
    (when (string-match "<[0-9]+>" name)
      (setq dirs (reverse (pathname-directory (get-buffer-file-name buffer))))
      (setq name (format nil "~A/~A" (pop dirs) (file-namestring (get-buffer-file-name buffer))))
      (while (and dirs (dolist (x (buffer-list))
                         (if (string= (buffer-name x) name)
                             (return t))))
        (setq name (format nil "~A/~A" (pop dirs) name)))
      (rename-buffer (abbreviate-display-string name 40) buffer))))
(add-hook '*find-file-hooks* 'buffer-name-with-directory)