* Menu

Scrapbook : 「プログラミングをしない人が考えていること」を聞いてみた：ITpro
xyzzy lisp : center-line
xyzzy topic : はてダラをつかいやすく
xyzzy lisp : popup-gmark.l
xyzzy topic : HE.l公開。HE-grep.l, その他更新(きまぐれにxyzzy)
xyzzy lisp : ディレクトリ付きにしてユニークなバッファ名に
xyzzy lisp : global-mark を popup の続き
2006-03-22
xyzzy lisp : global-mark を popup
xyzzy topic : $XYZZY/lispのファイルはread-onlyで開く
2006-03-15
clispでcgi
xyzzy lisp :
2006-03-05
emacs lisp :

page 11 - << : 0 : 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : >>

* Scrapbook : 「プログラミングをしない人が考えていること」を聞いてみた：ITpro

http://itpro.nikkeibp.co.jp/article/OPINION/20060324/233229/

LispとFORTRANについて確認しているのが高評価(笑)

* xyzzy lisp : center-line

使ってみた感じだとこっちのほうがよさそう。

(in-package "editor")
; from $XYZZY/lisp/textmode.l
(defun center-line (&optional (arg 1))
  (interactive "*p")
  (center-region (progn (goto-bol) (point))
                 (progn
                   (forward-line arg)
                   (point))))

同じ感じでこういうのも。

(defun fill-line (&optional (arg 1))
  (interactive "*p")
  (fill-region (progn (goto-bol) (point))
               (progn (forward-line arg) (point))))

* xyzzy topic : はてダラをつかいやすく

http://d.hatena.ne.jp/takef/20060326
ダイアリーとグループに対応した模様。
さらにプレビューもできるようになったようです。

Lispはこのくらいの長さになると実行せずにコメントできませんね。

* xyzzy lisp : popup-gmark.l

[[popup-gmark.l gmark.l]]
[[gmark-session.l session.l]]

以前gmark-session.lを書いたのはおよそ2年前か。
多少マシになっているかも。

* xyzzy topic : HE.l公開。HE-grep.l, その他更新(きまぐれにxyzzy)

http://members3.jcom.home.ne.jp/2116826401/kimagurenixyzzy.html

HE.l は Hyper Estraier を利用して検索を行うLisp
HE-grep.lではインデックス作成関係で機能が追加

(2006-03-23)

NetInstaller 対応
HE-grep.lではhowm-wrap関連の設定が追加

(2006-03-25)

* xyzzy lisp : ディレクトリ付きにしてユニークなバッファ名に

機能的には[[しょぼしょぼすくりぷと 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)

* xyzzy lisp : global-mark を popup の続き