一人お手軽 Wiki もどき howm part4

あらスレが立ってる
http://milkode.ongaeshi.me/ でも入れてメニュー画面描写と検索の高速化をしようとしたけれど
インストールからなぜか躓いてしまって諦めたことを思い出した

時間がかかっている原因はカラーリング処理だと思うんだけれど
それを高速化するにはhowm本体をいじらなきゃならないんだよね...

13 ：名無しさん＠お腹いっぱい。：2014/04/26(土) 11:40:49.15

>>9
grepを使ってる
platinum searcherでも使えばもっと速くなるだろうけれど

14 ：名無しさん＠お腹いっぱい。：2014/04/27(日) 17:18:06.23

>>1の一つ目のリンクにあるチュートリアルが見れない
(TUTORIAL.ja.rdをダウンロードしてしまう)
どうすれば見れる？

15 ：名無しさん＠お腹いっぱい。：2014/04/29(火) 18:50:55.46

>>14
ダウンロードしたのをそのまま開けばいいんじゃねーの？

16 ：名無しさん＠お腹いっぱい。：2014/05/08(木) 17:53:17.87

>>15
見れました

17 ：名無しさん＠お腹いっぱい。：2014/05/12(月) 14:52:10.07

メモを開く時、前回編集した場所から開くようにするにはどうすればよい
でしょうか（デフォルトだとメモのタイトルから開く）。基本的なこととして、
~/.emacs に

> (load "saveplace")
> (setq-default save-place t)

と書いてますが howm では反映されません。add-hook してみましたが駄目でした。

> (add-hook 'howm-mode-hook
> (lambda ()
> (setq save-place t)
> ))

ご存知の方、よろしくです。m(_ _)m

18 ：名無しさん＠お腹いっぱい。：2014/05/13(火) 20:27:14.59

>>17
リスト画面でタイトル表示してる時の事？

(defun my-howm-listview-open-file ()
(interactive)
(find-file (nth 0 (nth (- (howm-view-line-number) 1) (howm-view-item-list)))))

(define-key howm-view-summary-mode-map (kbd "C-o") 'my-howm-listview-open-file)

これでリスト画面でC-oしたらそうなるような気もしなくもない

19 ：名無しさん＠お腹いっぱい。：2014/05/31(土) 10:06:34.98

20 ：名無しさん＠お腹いっぱい。：2014/06/18(水) 02:31:51.65

21 ：名無しさん＠お腹いっぱい。：2014/06/21(土) 00:06:23.18

メモを開いて，その bufferを killしたらメニューに戻るようにしたい
のですがどうしたらよいでしょうか？

22 ：名無しさん＠お腹いっぱい。：2014/06/21(土) 12:50:59.27

そのまんまの処理だけれどこんな感じかな？
(defun my-kill-buffer ()
(interactive)
(save-buffer)
(kill-buffer nil)
(howm-menu))

23 ：名無しさん＠お腹いっぱい。：2014/06/23(月) 22:57:45.04

>>22
ありがとうございます！できました！

;; ttp://www.bookshelf.jp/soft/meadow_38.html#SEC542
;; ttp://howm.sourceforge.jp/cgi-bin/hiki/hiki.cgi?SaveAndKillBuffer
;; C-cC-c で保存してバッファをキルする
(defun my-save-and-kill-buffer ()
(interactive)
(when (and
(buffer-file-name)
(string-match "\\.howm\\|\\.txt"
(buffer-file-name)))
(save-buffer)
; (kill-buffer nil)))
(kill-buffer nil)
(howm-menu) ; NEW!
))
(eval-after-load "howm-mode"
'(progn
(define-key howm-mode-map
"\C-c\C-c" 'my-save-and-kill-buffer)))

24 ：名無しさん＠お腹いっぱい。：2014/10/04(土) 22:07:01.53

Emacs 24.3.1 & howm 1.4.2 で空のファイルを削除するのに、
どこかで見かけた次の設定をしてます。

(if (not (memq 'delete-file-if-no-contents after-save-hook))
(setq after-save-hook
(cons 'delete-file-if-no-contents after-save-hook)))
(defun delete-file-if-no-contents ()
(when (and
(buffer-file-name (current-buffer))
(string-match "\\.howm" (buffer-file-name (current-buffer)))
(= (point-min) (point-max)))
(delete-file
(buffer-file-name (current-buffer)))))

~/.howm-keys がないと自動的に再生成されますが、
そのときに繰り返し delete-file-if-no-contents が呼ばれ、
次のようなメッセージが出て生成に失敗します。

Generating ~/.howm-keys ...
let*: Lisp nesting exceeds `max-lisp-eval-depth'

上の設定がなければ問題ないようですが、
どのように対処するべきでしょうか？

25 ：名無しさん＠お腹いっぱい。：2014/10/06(月) 20:06:06.42

>>24
"\\.howm" → "\\.howm$"

26 ：24：2014/10/06(月) 20:38:24.44

>>25
ありがとうございます。

27 ：名無しさん＠お腹いっぱい。：2015/01/27(火) 11:44:35.24

既存のメモを開いたり、新規のメモを作成する時に、
新しいframeで編集したいと思い、以下を設定しています。

(defun howm-create-new-frame ()
(interactive)
(select-frame (make-frame)))

(add-hook 'howm-create-file-hook 'howm-create-new-frame)
(add-hook 'howm-view-open-hook 'howm-create-new-frame)

うまく動作するのですが、これだとメニューのframeにも
メモが表示されてしまいます。メニューのframeはメニューで
固定したいのですが、どうすればいいでしょうか。

28 ：名無しさん＠お腹いっぱい。：2015/01/31(土) 21:01:35.84

>>27
http://howm.sourceforge.jp/cgi-bin/hiki/hiki.cgi?MenuHack

29 ：27：2015/02/02(月) 18:56:28.65

>>28 どうもです。

自分で書いた内容を読み返してみましたが、何がしたいのか
よくわかんないですね。記載していただいた内容を確認しましたが、
残念ながら自分がやりたい挙動ではありませんでした。

長らく elscreen-howm を使っていたのですが、elscreenの
代りに frame を使ってみたかったのです。

hookしか知らない古代人なので、おかげさまでdefadviceを
知りました。結局自分がやりたかったことは

(defadvice howm-create-file (around frame-howm-create-file activate)
(save-current-buffer
(select-frame (make-frame)))
ad-do-it)

(defadvice howm-view-open-item (around frame-howm-view-open-item activate)
(save-current-buffer
(select-frame (make-frame)))
ad-do-it)

これで解決しました。howm 1.4.2 + emacs24.4(Windows7 32bit)

30 ：27：2015/02/02(月) 18:57:18.98

あと、elscreen-howm からパクった

(defun howm-save-and-kill-buffer-frame ()
(interactive)
(let* ((file-name (buffer-name)))
(if (save-excursion
(goto-char (point-min))
(re-search-forward "[^ \t\r\n]" nil t))
(howm-save-buffer)
(set-buffer-modified-p nil)
(when (file-exists-p file-name)
(delete-file file-name)
(message "(Deleted %s)" (file-name-nondirectory file-name))))
(kill-buffer nil)
(delete-frame)))

(define-key howm-mode-map
"\C-c\C-c" 'howm-save-and-kill-buffer-frame)

の組み合わせで自分では快適ですが、howmの思想からは外れて
いるかもしれません。

31 ：27：2015/02/02(月) 21:22:41.15

あぁ、わし >>28 やった。