■ [症状] 何をしたら, どうなってほしいのに, どうなった?
悪い例 「カタカナを検索すると…」
良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします)
→ 巣の状態でhowm-menuを立ち上げると、cl 由来の caddr が見つからずにエラーになる
■ [テスト1] make test や test.bat からその操作をしても, 症状が出る?
→ git レポジトリの 866d97c の状態で出ます
■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する?
「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」
により, 発症させる設定を探ってください
→ howm-var.el で以下の修正で問題が解消しました
@@ -249,7 +249,7 @@ A file is excluded iff this regexp matches with all the relative paths."
(ret 'en))
(mapc (lambda (rule)
(if (or (string= lang (cadr rule))
- (string-match (caddr rule) locale))
+ (string-match (cl-caddr rule) locale))
(setq ret (car rule))))
lang-table)
ret))
■ バージョン howm: 1.4.5-snapshot (compile: nil, make: nil, test: t) Emacs: 25.3.2 (x86_64-pc-linux-gnu) of 2017-09-13 system: gnu/linux window system: x ENV: LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=nil, LANG=en_US.UTF-8
■ [症状] 何をしたら, どうなってほしいのに, どうなった? 悪い例 「カタカナを検索すると…」 良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします) → C-c , c で新しいメモを作成した時、自動で howm-mode になってくれない。 ■ [テスト1] make test や test.bat からその操作をしても, 症状が出る? → 出ます。 ■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する? 「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」 により, 発症させる設定を探ってください → ■ バージョン howm: test130318 (compile: t, make: t, test: bat) Emacs: 24.3.1 (i386-mingw-nt6.1.7601) of 2013-03-18 system: windows-nt window system: w32 ENV: LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=nil, LANG=JPN
====================================================================== 1 -> howm-subdirectory-p: dir="e:/Users/home/.emacs.d/elisp/howm-test130318/sample/" target="e:/Users/home/Dropbox/dotfiles/.emacs.d/elisp/howm-test130318/sample/2013/03/2013-03-21-210520.txt" strict=nil 1 <- howm-subdirectory-p: nil
■ [症状] 何をしたら, どうなってほしいのに, どうなった? 悪い例 「カタカナを検索すると…」 良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします) → Emacs 24.3.1でmake testを実行した状態で、C-c,,と入力すると、 (error "Can't detect type of ((:nest ...とエラーが表示され、 メニュー画面が出ない。 ■ [テスト1] make test や test.bat からその操作をしても, 症状が出る? → 出ます。 ■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する? 「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」 により, 発症させる設定を探ってください → ■ バージョン howm: 1.4.1 (compile: nil, make: nil, test: t) Emacs: 24.3.1 (x86_64--netbsd) of 2013-03-16 system: berkeley-unix window system: x ENV: LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=nil, LANG=ja_JP.UTF-8
■ [症状] 何をしたら, どうなってほしいのに, どうなった? 悪い例 「カタカナを検索すると…」 良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします) → メニュー画面でa[一覧]をすると結果が表示されるまで40秒かかります。 howm-1.3.9.2では1秒くらいで表示されましたが、1.4.0にしたらこのようになりました。 ■ [テスト1] make test や test.bat からその操作をしても, 症状が出る? → いいえ ■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する? 「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」 により, 発症させる設定を探ってください → .emacsに (setq howm-view-use-grep t) と記述していると上記の症状が出ました。 これをコメントアウトしたら、1秒くらいで一覧が表示されるようになりました。 ■ バージョン howm: 1.4.0 (compile: t, make: t, test: t) Emacs: 23.4.1 (i686-pc-linux-gnu) of 2012-09-23 system: gnu/linux window system: x ENV: LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=nil, LANG=ja_JP.UTF-8
(setq howm-view-search-in-result-correctly nil) (setq howm-view-title-skip-regexp nil) (setq howm-file-name-format "%Y/%m/%Y-%m-%d-%H%M%S.howm") (setq howm-action-lock-forward-fuzziness 0) (setq howm-menu-reminder-separators nil) (setq howm-schedule-sort-by-time nil) (setq howm-occur-force-fake-grep nil)
■ [症状] 何をしたら, どうなってほしいのに, どうなった?
C-c , , s hoge RET と入力すると、*Backtrace* バッファに件名のLisp errorが出力される
*Backtrace* バッファで q をすると、上下に分割された *howmS* バッファと *howmC* バッファが表示される。*howmS* バッファには正しいと思われる検索結果が 表示されるが、*howmC* バッファは白紙状態になっている。 この時、カーソルは *howmC* バッファに存在する。 *howmC* バッファから *howmS* バッファに移動するために C-x o した後に n をすると、*howmS* バッファ上のカーソルは下の行に移動するが、 フォーカスが *howmC* に移ってしまう。
■ [テスト1] make test や test.bat からその操作をしても, 症状が出る?
上記の症状がでます
■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する?
■ バージョン
howm: 1.3.9.2 (compile: t, make: t, test: t) Emacs: 24.0.93.1 (x86_64-apple-darwin11.3.0) of 2012-02-04 system: darwin window system: ns ENV: LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=nil, LANG=ja_JP.UTF-8
■ [症状] 何をしたら, どうなってほしいのに, どうなった?
→ \C-c , a を入力して *howmS* をひらくと,
*howmS* と *howmC* の2ペインの状態となってほしいのに, *howmS*, *howmC*, 何か適当なバッファ(*scratch*など), という3ペインの状態となります. どうも riffle-pop-to-buffer で *howmC* を出す際に, フレームサイズが大きすぎると pop-to-buffer が勝手に分割を行うようです. (なお, 「フレームサイズが大きすぎると」と書きましたが, ある程度フレームを小さくすると (例えば 横1000x縦1000 程度では) きちんと２ペインに分割されています)
pop-to-buffer の呼び出し前に pop-up-windows という変数を nil に設定しておくと pop-to-buffer が分割しなくなり 2ペインになることを確認しています.
■ [テスト1] make test や test.bat からその操作をしても, 症状が出る?
→ 出ます.
(が, 以前はこんな症状にならなかったような気もしています. Ubuntu 11.04 の emacs が壊れているだけかもしれません??)
■ バージョン
howm: 1.3.9.2rc3 (compile: t, make: t, test: t) Emacs: 23.2.1 (x86_64-pc-linux-gnu) of 2011-04-04 system: gnu/linux window system: x ENV: LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=ja_JP:en, LANG=ja_JP.UTF-8
■ [症状] 何をしたら, どうなってほしいのに, どうなった? → 表題の通りです. 恐らく既知の症状だと思いますが, howm-vars.el を byte-compile していると, load 時に old-style backqoute detected! の警告が出ます. # howm-define-risky-command の二つ目の `(progn だと思います. 実用上は問題は無いので特に困りませんが, 一応ご報告しておきます. Debian のパッケージは howm-vars.el のみ byte-compile しない様に しておきます. ■ バージョン howm: 1.3.9.1 (Debian official Package) (compile: t, make: nil, test: t) Emacs: 23.2.1 (x86_64-pc-linux-gnu) of 2010-12-12 system: gnu/linux window system: x ENV: LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=nil, LANG=ja_JP.UTF-8
※ make test や test.bat では, テスト用環境(ほぼ無設定の emacs)が起動します.
バグの指摘をくださる方へ: (1) このバッファを保存してください. (2) 下のテストをしてください. (3) emacs をふつうに起動し直し, 保存したファイルの → に結果を記入してください.
---------------------------------------------------------
■ [症状] 何をしたら, どうなってほしいのに, どうなった?
悪い例 「カタカナを検索すると…」 良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします)
→ 全メモ(1300以上のファイル)を修正後(mtime変更)、C- , lをするとエラーが出る。 file-error "Spawning child process" "exec format error")
■ [テスト1] make test や test.bat からその操作をしても, 症状が出る?
→ 出る。*Backtrace*の内容を以下に書きます。
なお(length howm-call-process-last-command)の結果は、現象発生時及び正常時共に、 4 でした。
Debugger entered--Lisp error: (file-error "Spawning child process" "exec format error")
call-process-region(1 1 "c:/cygwin/bin/grep" "o:/export/home/hoge/tmp/ema04292" (t nil)
nil "-E" "-i" "-Hnr" "--exclude-dir=RCS" "--exclude-dir=CVS" "--exclude-dir=.svn"
"--exclude-dir=_darcs" "-e" "^\\* +"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.howm"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-29-142452.txt"
;;-----------------------------------------------------------
;; snipped
;; 1361行
;;-----------------------------------------------------------
"o:/export/home/hoge/tmp/sample/.howm/challenge.txt") apply(call-process-region
(1 1 "c:/cygwin/bin/grep" t (t nil) nil "-E" "-i" "-Hnr" "--exclude-dir=RCS"
"--exclude-dir=CVS" "--exclude-dir=.svn" "--exclude-dir=_darcs" "-e" "^\\* +"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.howm"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-29-142452.txt"
;;-----------------------------------------------------------
;; snipped
;; 32行
;;-----------------------------------------------------------
"o:/export/home/hoge/tmp/sample/.howm/2004/10/2004-10-20-094250.txt" ...))
howm-call-process-here("c:/cygwin/bin/grep" ("-E" "-i" "-Hnr" "--exclude-dir=RCS"
"--exclude-dir=CVS" "--exclude-dir=.svn" "--exclude-dir=_darcs" "-e" "^\\* +"
"o:/export/home/taku/tmp/sample/.howm/0000-00-00-000000.howm"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-29-142452.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-31-200330.txt"
;;-----------------------------------------------------------
;; snipped
;; 37行
;;-----------------------------------------------------------
"o:/export/home/hoge/tmp/sample/.howm/2004/10/2004-10-25-144947.txt" ...) nil)
howm-call-process("c:/cygwin/bin/grep" ("-E" "-i" "-Hnr" "--exclude-dir=RCS"
"--exclude-dir=CVS" "--exclude-dir=.svn" "--exclude-dir=_darcs" "-e" "^\\* +"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.howm"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-29-142452.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-31-200330.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/06/2004-06-03-084247.txt"
;;-----------------------------------------------------------
;; snipped
;; 36行
;;-----------------------------------------------------------
"o:/export/home/hoge/tmp/sample/.howm/2004/10/2004-10-25-144947.txt" ...))
howm-real-grep-single(("^\\* +")
("o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.howm"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-29-142452.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-31-200330.txt"
;;-----------------------------------------------------------
;; snipped
;; 46行
;;-----------------------------------------------------------
"o:/export/home/hoge/tmp/sample/.howm/2004/11/2004-11-22-134232.txt" ...) nil nil)
howm-real-grep(("^\\* +") ("o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.howm"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-29-142452.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-31-200330.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/06/2004-06-03-084247.txt"
;;-----------------------------------------------------------
;; snipped
;; 46行
;;-----------------------------------------------------------
"o:/export/home/hoge/tmp/sample/.howm/2004/11/2004-11-22-134232.txt" ...) nil nil)
howm-grep(("^\\* +") ("o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.howm"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-29-142452.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-31-200330.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/06/2004-06-03-084247.txt"
;;-----------------------------------------------------------
;; snipped
;; 45行
;;-----------------------------------------------------------
"o:/export/home/hoge/tmp/sample/.howm/2004/11/2004-11-22-134232.txt" ...) nil)
howm-grep-items(("^\\* +")
("o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.howm"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-29-142452.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-31-200330.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/06/2004-06-03-084247.txt"
;;-----------------------------------------------------------
;; snipped
;; 45行
;;-----------------------------------------------------------
"o:/export/home/hoge/tmp/sample/.howm/2004/11/2004-11-22-134232.txt" ...) nil)
howm-folder-grep-internal:files((:files
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.howm"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-29-142452.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-31-200330.txt"
;;-----------------------------------------------------------
;; snipped
;; 45行
;;-----------------------------------------------------------
"o:/export/home/hoge/tmp/sample/.howm/2004/11/2004-11-18-192315.txt" ...) ("^\\* +")
nil)
howm-folder-grep-internal:pages-files(("o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.howm"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-29-142452.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-31-200330.txt"
;;-----------------------------------------------------------
;; snipped
;; 45行
;;-----------------------------------------------------------
"o:/export/home/hoge/tmp/sample/.howm/2004/11/2004-11-22-134232.txt" ...) ("^\\* +")
nil) #[(p) "@Aﾆﾇ\n \"A! \f
#+・ [p searcher type h pages pattern
reverse assoc fixed-p] 4]((:file . howm-folder-grep-internal:pages-files)) mapcar(#[(p) "@Aﾆﾇ\n \"A! \f
#+・ [p searcher type h pages pattern reverse assoc
fixed-p] 4] ((:file . howm-folder-grep-internal:pages-files) (:buf
. howm-folder-grep-internal:pages-buffers))) howm-folder-grep-internal:pages((:pages
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.howm"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-29-142452.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-31-200330.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/06/2004-06-03-084247.txt"
;;-----------------------------------------------------------
;; snipped
;; 44行
;;-----------------------------------------------------------
"o:/export/home/hoge/tmp/sample/.howm/2004/11/2004-11-18-192315.txt" ...) ("^\\* +")
nil) apply(howm-folder-grep-internal:pages ((:pages
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.howm"
"o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-29-142452.txt"
"o:/export/home/hoge/tmp/sample/.howm/2004/05/2004-05-31-200330.txt"
;;-----------------------------------------------------------
;; snipped
;; 45行
;;-----------------------------------------------------------
"o:/export/home/hoge/tmp/sample/.howm/2004/11/2004-11-18-192315.txt" ...) ("^\\* +")
nil)) byte-code("・
■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する?
「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」 により, 発症させる設定を探ってください
→ dot.emacsの内容を以下に書きます。 ;;;; -*- mode: lisp-interaction; syntax: elisp; coding: iso-2022-7bit; buffer-read-only:t -*- ;;;; ;;;; Copyright (C) 2001 The Meadow Team
;; Author: Koichiro Ohba <koichiro@meadowy.org> ;; Kyotaro HORIGUCHI <horiguti@meadowy.org> ;; Hideyuki SHIRAI <shirai@meadowy.org> ;; KOSEKI Yoshinori <kose@meadowy.org> ;; and The Meadow Team.
;;; load-pathの設定 (setq load-path
(append
(list
(expand-file-name "d:/usr/local/share/meadow3/lisp")
(expand-file-name "d:/usr/local/share/meadow3/site-lisp")
)
load-path))
(setq debug-on-error t) (setq inhibit-startup-message t)
(require 'subst-win) (require 'un-supple) ; これと下の行は全角チルダ/波ダッシュを (un-supple-enable 'windows) ; Windowsスタイルにするため (utf-translate-cjk-mode 1)
(utf-translate-cjk-set-unicode-range
'((#x00a2 . #x00a3) ; ¢, £
(#x00a7 . #x00a8) ; §, ¨
(#x00ac . #x00ac) ; ¬
(#x00b0 . #x00b1) ; °, ±
(#x00b4 . #x00b4) ; ´
(#x00b6 . #x00b6) ; ¶
(#x00d7 . #x00d7) ; ×
(#X00f7 . #x00f7) ; ÷
(#x0370 . #x03ff) ; Greek and Coptic
(#x0400 . #x04FF) ; Cyrillic
(#x2000 . #x206F) ; General Punctuation
(#x2100 . #x214F) ; Letterlike Symbols
(#x2190 . #x21FF) ; Arrows
(#x2200 . #x22FF) ; Mathematical Operators
(#x2300 . #x23FF) ; Miscellaneous Technical
(#x2500 . #x257F) ; Box Drawing
(#x25A0 . #x25FF) ; Geometric Shapes
(#x2600 . #x26FF) ; Miscellaneous Symbols
(#x2e80 . #xd7a3) (#xff00 . #xffef)))
;;; 日本語環境設定 (set-language-environment "Japanese") ;;; lispローカル変数 (setq safe-local-variable-values (quote ((syntax . elisp) (buffer-read-only . t))))
(setq inhibit-default-init t)
;;; font-lockの設定 (global-font-lock-mode t)
;;; fakecygpty の設定 ;; この設定で cygwin の仮想端末を要求するプログラムを Meadow から ;; 扱えるようになります (setq mw32-process-wrapper-alist
'(("/\\(bash\\|tcsh\\|svn\\|ssh\\|gpg[esvk]?\\)\\.exe" .
(nil . "fakecygpty.exe"))))
;;;----------------------------------- ;;; My Settings ;;;-----------------------------------
;;; Japanese Settings (set-default-coding-systems 'utf-8-unix) (setq file-name-coding-system 'cp932-dos)
;; Meadow3だけの特別対応 (setenv "TZ" "JST-9") (setq system-time-locale "C") (setenv "LANG" "C") (setenv "LC_ALL" "C")
;; ;; 細々とした設定 ;; (setq scroll-preserve-screen-position t) (setq kill-ring-max 100) (setq kill-ring-max 200) (setq max-specpdl-size 3000) (setq indent-line-function 'indent-relative-maybe) (setq eval-expression-print-level nil
eval-expression-print-length nil
eval-expression-debug-on-error nil)
;; ファイルローカルの変数は使わない (setq enable-local-eval nil)
;;; 日本語grepオプション ;;(setq find-grep-options "-s -q -K SSE ") ;;(setq grep-command "grep -n -K SSE -e ") (setq find-program "/usr/bin/find.exe") (setq find-dired-find-program "/usr/bin/find.exe") (setq grep-find-command "/usr/local/bin/lgrep") (setq grep-command "/usr/local/bin/lgrep") (setq grep-program "/usr/local/bin/lgrep") (setq find-grep-options "lgrep -n -Ia")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; org-mode ;;; -> http://hpcgi1.nifty.com/spen/index.cgi?OrgMode%2fOrgTutorial (when (locate-library "org")
(define-key global-map "\C-cl" 'org-store-link) (define-key global-map "\C-ca" 'org-agenda) (setq org-log-done t)
) ;;; end of org-mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; howm(メモ管理ツール) ;;; -> http://howm.sourceforge.jp (when (locate-library "howm")
;; (setq howm-process-coding-system 'japanese-shift-jis-dos) (setq howm-process-coding-system '(utf-8-unix . sjis-unix)) (setq howm-menu-lang 'ja) (setq howm-sample-directory "o:/export/home/hoge/tmp/sample/.howm") (setq howm-directory howm-sample-directory) (setq howm-menu-file "o:/export/home/hoge/tmp/sample/.howm/0000-00-00-000000.txt") (setq howm-keyword-file (expand-file-name ".howm-keys" howm-sample-directory)) (setq howm-history-file (expand-file-name ".howm-history" howm-sample-directory)) (setq howm-history-limit nil) ;; Don't erase my ~/.howm-history.
;; メモフォーマットをorgに
(require 'org)
(add-hook 'org-mode-hook 'howm-mode)
(add-to-list 'auto-mode-alist '("\\.howm$" . org-mode))
(add-to-list 'auto-mode-alist '("\\.txt$" . org-mode))
(setq howm-view-title-header "*") ;; ← howm のロードより前に書くこと
(setq org-startup-folded nil)
;; 一覧バッファや内容バッファからファイルを開く際に ;; バッファローカル変数を再設定 (add-hook 'howm-view-open-hook 'hack-local-variables)
;; M-x howm-extend-deadline 時に, read-only なバッファも強制書きかえ.
;; howm-test090205 でテスト.
(defadvice howm-extend-deadline-here (around ignore-read-only activate)
(let ((buffer-read-only nil))
ad-do-it))
;; 検索除外拡張子
;; (setq howm-excluded-file-regexp "\\(^\|/\\)\\([.]\|CVS/\\)\|[~#]$\|\\.\\(bak\|elc\|gz\|aux\|toc\|idx\|dvi\|jpg\|gif\|png\\)$")
;; *.howm だけを検索対象に. howm-1.3.7rc3 でテスト.
(defadvice howm-exclude-p (around howm-suffix-only (filename) activate)
ad-do-it
(setq ad-return-value
(or ad-return-value
;; include directories and *.howm
(not (or (file-directory-p filename)
(string-match "[.]howm$" filename)
(string-match "[.]txt$" filename)
)
)
)))
;; テンプレートを変更
(setq howm-template "#;; -*- Coding: mule-utf-8-unix; buffer-read-only: t -*-\n* %title%cursor\n\n")
;; メモのデフォルト拡張子を.howmに
(setq howm-file-name-format "%Y/%m/%Y-%m-%d-%H%M%S.txt")
(setq action-lock-switch-default '("{ }" "{*}" "{-}" "{+}" "{?}" "{o}" "{x}"))
;;(setq action-lock-switch-default '("{ }" "{*}" "{-}"))
(setq action-lock-date-default '("{_}" "[%Y-%m-%d %a %H:%M JST]"))
(setq howm-dtime-format "[%Y-%m-%d %a %H:%M JST]") ;; {_}
;; (setq howm-view-grep-log-file "~/.howm-log") ;; テスト中
(setq howm-menu-todo-priority -66666)
(global-set-key "\C-c,," 'howm-menu)
(mapc
(lambda (f)
(autoload f
"howm" "Hitori Otegaru Wiki Modoki" t))
'(howm-menu howm-list-all howm-list-recent
howm-list-grep howm-create
howm-keyword-to-kill-ring))
;; リンクを TAB で辿る
(eval-after-load "howm"
'(progn
(define-key howm-mode-map [tab] 'action-lock-goto-next-link)
(define-key howm-mode-map [(meta tab)] 'action-lock-goto-previous-link)))
;; GNU grepを使用する (setq howm-view-use-grep t) ;; (setq howm-view-grep-command "c:/cygwin/bin/grep") ;; (setq howm-view-fgrep-command "c:/cygwin/bin/grep") (setq howm-view-grep-command "c:/cygwin/bin/grep") (setq howm-view-fgrep-command "c:/cygwin/bin/grep") (setq howm-view-grep-extended-option "-E") (setq howm-view-grep-fixed-option "-F") ;; (setq howm-view-grep-command "c:/cygwin/bin/egrep") ;; (setq howm-view-fgrep-command "c:/cygwin/bin/fgrep") ;;(setq howm-view-use-grep t) ;;(setq howm-view-fgrep-command "howm-lgrep.sh") ;;(setq howm-view-grep-command "howm-lgrep.sh") ;;(setq howm-view-grep-file-stdin-option nil)
(setq howm-view-grep-file-stdin-option nil) ;; パターンは引数で渡す ;; howm-template が関数だったときは, universal-argument を ;; 引数にしてそいつを呼ぶ (setq howm-template-receive-buffer nil) ;; 一覧から RET で開くとき, 内容バッファのカーソル位置を保たない (setq howm-view-summary-keep-cursor nil)
;; 「最近のメモ」一覧時にタイトル表示 (setq howm-list-recent-title nil) ;; 全メモ一覧時にタイトル表示 (setq howm-list-all-title nil) ;; メニューを 2 時間キャッシュ (setq howm-menu-expiry-hours 2)
;; 検索履歴を記録しない (setq howm-history-limit 0)
;; 検索履歴から重複を取り除かない (setq howm-history-unique nil)
;; font-lock のメッセージを抑制すると速くなるそう (setq font-lock-verbose nil)
;; rd-mode.el が読み込まれているという前提で ;;(setq howm-view-contents-font-lock-keywords rd-font-lock-keywords)
;;リンク記号を変更する (setq howm-ref-header "==>") ; goto リンク (setq howm-keyword-header "<==") ; come-from リンク
;; RET でファイルを開く際, 一覧バッファを消す ;; C-u RET なら残る (setq howm-view-summary-persistent nil)
;; メニューの予定表の表示範囲 ;; 10 日前から (setq howm-menu-schedule-days-before 14) ;; 3 日後まで (setq howm-menu-schedule-days 14)
;;済項目を表示しない (setq howm-schedule-types "[@!~-]") ;; 予定表 (setq howm-menu-schedule-types "[@!~-]") ;; 予定表 (setq howm-todo-types "[+~-]") ;; todo 一覧
;; メニューの todo に旬度を表示可 (setq howm-menu-todo-priority-format "(%8.1f)")
;; 検索等に要した時間を表示 (setq howm-message-time t)
;; メニューを自動更新しない (setq howm-menu-refresh-after-save nil) ;; 下線を引き直さない (setq howm-refresh-after-save nil)
(setq howm-list-recent-title t) ; 「最近のメモ」一覧時にタイトル表示 (setq howm-list-all-title t) ; 全メモ一覧時にタイトル表示
) ;; end of howm
(require 'howm) (howm-test)
;;; ;;; end of file ;;;
■ バージョン
Cygwin: CYGWIN_NT-5.1 sapphire 1.5.25(0.156/4/2) 2008-11-18 15:24 i686 Cygwin
;; okisoft UTF-8 Cygwin使用
howm: test090502 (compile: t, make: t, test: t) Emacs: 22.2.1 (i386-mingw-nt5.1.2600) of 2009-05-31 system: windows-nt window system: w32 Meadow: Meadow-3.01-dev (TSUBO-SUMIRE) ENV: LC_ALL=C, LC_CTYPE=nil, LANGUAGE=nil, LANG=C grep: nil - GNU grep 2.5.3
■ [症状] 何をしたら, どうなってほしいのに, どうなった?
悪い例 「カタカナを検索すると…」 良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします)
→ http://howm.sourceforge.jp/cgi-bin/hiki/hiki.cgi?HidePrivateReminder の設定をすると、メニュー表示以外では、Privateメモが隠れてくれない。
◯ howm-menu × 予定表(C-c , y)や ToDo リスト(C-c , t)
■ [テスト1] make test や test.bat からその操作をしても, 症状が出る?
→ 出ます。
■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する?
「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」 により, 発症させる設定を探ってください
→ http://howm.sourceforge.jp/cgi-bin/hiki/hiki.cgi?HidePrivateReminderのコードを貼り付け。
;; howm-test050308 でテスト
(defvar howm-private-regexp (regexp-opt '("[Private]")))
(defvar howm-hide-private t)
(when (not (fboundp 'howm-item-summary)) ;; for howm-1.2.1
(defalias 'howm-item-summary #'howm-view-item-summary))
(defadvice howm-menu-general (around hide-private (label formatter item-list)
activate)
(when howm-hide-private
(setq item-list
(remove-if (lambda (item)
(string-match howm-private-regexp
(howm-item-summary item)))
item-list)))
ad-do-it)
(defvar howm-toggle-private-hist nil) ;(defvar howm-toggle-private-hist (list howm-private-regexp))
(defun howm-toggle-private (&optional arg) "プライベートメモを表示するか否かを切り替える.
C-u を前につけたときの動作は, 変数 `howm-toggle-private-hist' の値に依存. ・nil → プレフィクスが正の値のときオン, 0 か負ならオフ ・nil 以外 → プライベートとみなす正規表現を対話的に入力 後者の場合, `howm-toggle-private-hist' は文字列のリストとすること. それが対話入力の初期履歴となる."
(interactive "P")
(cond ((null arg)
(setq howm-hide-private (not howm-hide-private)))
(howm-toggle-private-hist
(setq howm-private-regexp
(read-from-minibuffer "Regexp: "
`(,howm-private-regexp . 0)
nil
nil
'howm-toggle-private-hist)))
(t
(setq howm-hide-private (> (prefix-numeric-value arg) 0))))
(howm-menu t)
(message (if howm-hide-private
"hide private reminders"
"show private reminders")))
;; [Private] を含むメモを一覧でも非表示に.
;; ただし, 「一ファイル複数メモ」でも「ファイル丸ごと非表示」になるので注意.
;; 要 howm-test-050320 以降.
(setq howm-list-normalizer
(lambda ()
(when howm-hide-private
(howm-view-remove-by-contents howm-private-regexp))
(howm-view-sort-by-mtime)))
;; [Private] を含む項目を予定表(C-c , y)や ToDo リスト(C-c , t)でも非表示に
;; howm-test061231 でテスト
(defadvice howm-list-reminder (around hide-private activate)
ad-do-it
(when howm-hide-private
; (or (howm-view-remove-by-contents howm-private-regexp) ;; メモ毎
(or (howm-view-filter-by-summary t howm-private-regexp) ;; 項目毎
(progn
(howm-view-kill-buffer)
(message "No match.")))))
■ バージョン
howm: test090502 (compile: t, make: t, test: t) Emacs: 22.2.1 (i386-mingw-nt5.1.2600) of 2009-03-31 system: windows-nt window system: w32 Meadow: Meadow-3.01-dev (TSUBO-SUMIRE) ENV: LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=nil, LANG=ja_JP.UTF-8
howmをいつも使わせて頂いています。 まだ正式機能では無いのかもしれませんが、カテゴリを使用しております。この動作が変なようなので報告させていただきます。
---------------------------------------------------------
■ [症状] 何をしたら, どうなってほしいのに, どうなった?
悪い例 「カタカナを検索すると…」
良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします)
→ C-c , , をすると howm-menu-categorized-reminderの表示で
todayの欄にtoday1, today2, today3, todayA, todayB, todayCが表示されて欲しいのに
表示されない。
itemの行を削ると表示されるようになる。
■ [テスト1] make test や test.bat からその操作をしても, 症状が出る?
→ No
■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する?
「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」
により, 発症させる設定を探ってください
→ 以下の作業で確認できました。
1. 添付のhoge.txtをsample以下に置く
2. メニューの先頭(タイトルの下に)以下の記述を追加
-------------------------------------
%here%(howm-menu-categorized-reminder ("$now$" "$today$" "$active$" "$wait$") nil nil t)
-------------------------------------
3. test.bat を実行
4. C-c , , の表示を確認
■ バージョン
howm: test080725 (compile: nil, make: nil, test: bat)
Emacs: 22.1.1 (i386-mingw-nt5.1.2600) of 2007-07-08
system: windows-nt
window system: w32
Meadow: Meadow-3.00-dev (KIKU)
ENV: LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=nil, LANG=ja_JP.SJIS
hoge.txt の中身
[2008-08-04]+ today1 $today$ [2008-08-04]+ today2 $today$ [2008-08-04]+ today3 $today$ [2008-08-04]+ todayA $today$ [2008-08-04]+ todayB $today$ [2008-08-04]+ todayC $today$ [2008-08-04]+ active1 $active$ [2008-08-04]+ item33 [2008-08-04]+ item32 [2008-08-04]+ item31 [2008-08-04]+ item30 [2008-08-04]+ item29 [2008-08-04]+ item28 [2008-08-04]+ item27 [2008-08-04]+ item26 [2008-08-04]+ item25 [2008-08-04]+ item24 [2008-08-04]+ item23 [2008-08-04]+ item22 [2008-08-04]+ item21 [2008-08-04]+ item20 [2008-08-04]+ item19 [2008-08-04]+ item18 [2008-08-04]+ item17 [2008-08-04]+ item16 [2008-08-04]+ item15 [2008-08-04]+ item14 [2008-08-04]+ item13 [2008-08-04]+ item12 [2008-08-04]+ item11 [2008-08-04]+ item10 [2008-08-04]+ item9 [2008-08-04]+ item8 [2008-08-04]+ item7 [2008-08-04]+ item6 [2008-08-04]+ item5 [2008-08-04]+ item4 [2008-07-05]+ item3 [2008-07-05]+ item2 [2008-07-25]+ item1
--- howm-reminder.el 24 Jul 2008 15:12:08 -0000 1.72
+++ howm-reminder.el 5 Aug 2008 15:39:25 -0000
@@ -406,9 +406,7 @@
(defun howm-reminder-menu (n limit-priority separators)
(howm-with-reminder-setting
- (howm-todo-menu howm-menu-todo-num
- limit-priority
- separators)))
+ (howm-todo-menu n limit-priority separators)))
(defun howm-todo-insert-separators (item-list separators
&optional relative-date-p)
[2008-05-24] make testの結果を以下に張り付けます．Yuki
--------------------------------------------------------- ■ [症状] 何をしたら, どうなってほしいのに, どうなった? 悪い例 「カタカナを検索すると…」 良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします) → 以下を入力 C-c , , c C-n C-n $食費$ テスト 100 以下を評価 (load "~/lib/site-lisp/howmoney-24.el") M-x howmoney-monthly を実行 $食費$ テスト 100が検索されて欲しいのにされていない． howmoney-monthlyを実行したときのスクリーンショット http://sylphys.ddo.jp/upld2nd/pc3/src/1211628074216.png ■ [テスト1] make test や test.bat からその操作をしても, 症状が出る? → YES ■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する? 「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」 により, 発症させる設定を探ってください → ■ バージョン howm: test080523 (compile: t, make: t, test: t) Emacs: 23.0.60.2 (i686-pc-linux-gnu) of 2008-05-19 system: gnu/linux window system: x ENV: LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=nil, LANG=ja_JP.eucJP
[2007-07-14] すみません、バグの申請をします。make testの結果を貼ります。- taku
■ [症状] 何をしたら, どうなってほしいのに, どうなった?
悪い例 「カタカナを検索すると…」
良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします)
→ 最近、突然howm-private-reminderの設定をしているとhowm-list-todoや
howm-list-scheduleが動かなくなった。
■ [テスト1] make test や test.bat からその操作をしても, 症状が出る?
→ 再現します。
■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する?
「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」
により, 発症させる設定を探ってください
Toggling action-lock-mode off; better pass an explicit argument.
とmini-bufferに表示されます。
→ この設定を抜くと、howm-list-todoやhowm-list-scheduleは動きます。
;; [Private] を含む項目を予定表(C-c , y)や ToDo リスト(C-c , t)でも非表示に
;; howm-test061231 でテスト
(defadvice howm-list-reminder (around hide-private activate)
ad-do-it
(when howm-hide-private
; (or (howm-view-remove-by-contents howm-private-regexp) ;; メモ毎
(or (howm-view-filter-by-summary t howm-private-regexp) ;; 項目毎
(progn
(howm-view-kill-buffer)
(message "No match.")))))
(defadvice howm-list-recent (around hide-private activate)
ad-do-it
(when howm-hide-private
; (or (howm-view-remove-by-contents howm-private-regexp) ;; メモ毎
(or (howm-view-filter-by-summary t howm-private-regexp) ;; 項目毎
(progn
(howm-view-kill-buffer)
(message "No match.")))))
■ バージョン
howm: test070528 (compile: t, make: t, test: t)
Emacs: 22.0.95.1 (i486-pc-linux-gnu) of 2007-03-03
system: gnu/linux
window system: x
ENV: LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=nil, LANG=ja_JP.UTF-8
grep: (/bin/grep /bin/grep /bin/grep /bin/grep /bin/grep) - grep (GNU grep) 2.5.1
[2007-07-14]M-x howm-bug-shotの結果も貼ります。
* Header:
[howm] test070528 (compile: t, make: t, test: t)
[init]
(setq load-path (cons default-directory load-path))
(setq debug-on-error t)
(setq load-path
(append
(list
(expand-file-name "/usr/share/emacs/site-lisp")
(expand-file-name "/usr/share/emacs/22/site-lisp")
(expand-file-name "/usr/local/share/emacs/site-lisp")
)
load-path))
(require 'un-define)
;; (setq bitmap-alterable-charset 'tibetan-1-column)
(require 'jisx0213)
;;(require 'un-jisx0208ex)
;;; 日本語環境設定
(set-language-environment "Japanese")
;;; bookshelf版のデフォルト設定は読まない
(setq inhibit-default-init t)
;;; lispローカル変数
(setq safe-local-variable-values (quote ((syntax . elisp) (buffer-read-only . t))))
;; ;;; カーソルの設定
;; ;; (set-cursor-type 'box) ; Meadow-1.10互換 (SKK等で色が変る設定)
;; ;; (set-cursor-type 'hairline-caret) ; 縦棒キャレット
;;; マウスカーソルを消す設定
;; (setq w32-hide-mouse-on-key t)
;; (setq w32-hide-mouse-timeout 5000)
;;; font-lockの設定
(global-font-lock-mode t)
;; ファイルローカルの変数は使わない
(setq enable-local-eval nil)
;;; Japanese Settings
(set-default-coding-systems 'utf-8-unix)
;; (set-terminal-coding-system 'utf-8)
;; (set-keyboard-coding-system 'utf-8)
;; (set-buffer-file-coding-system 'utf-8)
;; (setq default-buffer-file-coding-system 'utf-8)
(setq process-connection-type t)
;; ここからhowmの設定
(setq howm-sample-directory (expand-file-name "sample/"))
(setq howm-directory howm-sample-directory)
(setq howm-keyword-file (expand-file-name ".howm-keys" howm-sample-directory))
(setq howm-history-file (expand-file-name ".howm-history" howm-sample-directory))
;(setq howm-menu-lang 'ja)
(setq howm-history-limit nil) ;; Don't erase my ~/.howm-history.
(require 'howm)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; howm(メモ管理ツール)
;;; -> http://howm.sourceforge.jp
(when (locate-library "howm")
;; (setq howm-process-coding-system 'japanese-shift-jis-dos)
;; (setq howm-process-coding-system '(utf-8-unix . sjis-unix))
(setq howm-process-coding-system '(utf-8-unix . utf-8-unix))
(setq howm-menu-lang 'ja)
;; フォーマットをorg-modeにする
(require 'org)
;; (setq howm-prefix "\C-z")
(add-hook 'org-mode-hook 'howm-mode)
(add-to-list 'auto-mode-alist '("\\.howm$" . org-mode))
(setq howm-view-title-header "*") ;; ← howm のロードより前に書くこと
;; ;; キー割当の重複を避ける (お好みで)
;; (setq howm-prefix "\C-x")
;; ;; テンプレートを変更
(setq howm-template "#;; -*- Coding: utf-8-unix; buffer-read-only: t -*-\n* %title%cursor\n\n")
;; メモのデフォルト拡張子を.howmに
(setq howm-file-name-format "%Y/%m/%Y-%m-%d-%H%M%S.howm")
(setq action-lock-switch-default '("{ }" "{*}" "{-}" "{+}" "{?}" "{o}" "{x}"))
;;(setq action-lock-switch-default '("{ }" "{*}" "{-}"))
(setq action-lock-date-default '("{_}" "[%Y-%m-%d %a %H:%M JST]"))
(setq howm-dtime-format "[%Y-%m-%d %a %H:%M JST]") ;; {_}
;; (setq howm-view-grep-log-file "~/.howm-log") ;; テスト中
(setq howm-menu-todo-priority -66666)
(global-set-key "\C-c,," 'howm-menu)
(mapc
(lambda (f)
(autoload f
"howm" "Hitori Otegaru Wiki Modoki" t))
'(howm-menu howm-list-all howm-list-recent
howm-list-grep howm-create
howm-keyword-to-kill-ring))
;; ;; リンクを TAB で辿る
;; ;; (eval-after-load "howm"
;; ;; '(progn
;; ;; (define-key howm-mode-map [tab] 'action-lock-goto-next-link)
;; ;; (define-key howm-mode-map [(meta tab)] 'action-lock-goto-previous-link)))
;; GNU grepを使用する
(setq howm-view-use-grep t)
(setq howm-view-grep-command "/bin/grep")
(setq howm-view-fgrep-command "/bin/grep")
(setq howm-view-grep-extended-option "-E")
(setq howm-view-grep-fixed-option "-F")
(setq howm-view-grep-file-stdin-option nil) ;; パターンは引数で渡す
;; howm-template が関数だったときは, universal-argument を
;; 引数にしてそいつを呼ぶ
(setq howm-template-receive-buffer nil)
;; 一覧から RET で開くとき, 内容バッファのカーソル位置を保たない
(setq howm-view-summary-keep-cursor nil)
;; 「最近のメモ」一覧時にタイトル表示
(setq howm-list-recent-title t)
;; 全メモ一覧時にタイトル表示
(setq howm-list-all-title nil)
;; メニューを 2 時間キャッシュ
(setq howm-menu-expiry-hours 2)
;; 検索履歴を記録しない
(setq howm-history-limit 0)
;; 検索履歴から重複を取り除かない
(setq howm-history-unique nil)
;; ;; font-lock のメッセージを抑制すると速くなるそう
;; (setq font-lock-verbose nil)
;;リンク記号を変更する
(setq howm-ref-header "==>") ; goto リンク
(setq howm-keyword-header "<==") ; come-from リンク
;; メニューを自動更新しない
(setq howm-menu-refresh-after-save nil)
;; 下線を引き直さない
(setq howm-refresh-after-save nil)
(setq howm-list-recent-title t) ; 「最近のメモ」一覧時にタイトル表示
(setq howm-list-all-title t) ; 全メモ一覧時にタイトル表示
(setq howm-congrats-format
'(
"%sキタ━━━━━(゜∀゜)━━━━━!!!!"
"(・∀・) %s!"
"（°Д°)%s？"
"（ ´_ゝ`）＜ %s"
;; …以下略…
))
;;; 日付インサート関連
(defun my-get-date-gen (form)
(insert (format-time-string form)))
(defun my-get-date ()
(interactive)
(my-get-date-gen "[%Y-%m-%d %a %H:%M:%S JST]"))
(defun my-get-time ()
(interactive)
(my-get-date-gen "[%H:%M]"))
(defun my-get-dtime ()
(interactive)
(my-get-date-gen "[%Y-%m-%d %H:%M]"))
;; いちいち消すのも面倒なので
;; 内容が 0 ならファイルごと削除する
(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-test050308 でテスト
;; (setq howm-private-regexp (regexp-opt '("[Private]" "[Priv]" "[Money]")))
(defvar howm-private-regexp (regexp-opt '("[Private]" "[Priv]" "[Money]")))
(defvar howm-hide-private t)
(when (not (fboundp 'howm-item-summary)) ;; for howm-1.2.1
(defalias 'howm-item-summary #'howm-view-item-summary))
(defadvice howm-menu-general (around hide-private (label formatter item-list)
activate)
(when howm-hide-private
(setq item-list
(remove-if (lambda (item)
(string-match howm-private-regexp
(howm-item-summary item)))
item-list)))
ad-do-it)
(defvar howm-toggle-private-hist nil)
;(defvar howm-toggle-private-hist (list howm-private-regexp))
(defun howm-toggle-private (&optional arg)
"プライベートメモを表示するか否かを切り替える.
C-u を前につけたときの動作は, 変数 `howm-toggle-private-hist' の値に依存.
・nil → プレフィクスが正の値のときオン, 0 か負ならオフ
・nil 以外 → プライベートとみなす正規表現を対話的に入力
後者の場合, `howm-toggle-private-hist' は文字列のリストとすること.
それが対話入力の初期履歴となる."
(interactive "P")
(cond ((null arg)
(setq howm-hide-private (not howm-hide-private)))
(howm-toggle-private-hist
(setq howm-private-regexp
(read-from-minibuffer "Regexp: "
`(,howm-private-regexp . 0)
nil
nil
'howm-toggle-private-hist)))
(t
(setq howm-hide-private (> (prefix-numeric-value arg) 0))))
(howm-menu t)
(message (if howm-hide-private
"hide private reminders"
"show private reminders")))
;; [Private] を含むメモを一覧でも非表示に.
;; ただし, 「一ファイル複数メモ」でも「ファイル丸ごと非表示」になるので注意.
;; 要 howm-test-050320 以降.
(setq howm-list-normalizer
(lambda ()
(when howm-hide-private
(howm-view-remove-by-contents howm-private-regexp))
(howm-view-sort-by-mtime)))
;;; ↓こいつが犯人
;; [Private] を含む項目を予定表(C-c , y)や ToDo リスト(C-c , t)でも非表示に
;; howm-test061231 でテスト
(defadvice howm-list-reminder (around hide-private activate)
ad-do-it
(when howm-hide-private
(or (howm-view-remove-by-contents howm-private-regexp) ;; メモ毎
;;(or (howm-view-filter-by-summary t howm-private-regexp) ;; 項目毎
(progn
(howm-view-kill-buffer)
(message "No match.")))))
(defadvice howm-list-recent (around hide-private activate)
ad-do-it
(when howm-hide-private
; (or (howm-view-remove-by-contents howm-private-regexp) ;; メモ毎
(or (howm-view-filter-by-summary t howm-private-regexp) ;; 項目毎
(progn
(howm-view-kill-buffer)
(message "No match.")))))
;; ; http://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"
(buffer-file-name)))
(save-buffer)
(kill-buffer nil)))
(eval-after-load "howm"
'(progn
(define-key howm-mode-map
"\C-ch\C-c" 'my-save-and-kill-buffer)))
;; [Private] を含む項目を予定表(C-c , y)や ToDo リスト(C-c , t)でも非表示に
;; howm-test061231 でテスト
(defadvice howm-list-reminder (around hide-private activate)
ad-do-it
(when howm-hide-private
; (or (howm-view-remove-by-contents howm-private-regexp) ;; メモ毎
(or (howm-view-filter-by-summary t howm-private-regexp) ;; 項目毎
(progn
(howm-view-kill-buffer)
(message "No match.")))))
(defadvice howm-list-recent (around hide-private activate)
ad-do-it
(when howm-hide-private
; (or (howm-view-remove-by-contents howm-private-regexp) ;; メモ毎
(or (howm-view-filter-by-summary t howm-private-regexp) ;; 項目毎
(progn
(howm-view-kill-buffer)
(message "No match.")))))
(defun howm-list-done ()
"完了した todo を一覧"
[2007-05-21] M-x howm-bug-shotを貼ります。
* Header:
[howm] test070518 (compile: t, make: t, test: t)
[init]
(setq load-path (cons default-directory load-path))
(setq debug-on-error t)
(setq howm-sample-directory (expand-file-name "sample/"))
(setq howm-directory howm-sample-directory)
(setq howm-keyword-file (expand-file-name ".howm-keys" howm-sample-directory))
(setq howm-history-file (expand-file-name ".howm-history" howm-sample-directory))
;(setq howm-menu-lang 'ja)
(setq howm-history-limit nil) ;; Don't erase my ~/.howm-history.
(require 'howm)
(howm-test)
(require 'snap)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Wanderlust
;;; -> http://www.gohome.org/wl/index.ja.html
(when (locate-library "wl")
(setq wl-demo t)
(setq wl-plugged nil)
(setq wl-init-file "~/.wl")
(setq wl-folders-file "~/.folders")
(setq wl-score-files-directory "~/.elmo")
(setq elmo-msgdb-directory "~/.elmo")
(setq elmo-localdir-folder-path "~/Mail")
(setq elmo-maildir-folder-path "~/Maildir")
(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
(setq elmo-split-log-file "~/.elmo/split-log")
(setq howm-history-file "~/.howm-history")
(setq wl-default-folder "+inbox")
(setq wl-draft-folder "+draft")
(setq wl-queue-folder "+queue")
(setq wl-trash-folder "+trash")
(add-hook 'wl-hook
(function(lambda ()
(local-set-key (quote [f5]) (quote wl-folder-check-all )))))
;;; アイコンを置くディレクトリ
(setq wl-icon-directory "/usr/local/etc/wl/icons")
;;; デフォルトフォルダ設定
(setq wl-default-spec "+")
;; 新聞関連
(setq elmo-shimbun-update-overview-folder-list
;; '(
;; "^@asahi\\.national"
;; "^@cnet.jp\\.news")
;; )
nil
)
;; emacs-w3mでHTMLメールを読む
(when (locate-library "mime-w3m")
(load "mime-w3m")
(defun wl-summary-w3m-safe-toggle-inline-images (&optional arg)
"Toggle displaying of all images in the message buffer.
If the prefix arg is given, all images are considered to be safe."
(interactive "P")
(save-excursion
(set-buffer wl-message-buffer)
(w3m-safe-toggle-inline-images arg)))
(eval-after-load "wl-summary"
'(define-key wl-summary-mode-map
"\M-i" 'wl-summary-w3m-safe-toggle-inline-images))
) ;; end of emacs-w3m
) ;;; end of wanderlust
* Emacs version:
[Emacs] 22.0.95.1 (i486-pc-linux-gnu) of 2007-03-03
[system] gnu/linux
[window system] x
[ENV] LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=nil, LANG=ja_JP.UTF-8
* Recent keys:
M-x w l <return> C-n C-n C-n C-n C-n C-n C-n C-n C-n C-p C-n C-n <return> <return> M-x h o w m - v <backspace> b u g <tab> s h o <tab> <return>
* Recent messages:
Checking folder diff...done
Updating marks...
Loading wl-score...done
Scoring...done
No updates for "+inbox".
No updates for "+inbox"
Loading x-face-mule...
Loading gnus-bitmap... [4 times]
Loading debug...done
Entering debugger...
* Screen shot:
--- #<window 7 on Summary> ---
1 10/09(月)11:18 [ **************** ] ***************************:
2 10/06(金)19:21 [ ****1@********* ] ***************************
3 10/10(火)17:38 [ **************** ] ****************************
--- #<window 3 on *Backtrace*> ---
Debugger entered--Lisp error: (error "Recursive load" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/gnus-bitmap.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/gnus-bitmap.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/gnus-bitmap.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/gnus-bitmap.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc")
signal(error ("Recursive load" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/gnus-bitmap.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/gnus-bitmap.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/gnus-bitmap.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/gnus-bitmap.elc" "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc"))
byte-code("遵・ˆ遵｢@A\"‡" [err wl-message-buffer-cache-delete signal] 3)
wl-message-buffer-display([elmo-localdir-folder [0 0 0 0 0 0 0] localdir "+inbox" "+" "/home/taku/.elmo/localdir/inbox" [modb-standard [0 0 0 0 0 0 0] "/home/taku/.elmo/localdir/inbox" nil nil x-ctext (1 2 3 4 5 6 7 8 9 10 11 12 13) [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] nil nil] nil nil t read nil x-ctext "inbox" "/home/taku/Mail/inbox"] 13 mime-partial-header nil)
wl-message-redisplay([elmo-localdir-folder [0 0 0 0 0 0 0] localdir "+inbox" "+" "/home/taku/.elmo/localdir/inbox" [modb-standard [0 0 0 0 0 0 0] "/home/taku/.elmo/localdir/inbox" nil nil x-ctext (1 2 3 4 5 6 7 8 9 10 11 12 13) [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] nil nil] nil nil t read nil x-ctext "inbox" "/home/taku/Mail/inbox"] 13 mime-partial-header nil)
wl-summary-redisplay-internal([elmo-localdir-folder [0 0 0 0 0 0 0] localdir "+inbox" "+" "/home/taku/.elmo/localdir/inbox" [modb-standard [0 0 0 0 0 0 0] "/home/taku/.elmo/localdir/inbox" nil nil x-ctext (1 2 3 4 5 6 7 8 9 10 11 12 13) [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] nil nil] nil nil t read nil x-ctext "inbox" "/home/taku/Mail/inbox"] 13)
wl-summary-set-message-buffer-or-redisplay(ignore-original)
wl-summary-next-line-content()
wl-summary-enter-handler(nil)
call-interactively(wl-summary-enter-handler)
* Footer:
--- your comment ---
(2007-05-18 (金) 15:44:24)
※ make test や test.bat では, テスト用環境(ほぼ無設定の emacs)が起動します.
バグの指摘をくださる方へ:
(1) このバッファを保存してください.
(2) 下のテストをしてください.
(3) emacs をふつうに起動し直し, 保存したファイルの → に結果を記入してください.
---------------------------------------------------------
■ [症状] 何をしたら, どうなってほしいのに, どうなった?
悪い例 「カタカナを検索すると…」
良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします)
→ snap.el(v1.4)を有効にした状態で、wanderlust(CVS版)を起動してwlのフォルダー(+outbox)等を開けない。
以下のエラーが発生します。
byte-code: Recursive load: "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc", "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/gnus-bitmap.elc", "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc", "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/gnus-bitmap.elc", "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc", "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/gnus-bitmap.elc", "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc", "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/gnus-bitmap.elc", "/usr/share/emacs/22.0.95/site-lisp/bitmap-mule/x-face-mule.elc"
■ [テスト1] make test や test.bat からその操作をしても, 症状が出る?
→ 出ます。
■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する?
「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」
により, 発症させる設定を探ってください
→ 以下をhowm-070505/sample/dot.emacsに追記しました。
(require 'snap)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Wanderlust
;;; -> http://www.gohome.org/wl/index.ja.html
(when (locate-library "wl")
(setq wl-demo t)
(setq wl-plugged nil)
(setq wl-init-file "~/.wl")
(setq wl-folders-file "~/.folders")
(setq wl-score-files-directory "~/.elmo")
(setq elmo-msgdb-directory "~/.elmo")
(setq elmo-localdir-folder-path "~/Mail")
(setq elmo-maildir-folder-path "~/Maildir")
(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
(setq elmo-split-log-file "~/.elmo/split-log")
(setq howm-history-file "~/.howm-history")
(setq wl-default-folder "+inbox")
(setq wl-draft-folder "+draft")
(setq wl-queue-folder "+queue")
(setq wl-trash-folder "+trash")
(add-hook 'wl-hook
(function(lambda ()
(local-set-key (quote [f5]) (quote wl-folder-check-all )))))
;;; アイコンを置くディレクトリ
(setq wl-icon-directory "/usr/local/etc/wl/icons")
;;; デフォルトフォルダ設定
(setq wl-default-spec "+")
;; 新聞関連
(setq elmo-shimbun-update-overview-folder-list
;; '(
;; "^@asahi\\.national"
;; "^@cnet.jp\\.news")
;; )
nil
)
;; emacs-w3mでHTMLメールを読む
(when (locate-library "mime-w3m")
(load "mime-w3m")
(defun wl-summary-w3m-safe-toggle-inline-images (&optional arg)
"Toggle displaying of all images in the message buffer.
If the prefix arg is given, all images are considered to be safe."
(interactive "P")
(save-excursion
(set-buffer wl-message-buffer)
(w3m-safe-toggle-inline-images arg)))
(eval-after-load "wl-summary"
'(define-key wl-summary-mode-map
"\M-i" 'wl-summary-w3m-safe-toggle-inline-images))
) ;; end of emacs-w3m
) ;;; end of wanderlust
■ バージョン
howm: test070505 (compile: t, make: t, test: t)
Emacs: 22.0.95.1 (i486-pc-linux-gnu) of 2007-03-03
system: gnu/linux
window system: x
ENV: LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=nil, LANG=ja_JP.UTF-8
→ GrepBug (2007-02-21 21:09:58)
※ make test や test.bat では, テスト用環境(ほぼ無設定の emacs)が起動します.
バグの指摘をくださる方へ: (1) このバッファを保存してください. (2) 下のテストをしてください. (3) emacs をふつうに起動し直し, 保存したファイルの → に結果を記入してください.
---------------------------------------------------------
■ [症状] 何をしたら, どうなってほしいのに, どうなった?
悪い例 「カタカナを検索すると…」 良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします)
→ C-c , , s テスト RET と入力するとCPU使用率が100%になり、howmに検索結果が帰ってこない(5分間まで待っても帰ってこないことを確認)。その状態から C-g とすると howm が復帰する(howmのメニュー画面に戻る)。 以下にいくつかのテスト結果を記します。日本語、アルファベット、数字の組み合わせで問題が出るときと出ないときがあります。 C-c , , s test RET と入力すると通常通り検索結果が表示される。 C-c , , s testテスト RET と入力すると通常通り検索結果が表示される。 C-c , , s 0000 RET と入力するとCPU使用率100%となり検索結果が帰ってこない。 C-c , , s 000test RET と入力するとCPU使用率100%となり検索結果が帰ってこない。 C-c , , s 00test RET と入力すると通常通り検索結果が表示される。 C-c , , s 0test RET と入力すると通常通り検索結果が表示される。
以前は問題なく検索できていた覚えがあるのですが、いつからこのように検索できなくなったのかは不明です。使用しているOSはVine4.0（Vine3.2からのアップデート）、機種はNEC LaVie M LM60H/7です。以前使用していたIBM Thinkpad i1620（Vine3.2、howm1.3.2）でも試したところ、こちらでは問題なく検索できました。
■ [テスト1] make test や test.bat からその操作をしても, 症状が出る?
→ 出ないです。
■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する?
「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」 により, 発症させる設定を探ってください
→ 以下の一文があると症状が出ました。 (setq howm-view-use-grep t)
■ バージョン
howm: 1.3.4 (compile: nil, make: nil, test: t) Emacs: 21.4.1 (i686-pc-linux-gnu) of 2006-10-14 system: gnu/linux window system: x
------------------------------------------------------------------------
以下は *Backtrace* の表示です。手順は バイトコンパイルしていない howm を用意。
(setq debug-on-quit t)
と書き C-j を押す。 howmを起動し、問題の現象を発症させる。 C-g を押す。
----------ここから----------
Debugger entered--Lisp error: (quit)
call-process-region(1 5 "grep" "/tmp/emacs3AjJZo" (t nil) nil "-F" "-i" "-Hnr" "-f" "-" "/home/ringo/howm/")
apply(call-process-region (1 5 "grep" t (t nil) nil "-F" "-i" "-Hnr" "-f" "-" "/home/ringo/howm/"))
(let* ((G13632 howm-process-coding-system) (coding-system-for-read ...) (coding-system-for-write ...)) (apply (function call-process-region) a))
(howm-with-coding-system nil (apply (function call-process-region) a))
(let* ((beg ...) (end ...) (a ...)) (howm-with-coding-system nil (apply ... a)))
howm-call-process-here("grep" ("-F" "-i" "-Hnr" "-f" "-" "/home/ringo/howm/") "\xd2c6\xd2b9\xd2c8\n")
(let ((r ...)) (when (and expected-return-value ...) (error "Process returns %s instead of expected %s." r expected-return-value)) (howm-buffer-lines))
(let* ((G13631 howm-process-coding-system) (coding-system-for-read ...) (coding-system-for-write ...)) (let (...) (when ... ...) (howm-buffer-lines)))
(howm-with-coding-system nil (let (...) (when ... ...) (howm-buffer-lines)))
(save-current-buffer (set-buffer temp-buffer) (howm-with-coding-system nil (let ... ... ...)))
(with-current-buffer temp-buffer (howm-with-coding-system nil (let ... ... ...)))
(unwind-protect (with-current-buffer temp-buffer (howm-with-coding-system nil ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ...) (and ... ...)))
(with-temp-buffer (howm-with-coding-system nil (let ... ... ...)))
howm-call-process("grep" ("-F" "-i" "-Hnr" "-f" "-" "/home/ringo/howm/") nil "\xd2c6\xd2b9\xd2c8\n")
(let* ((fs ...) (pat ...) (lines ...) (parsed ...)) (remove nil parsed))
(save-current-buffer (set-buffer temp-buffer) (let* (... ... ... ...) (remove nil parsed)))
(with-current-buffer temp-buffer (let* (... ... ... ...) (remove nil parsed)))
(unwind-protect (with-current-buffer temp-buffer (let* ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ...) (and ... ...)))
(with-temp-buffer (let* (... ... ... ...) (remove nil parsed)))
(let* ((str-list ...) (caps-p ...) (case-fold ...)) (flet (...) (add-opt case-fold howm-view-grep-ignore-case-option) (add-opt fixed-p howm-view-grep-fixed-option) (add-opt ... howm-view-grep-extended-option)) (with-temp-buffer (let* ... ...)))
(let ((grep-command ...) (opt ...) (eopt ...)) (let* (... ... ...) (flet ... ... ... ...) (with-temp-buffer ...)))
howm-real-grep-multi(("\xd2c6\xd2b9\xd2c8") ("~/howm/") t nil)
(if (howm-grep-multi-p) (howm-real-grep-multi str file-list fixed-p force-case-fold) (howm-real-grep-single str file-list fixed-p force-case-fold))
howm-real-grep(("\xd2c6\xd2b9\xd2c8") ("~/howm/") t nil)
funcall(howm-real-grep ("\xd2c6\xd2b9\xd2c8") ("~/howm/") t nil)
(let ((grep-func ...)) (funcall grep-func str file-list fixed-p *howm-view-force-case-fold-search*))
howm-grep(("\xd2c6\xd2b9\xd2c8") "~/howm/" t)
(let* ((found ...) (items ...)) (if exclusion-checker (remove nil items) items))
howm-grep-items(("\xd2c6\xd2b9\xd2c8") "~/howm/" t howm-exclude-p)
howm-folder-grep-internal:dir("~/howm/" ("\xd2c6\xd2b9\xd2c8") t)
apply(howm-folder-grep-internal:dir ("~/howm/" ("\xd2c6\xd2b9\xd2c8") t))
(throw (quote done) (apply (intern-soft ...) args))
(if type (throw (quote done) (apply ... args)) (setq dispatchers (cdr dispatchers)))
(while dispatchers (setq type (apply ... args)) (if type (throw ... ...) (setq dispatchers ...)))
(catch (quote done) (while dispatchers (setq type ...) (if type ... ...)) (error "Can't detect type of %s for %s." args base-name))
(let (type) (catch (quote done) (while dispatchers ... ...) (error "Can't detect type of %s for %s." args base-name)))
gfunc-call(howm-folder-grep-internal (howm-folder-type) ("~/howm/" ("\xd2c6\xd2b9\xd2c8") t))
howm-folder-grep-internal("~/howm/" ("\xd2c6\xd2b9\xd2c8") t)
(lambda (f) (howm-folder-grep-internal f pattern fixed-p))("~/howm/")
mapcar((lambda (f) (howm-folder-grep-internal f pattern fixed-p)) ("~/howm/"))
mapcar*((lambda (f) (howm-folder-grep-internal f pattern fixed-p)) ("~/howm/"))
apply(mapcar* (lambda (f) (howm-folder-grep-internal f pattern fixed-p)) ("~/howm/") nil)
howm-cl-mapcan((lambda (f) (howm-folder-grep-internal f pattern fixed-p)) ("~/howm/"))
howm-folder-grep-internal:nest((:nest "~/howm/") ("\xd2c6\xd2b9\xd2c8") t)
apply(howm-folder-grep-internal:nest ((:nest "~/howm/") ("\xd2c6\xd2b9\xd2c8") t))
(throw (quote done) (apply (intern-soft ...) args))
(if type (throw (quote done) (apply ... args)) (setq dispatchers (cdr dispatchers)))
(while dispatchers (setq type (apply ... args)) (if type (throw ... ...) (setq dispatchers ...)))
(catch (quote done) (while dispatchers (setq type ...) (if type ... ...)) (error "Can't detect type of %s for %s." args base-name))
(let (type) (catch (quote done) (while dispatchers ... ...) (error "Can't detect type of %s for %s." args base-name)))
gfunc-call(howm-folder-grep-internal (howm-folder-type) ((:nest "~/howm/") ("\xd2c6\xd2b9\xd2c8") t))
howm-folder-grep-internal((:nest "~/howm/") ("\xd2c6\xd2b9\xd2c8") t)
howm-folder-grep((:nest "~/howm/") "\xd2c6\xd2b9\xd2c8" t)
(let ((found ...) (summarizer ...)) (mapc (lambda ... ...) found) found)
howm-view-search-folder-items("\xd2c6\xd2b9\xd2c8" (:nest "~/howm/") nil t)
(let* ((items ...) (kw ...)) (let* (...) (when ... ...)) (let (...) (howm-view-summary name items)))
(let* ((str-orig str) (str-list ...) (str-principal ...)) (setq str str-principal) (setq name (or name str)) (when howm-view-update-search-ring (isearch-update-ring str ...)) (let* (... ...) (let* ... ...) (let ... ...)))
howm-view-search-folder("\xd2c6\xd2b9\xd2c8" (:nest "~/howm/") nil nil t nil)
(let ((hilit ...)) (howm-view-search-folder regexp (howm-search-path-folder) nil nil fixed-p hilit) (howm-record-view-window-configuration))
howm-call-view-search("\xd2c6\xd2b9\xd2c8" t nil)
(prog1 (howm-call-view-search regexp fixed-p emacs-regexp) (howm-list-normalize (or emacs-regexp regexp)))
(progn (prog1 (howm-call-view-search regexp fixed-p emacs-regexp) (howm-list-normalize ...)))
(prog1 (progn (prog1 ... ...)) (when howm-message-time (message "%s (%s: %.2f sec)" ... "search" ...)))
(let ((howm-message-time-0 ...)) (prog1 (progn ...) (when howm-message-time ...)))
(howm-message-time "search" (prog1 (howm-call-view-search regexp fixed-p emacs-regexp) (howm-list-normalize ...)))
(if (string= regexp "") (howm-list-all) (howm-message-time "search" (prog1 ... ...)))
howm-search("\xd2c6\xd2b9\xd2c8" t)
(let* ((regexp ...)) (when completion-p (howm-write-history regexp)) (howm-search regexp completion-p))
howm-list-grep-general(t)
howm-list-grep-fixed()
apply(howm-list-grep-fixed nil)
(save-current-buffer (set-buffer prev) (apply (function howm-list-grep-fixed) nil))
(with-current-buffer prev (apply (function howm-list-grep-fixed) nil))
(let ((a nil) (cur ...) (prev ...)) (with-current-buffer prev (apply ... nil)))
(lambda (&optional howm-menu-action-arg-name) (let (... ... ...) (with-current-buffer prev ...)))(nil)
funcall((lambda (&optional howm-menu-action-arg-name) (let (... ... ...) (with-current-buffer prev ...))) nil)
(progn (funcall action arg) t)
(if (null action) nil (progn (funcall action arg) t))
(let ((action ...)) (if (null action) nil (progn ... t)))
action-lock-invoke(nil)
(let ((case-fold-search nil)) (when (null ...) (action-lock-goto-next-link)) (action-lock-invoke arg))
(save-excursion (goto-char pos) (let (...) (when ... ...) (action-lock-invoke arg)))
(if nil (goto-char pos) (save-excursion (goto-char pos) (let ... ... ...)))
(let ((pos #<marker at 2350 in *howmM:~/howm-sub/0000-00-00-000000.howm*>)) (if nil (goto-char pos) (save-excursion ... ...)))
(lambda (arg) (interactive "P") (let (...) (if nil ... ...)))(nil)
call-interactively((lambda (arg) (interactive "P") (let (...) (if nil ... ...))))
----------ここまで----------
■ [症状] 何をしたら, どうなってほしいのに, どうなった?
悪い例 「カタカナを検索すると…」 良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします)
→ 1) http://howm.sourceforge.jp/cgi-bin/hiki/hiki.cgi?HidePrivateReminder の設定を~/.emacsに貼り付ける
2) (defvar howm-private-regexp (regexp-quote "[Private]"))ではなく、 (setq howm-private-regexp (regexp-opt '("[Private]" "[Priv]"))) を設定する。
3) メニュー画面を更新すると、 howm-toggle-private-histだと、 [2007-01-11]+ [Private]ほげ のようなTodoは表示されないが、 C,tを実行すると、Todo一覧には[Private]や[Priv]の文字列を含んだリマインダー が表示されてしまう。
■ [テスト1] make test や test.bat からその操作をしても, 症状が出る?
→ 1) sample/top.txtの
[2006-06-10]+ piyo を [2006-06-10]+ [Private] piyo に
[2006-06-11]+ piyo を [2006-06-11]+ [Priv]piyo に修正する。
2) dot.emacsに以下の設定を追加する
;; privateパッチ
;; http://howm.sourceforge.jp/cgi-bin/hiki/hiki.cgi?c=diff;p=HidePrivateReminder
;; howm-test050308 でテスト
(setq howm-private-regexp (regexp-opt '("[Private]" "[Priv]" "[Hosp]" "[Money]" "[Mny]")))
;; (defvar howm-private-regexp (regexp-quote "[Private]"))
(defvar howm-hide-private t)
(when (not (fboundp 'howm-item-summary)) ;; for howm-1.2.1
(defalias 'howm-item-summary #'howm-view-item-summary))
(defadvice howm-menu-general (around hide-private (label formatter item-list)
activate)
(when howm-hide-private
(setq item-list
(remove-if (lambda (item)
(string-match howm-private-regexp
(howm-item-summary item)))
item-list)))
ad-do-it)
(defvar howm-toggle-private-hist nil) ;(defvar howm-toggle-private-hist (list howm-private-regexp))
(defun howm-toggle-private (&optional arg) "プライベートメモを表示するか否かを切り替える.
C-u を前につけたときの動作は, 変数 `howm-toggle-private-hist' の値に依存. ・nil → プレフィクスが正の値のときオン, 0 か負ならオフ ・nil 以外 → プライベートとみなす正規表現を対話的に入力 後者の場合, `howm-toggle-private-hist' は文字列のリストとすること. それが対話入力の初期履歴となる."
(interactive "P")
(cond ((null arg)
(setq howm-hide-private (not howm-hide-private)))
(howm-toggle-private-hist
(setq howm-private-regexp
(read-from-minibuffer "Regexp: "
`(,howm-private-regexp . 0)
nil
nil
'howm-toggle-private-hist)))
(t
(setq howm-hide-private (> (prefix-numeric-value arg) 0))))
(howm-menu t)
(message (if howm-hide-private
"hide private reminders"
"show private reminders")))
;; メニューだけでなく, 一覧でも非表示に. ;; ただし, 「一ファイル複数メモ」でも「ファイル丸ごと非表示」になるので注意. ;; 要 howm-test-050320 以降. (setq howm-list-normalizer (lambda () (when howm-hide-private (howm-view-remove-by-contents howm-private-regexp)) (howm-view-sort-by-mtime)))
;; [Private] を含むメモを予定表(C-c , y)や ToDo リスト(C-c , t)でも非表示に
;; howm-test061231 でテスト
(defadvice howm-list-reminder (around hide-private activate)
ad-do-it
(when howm-hide-private
(howm-view-remove-by-contents howm-private-regexp)))
3) make testを実行する
4) メニューに、 [2006-06-10]+ [Private] piyo [2006-06-11]+ [Private] piyo が表示されていないことを確認する。
5) C , tでTodo一覧を表示させると、 howm-toggle-private-hist の値は nilなのに、 [2006-06-10]+ [Private] piyo [2006-06-11]+ [Private] piyo が表示されてしまう。
6) メニュー画面に戻り、 M-x howm-toggle-privateを実行する
> 土215 | [2006-06-10]+ [Private]piyo > 日214 | [2006-06-11]+ [Priv]piyo が表示されていることを確認する。
8) C , tを実行すると、 [2006-06-10]+ [Private] piyo [2006-06-11]+ [Private] piyo は表示されている。
■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する?
「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」 により, 発症させる設定を探ってください
→
■ バージョン
howm: test061231 (compile: t, make: t, test: t) Emacs: 22.0.90.1 (i386-mingw-nt5.1.2600) of 2006-11-20 system: windows-nt window system: w32 Meadow: Meadow-3.00-dev (KIKU)
Meadow3.00 終了不可能 → (2) 手順 ＜C-x C-c後に、meadow が固まった状態で C-g をタイプ。そして *scratch* バッファに下記をコピー・貼り付け、*scratch*で (setq debug-on-quit t)記し、C-j＞ を実行したときの、*Backtrack*を以下にPaste.
以下は、elsreen.el やelscreen-howm.elを無効にしたとき。C,, 等をやったあと、上記手順を実行――
=====
Debugger entered--Lisp error: (quit)
byte-code(" Bニ オ
＜これは実際には、 byte-code("^H B^Q\306^R^K^\203I^@^K@;\203^X^@^K@G\fv\204B^@^M\203)^@\307^K\211^^^M@@)\n"\202-……と続いています＞
byte-code(" Bニ オ
session-save-session()
run-hooks(kill-emacs-hook)
kill-emacs()
save-buffers-kill-emacs(nil)
call-interactively(save-buffers-kill-emacs)
・・つぎに、elscreen.el を有効にし、elscreen-howm.elは無効とした条件下で、Measow立ち上げ後に、C,, などをおこなってから、C-X C-C 、上記手順実行後でも同様の*Backtrack*となった。さらには、C,,等はなにもおこなわず、起動すると同時に終了しようとすると、やはり
C-X C-S がきかない――つまり、Meadowを立ち上げた時点で、終了できなくなっている(場合?:Meadow起動時には終了できた記憶があるのだが……) がある。
なお、以下のように表示された場合もある。
=
Debugger entered--Lisp error: (quit)
signal(quit nil) keyboard-quit() call-interactively(keyboard-quit)
以上ですが、これが、elscreen.elを呼び出している.emacsの場合だけに起こるのか、それとも、Meadow自体をダウンロードしたときの一部コードの損失等によるものなのか、初心者なりにいろいろ原因を探索中ですが、わかりません。
はじめまして、howmを毎日使ってます。ありがとうございます。 昨日 howm-1.3.3(debian/emacs-2.14) に入れ替えをしました。 READMEにtodo 一覧では潜伏中の項目もデフォルトで表示とありましたが、私の環境では done したはずの過去のTodoが表示されてしまいました。 (setq howm-menu-todo-priority-format "(%8.1f)") してTodo表示したサンプルですが7月の未完了分は表示されますが、それ以下の2004年分が、howm-menu-todo-priorityに達っしてないのか表示されました。
[Todo] … 〆切!, todo+, 覚書-, 保留~ を上位 50 個まで表示 > 土 -5( -1.2) | [2006-07-08]!-1 カーペット掃除なので、机の下は開ける > 月 0( -13.2) | [2006-07-03]~ xxxの実行状況を確認する > 月 0( -13.2) | [2006-07-03]~30 hoge のディスクの調子を確認 > 月 -7(-77777.9) | [2006-07-10]+ トラ技を買う > 月847(-88040.1) | [2004-03-08]. [2004-03-08]:. ミーティング資料作成 > 金843(-88044.1) | [2004-03-12]. [2004-03-12]- 教育段取りまとめ > 火811(-88076.1) | [2004-04-13]. Q3 のキャピタル申請 > 金808(-88079.1) | [2004-04-16]. [2004-04-16]:. cancel [2004-04-16]:. cancel [2004-04-12]:!7 人員アサイン
howm-menu-todo-priority は -88888 howm-todo-priority-done-bottom も -88888
で、Todoの評価は上記のようですので表示されるのはわかるのですが、評価結果がちょっと足りない理由はよくわかりませんでした。 howm-menu-todo-priority を適当な値に設定しなおせば表示は抑制出来るので問題は無いのですが、 ちなみに、再度action-lockでリターンしてもう一回済の操作を行いますと、Todoからは表示されなくなります。 これは、やはりdoneしたことになっていないのでしょうか？ 2年前のTodoは要らないですが、ちょっと気になりましたのでご報告します。
はじめまして。浦と申します。 howm はとてもお気に入りのツールで、毎日便利に利用させていただいております。
さて、バグではないのですが、1960年等の古い日付の予定を作成すると、次回以降 apply: Specified time is not representable のメッセージが出て、howmを利用することができなくなります。 当該メモを削除すれば戻るのですが、誕生日を予定として記録したいのですが、この仕様では年配の人の誕生日を記録することができません。 回避方法があればご教授願いたく、お知らせいたします。 よろしくお願いします。
-------------------- Shigenori Ura yhh00052@nifty.com
※ make test や test.bat では, テスト用環境(ほぼ無設定の emacs)が起動します.
バグの指摘をくださる方へ:
(1) このバッファを保存してください.
(2) 下のテストをしてください.
(3) emacs をふつうに起動し直し, 保存したファイルの → に結果を記入してください.
---------------------------------------------------------
■ [症状] 何をしたら, どうなってほしいのに, どうなった?
悪い例 「カタカナを検索すると…」
良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします)
→ menu画面で
> 土 24 | [2005-11-26]- [ふが]
の">"をRETして、適当な位置で、
M-x atode 12:00
すると、~/.atide-elに以下の内容が書かれる。
--(~/.atode-elの抜粋 ここから)----
-(中略)-
buffer = top.txt (file = c:/usr/local/src/howm-test051210/sample/top.txt)
-(中略)-
--(~/.atode-elの抜粋 ここまで)----
で、自分のマシンは会社と自宅で~/.atode-elを共有しているのですが、windowsのパスが
異なっています。会社は、
buffer = top.txt (file = c:/usr/local/src/howm-test051210/sample/top.txt)
でも、自宅は、
buffer = top.txt (file = d:/usr/local/src/howm-test051210/sample/top.txt)
になります。これだと、手動で、~/.atode-elを編集する必要があるので、絶対パス部分はhowmのhowm-directory変数を見るか、別変数を参照して決定するようには出来ないでしょうか。
■ [テスト1] make test や test.bat からその操作をしても, 症状が出る?
→ 出ます。
■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する?
「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」
により, 発症させる設定を探ってください
→ 以下を追加しています。
;; 追加ロードパス
(setq load-path
(append
(list
(expand-file-name "c:/usr/local/lib/emacs/site-lisp/atode")
)
load-path))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; atode.el
;;; ->
(when (locate-library "atode")
(require 'atode)
;; Experimental feature
(setq atode-date-command "c:/cygwin/bin/date")
) ;; end of atode
■ バージョン
howm: test051210 (compile: t, make: t, test: t)
Emacs: 22.0.50.1 (i386-mingw-nt5.1.2600) of 2005-12-15
system: windows-nt
window system: w32
Meadow: Meadow-3.00-dev (KIKU)
※ すぱむがひどいので投稿フォームを一旦消しました. 何か貼りたい方は, 下のコメント欄にその旨を書いていただけば フォームを復活させます (方法をご存知の方は自分でやって下さって結構です). お手数ですが… [2007-03-01]
Keyword(s):
References:[HidePrivateReminder] [バグレポート] [AttachableTimer] [GrepBug] [バグレポートFAQ] [MT]