top  Index  Search  Changes  RSS  Login

MenuHack

メニューから凝った検索を発動したい - 2ch2:609, 2ch2:618-620n

メニューに書くなら, 基本はこんな感じです.

%eval%(howm-search "foo" t)  ;; 固定文字列
%eval%(howm-search "qu+x" nil)  ;; 正規表現

%eval% だと, 「メニューを呼ぶ前のバッファ」で評価されます. 今の話ではそんな小細工は不要でしょうから, ふつうに howm-menu-mode-map にキーバインドしても OK です.

;; (例) メニューで Z → /foo+/ を検索するが /ba+r/ は除く.
;; howm の load より後に.
;; howm-test050330 でテスト.
(define-key howm-menu-mode-map "Z" 'my-search-foo)
(defun my-search-foo ()
  (interactive)
  ;; ソートや絞り込みは howm-list-normalizer に預けるのを推奨
  ;; (処理途中の表示を抑制するため)
  (let ((howm-list-normalizer #'my-search-foo-normalizer))
    (howm-search "foo+" nil)))  ;; nil = 正規表現, t = 固定文字列
(defun my-search-foo-normalizer ()
  (howm-view-filter-by-contents t "ba+r") ;; t = 除外, nil = 採用
  (howm-view-sort-by-reverse-date))

howmのメニュー画面に移動したらIMEをOFFにしたい (CarbonEmacs) - 2ch3:634

こんなむりやりな手しか思いつきませんでした. 実際に試してはいません.

;; メニューバッファでは IME を強制 OFF?
(add-hook 'post-command-hook
  (lambda ()
    (when (eq major-mode 'howm-menu-mode)
      (mac-change-language-to-us)))
  t)

色をつけたい - 2ch3:969n

;; メニューの「> 日10 | ...」の曜日に色をつける.
;; howm-test130321 でテスト.

(defvar my-howm-menu-font-lock-rules nil)
(defadvice howm-menu-font-lock-rules (around my-rules activate)
  ad-do-it
  (setq ad-return-value
        (append ad-return-value my-howm-menu-font-lock-rules)))

(setq my-howm-menu-font-lock-rules
  '(("^> \\([月火水木金土日]\\)" 1 howm-view-empty-face t)))

メニューのフレームを固定

こういうこと??? > 2ch4:27n

;; メニューはいつも一定のフレームに開く
;; howm-1.4.2 でテスト
(require 'cl)
(defvar my-howm-menu-frame-name "howm-menu")
(defadvice howm-menu-open (around sticky-frame activate)
  (select-frame (or (cl-find my-howm-menu-frame-name (frame-list)
                             :test #'equal
                             :key (lambda (f) (frame-parameter f 'name)))
                    (make-frame `((name . ,my-howm-menu-frame-name)))))
  ad-do-it)

その他


(Please LogIn to post comments.)

Last modified:2015/01/31 19:43:58
Keyword(s):
References:[実装済]