top  Index  Search  Changes  RSS  Login

BugReportPaste.181027

snapshot-3のcmigemoの不具合について - dareka (2018-10-27 (土) 10:17:43)

■ [症状] 何をしたら, どうなってほしいのに, どうなった?

悪い例 「カタカナを検索すると…」
良い例 「C-c , , g ゴマ RET と入力すると…」 (具体的な操作手順をお願いします)

→ snapshop-3で、migemo検索(C,m ke-ki <RET>)でke-kiと入れるとnot matchと出ます。
しかし、コマンドラインで、cmigemoを叩くと、ちゃんと検索出来ます。

■ [テスト1] make test や test.bat からその操作をしても, 症状が出る?

→ でます。

■ [テスト2] 出ないなら, sample/dot.emacs に何を追加したら発症する?

「.emacs から関連しそうな所をコピー → 再度 make test や test.bat → 症状確認」
により, 発症させる設定を探ってください

→
(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-directory (concat (getenv "HOME2") "/.howm"))
  (setq howm-menu-file (concat (getenv "HOME2") "/.howm/0000-00-00-000000.txt"))
  (setq howm-keyword-file (concat (getenv "HOME2") "/.howm-keys"))
  (setq howm-history-file (concat (getenv "HOME2") "/.howm-history"))

  ;; 「[2018-03-31 13:30-14:10]@ …」なども予定として拾う
  ;; (howm のロードより前に)
  ;; http://mevius.5ch.net/test/read.cgi/unix/1397477663/92n
  (let ((time-part "[- :0-9]*")
	(howm-date-regexp-grep "[1-2][0-9][0-9][0-9]-[0-1][0-9]-[0-3][0-9]")
	(howm-date-regexp "\\([1-2][0-9][0-9][0-9]\\)-\\([0-1][0-9]\\)-\\([0-3][0-9]\\)"))
    (setq howm-reminder-regexp-grep-format
	  (concat "\\[" howm-date-regexp-grep time-part "\\]%s"))
    (setq howm-reminder-regexp-format
	  (concat "\\(\\[" howm-date-regexp time-part "\\]\\)\\(\\(%s\\)\\([0-9]*\\)\\)")))


  ;; メモフォーマットを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)

  ;; howm-grepの速度向上
  (setq gc-cons-threshold (* 4000 10000))
  ;;  (setq howm-list-title t)


  ;; 複数howmディレクトリ対応
  (defun my-howm-set-directory (dir &optional keyfile)
    `(lambda ()
       (interactive)
       ;; kill current keyword buffer first to avoid the error
       ;; "howm-get-buffer-for-file: Buffer name ` *howm-keys:*' is in use"
       (kill-buffer (howm-keyword-buffer))
       (setq howm-directory ,dir)
       (when ,keyfile
	 (setq howm-keyword-file ,keyfile))
       (setq howm-menu-next-expiry-time (current-time))
       (message "%s" ,dir)))

  (defun my-howm-switch-directory (dir &optional keyfile)
    (funcall (my-howm-set-directory dir keyfile))
    (howm-menu))

  (global-set-key "\C-c,1" (my-howm-set-directory (concat (getenv "HOME2") "/.howm") "~/.howm-keys"))
  (global-set-key "\C-c,2" (my-howm-set-directory (concat (getenv "HOME2") "/.howm-business") "~/.howm-nite-keys"))
  (global-set-key "\C-c,3" (my-howm-set-directory (concat (getenv "HOME2") "/.howm-tech") "~/.howm-nite-3mdb-keys"))

  ;; 一覧バッファや内容バッファからファイルを開く際に
  ;; バッファローカル変数を再設定
  (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: utf-8-unix; buffer-read-only: t -*-\n* %title%cursor\n\n")
  ;;(setq howm-template "#;; -*- Coding: utf-8-unix; buffer-read-only: t; truncate-lines: nil -*-\n* %title%cursor\n\n")
  (setq howm-template "#;; -*- Coding: utf-8-unix; Mode: org; buffer-read-only: t; truncate-lines: nil -*-\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-todo-menu-types "[&-+~]")
  (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:/cygwin64/bin/grep")
  (setq howm-view-fgrep-command "c:/cygwin64/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 リンク

  ;; howmoney
  ;;(load "howmoney")

  ;; RET でファイルを開く際, 一覧バッファを消す
  ;; C-u RET なら残る
  (setq howm-view-summary-persistent nil)

  ;; メニューの予定表の表示範囲
  ;; xx 日前から
  (setq howm-menu-schedule-days-before 90)
  ;; xx 日後まで
  (setq howm-menu-schedule-days 90)

  ;;済項目を表示しない
  (setq howm-schedule-menu-types "[@!~+-]")
  (setq howm-schedule-types "[@!~-]")	   ;; 予定表
  (setq howm-menu-schedule-types "[@!~-]") ;; 予定表
  (setq howm-todo-types "[&+~-]")	   ;; todo 一覧

  ;; メニューの todo に旬度を表示可
  (setq howm-menu-todo-priority-format "(%8.1f)")

  ;; todo 完了時に, ↓みたいに時刻まで記録
  ;; [2010-11-24 22:53]. [2010-11-22]:+ ほげほげ
  ;; howm-test100702 でテスト
  ;; (defadvice howm-action-lock-done-done (around with-time activate)
  ;;   (let ((howm-reminder-today-format howm-dtime-format))
  ;;     ad-do-it))

  ;; 検索等に要した時間を表示
  (setq howm-message-time t)

  ;; いちいち消すのも面倒なので
  ;; 内容が 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)))))

  ;; 					; 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)))



  ;; メニューを自動更新しない
  (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]"))


  ;;
  ;; ReverseDoneReminder
  ;;   -> http://howm.sourceforge.jp/cgi-bin/hiki/hiki.cgi?ReverseDoneReminder
  ;; howm-test071107 でテスト

  ;; ToDo リストで「.」が新しい順に並んでほしい.
  (defadvice howm-todo-priority-done
      (around reverse-order (late lz item) activate)
    (setq late (- late))
    ad-do-it)
  ;; しかもメニューに「.」が表示されてほしい.
  (defvar howm-huge++ 99999)
  (setq howm-menu-todo-priority (- howm-huge++))

  ;; 「[2008-02-15]!」の「!」上で RET を叩いたら,
  ;; 「[2008-02-15]. [2008-02-15]:!」でなく
  ;; 「[2008-02-15], [2008-02-15]:!」になるようにする (やっつけ改造)
  ;;   (defadvice howm-action-lock-done-done
  ;;     (around my-mark (date type lazy desc &optional done-mark) activate)
  ;;     (let ((my-mark ","))
  ;;       (setq done-mark
  ;; 	    (concat my-mark (substring (or done-mark ".") 1))))
  ;;     ad-do-it)


  ;; 優先度順でソートされる. 同じ優先度なら日付順.
  ;; [2005-01-16]&3 ほげ → 優先度 3
  ;; (howm-test050109 でテスト)
  (defun my-explicit-priority (late lazy item)
    (let ((r (or lazy 0)))
      (+ r (* late 0.00001))))
  (defface explicit-priority-face '((t (:foreground "cyan"))) "my face")
  (setq explicit-priority-face 'explicit-priority-face)
  ;;(howm-define-reminder "&" #'my-explicit-priority 'explicit-priority-face nil t t)
  ;; リンクを TAB で辿る
  (eval-after-load "howm-menu"
    '(progn
       (define-key howm-mode-map [(meta tab)] 'action-lock-goto-previous-link)
       (howm-define-reminder "&" #'my-explicit-priority 'explicit-priority-face nil t t)))

  ;; 優先度 30 未満はメニューに表示しない. (他のタイプ(!+-~)との兼ね合いは未考慮)
  (let ((limit-priority 30))
    (setq howm-menu-todo-priority
	  ;; 日付に応じた微差を吸収するため, 中点を境界にする
	  (let ((f (lambda (d)
		     (my-explicit-priority 0 (- limit-priority d) 'dummy))))
	    (* 0.5 (apply #'+ (mapcar f '(0 1)))))))


  ;;
  ;; HidePrivateReminder
  ;;  ->http://howm.sourceforge.jp/cgi-bin/hiki/hiki.cgi?HidePrivateReminder
  ;;  howm-test050308 でテスト
  (defvar howm-private-regexp (regexp-opt '("[Private]" "[Priv]" "[Money]" "[passwd]" "[Hosp]" "[Med]")))
  (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-test090530 以降.
  (setq howm-normalizer
	(lambda (item-list)
	  (when howm-hide-private
	    (setq item-list
		  (howm-filter-items-by-contents item-list howm-private-regexp t)))
	  (howm-sort-items-by-mtime item-list)))

  ;; [Private] を含む項目を予定表(C-c , y)や ToDo リスト(C-c , t)でも非表示に
  ;; howm-test090502 でテスト
  (defun howm-filter-private-maybe (postprocess)
    (when howm-hide-private
					; (if (howm-view-remove-by-contents howm-private-regexp) ;; メモ毎
      (if (howm-view-filter-by-summary t howm-private-regexp) ;; 項目毎
	  (funcall postprocess)
	(progn
	  (howm-view-kill-buffer)
	  (message "No match.")))))
  ;; 迂遠だが, 公開関数に defadvice する方が安全
  (defadvice howm-list-schedule (around hide-private activate)
    ad-do-it
    (howm-filter-private-maybe #'howm-reminder-goto-today))
  (defadvice howm-list-todo (around hide-private activate)
    ad-do-it
    (howm-filter-private-maybe #'list)) ;; dummy postprocess




  (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.")))))

  ;;カレンダーの上で d を押すと grep
  (add-hook 'initial-calendar-window-hook
	    '(lambda ()
	       (local-set-key
		"d" 'howm-from-calendar)))

  ;;howm のメニューで d でカレンダー
  (add-hook 'howm-menu-hook
	    '(lambda ()
	       (local-set-key "p" 'howm-toggle-private)
	       (local-set-key "d" 'calendar)))
  ;; org-modeとのキー割当の重複を避ける (お好みで)
  ;;  (setq howm-prefix "\C-z")
;;;
;;; howmとカレンダーの併用
;;;
  (require 'calendar)
  (require 'howm)
  (setq
   calendar-date-display-form
   '("[" year "-" (format "%02d" (string-to-int month))
     "-" (format "%02d" (string-to-int day)) "]"))
  (setq diary-file
	(expand-file-name "diary" howm-directory))

  (defun howm-mark-calendar-date ()
    (interactive)
    (require 'howm-reminder)
    (let* ((today (howm-reminder-today 0))
	   (limit (howm-reminder-today 1))
	   (howm-schedule-types
	    howm-schedule-menu-types)
	   (raw (howm-reminder-search
		 howm-schedule-types))
	   (str nil) (yy nil) (mm nil) (dd nil))
      (while raw
	(setq str (nth 1 (car raw)))
	(when
	    (string-match
	     "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)"
	     str)
	  (setq yy (match-string 1 str))
	  (setq mm (match-string 2 str))
	  (setq dd (match-string 3 str)))
	(when (and yy mm dd)
	  (mark-calendar-date-pattern
	   (string-to-int mm)
	   (string-to-int dd)
	   (string-to-int yy)))
	(setq mm nil)
	(setq dd nil)
	(setq yy nil)
	(setq raw (cdr raw))
	)))

  (defadvice mark-diary-entries
      (after mark-howm-entry activate)
    (howm-mark-calendar-date))

  (defadvice diary-mark-entries
      (after mark-howm-entry activate)
    (howm-mark-calendar-date))

  (setq
   howm-menu-display-rules
   (cons
    (cons "%hdiary[\n]?" 'howm-menu-diary)
    howm-menu-display-rules
    ))

  (defun howm-menu-diary ()
    (require 'diary-lib)
    (message "scanning diary...")
    (delete-region
     (match-beginning 0) (match-end 0))
    (let* ((now (decode-time (current-time)))
	   (diary-date
	    (list (nth 4 now) (nth 3 now) (nth 5 now)))
	   (diary-display-hook 'ignore)
	   (cbuf (current-buffer))
	   (howm-diary-entry nil)
	   (howm-diary-entry-day nil)
	   (str nil))
      (unwind-protect
	  (setq howm-diary-entry
		(list-diary-entries
		 diary-date howm-menu-schedule-days))
	(save-excursion
	  (set-buffer
	   (find-buffer-visiting diary-file))
	  (subst-char-in-region
	   (point-min) (point-max) ?\^M ?\n t)
	  (setq selective-display nil)))

      (while howm-diary-entry
	(setq howm-diary-entry-day (car howm-diary-entry))
	(setq mm (nth 0 (car howm-diary-entry-day)))
	(setq dd (nth 1 (car howm-diary-entry-day)))
	(setq yy (nth 2 (car howm-diary-entry-day)))
	(setq str (nth 1 howm-diary-entry-day))
	(setq howm-diary-entry (cdr howm-diary-entry))
	(insert
	 (format
	  ">>d [%04d-%02d-%02d] %s\n" yy mm dd str))))
    (message "scanning diary...done")
    )

  (setq diary-date-forms
	'((month "/" day "[^/0-9]")
	  (month "/" day "/" year "[^0-9]")
	  ("\\[" year "-" month "-" day "\\]" "[^0-9]")
	  (monthname " *" day "[^,0-9]")
	  (monthname " *" day ", *" year "[^0-9]")
	  (dayname "\\W")))

  (defun howm-open-diary (&optional dummy)
    (interactive)
    (let ((date-str nil) (str nil))
      (save-excursion
	(beginning-of-line)
	(when (re-search-forward
	       ">>d \\(\\[[-0-9]+\\]\\) " nil t)
	  (setq str
		(concat
		 "^.+"
		 (buffer-substring-no-properties
		  (point) (line-end-position))))
	  (setq date-str
		(concat
		 "^.+"
		 (buffer-substring-no-properties
		  (match-beginning 1)
		  (match-end 1))
		 " " str))
	  (find-file
	   (substitute-in-file-name diary-file))
	  (howm-mode t)
	  (goto-char (point-min))
	  (if (re-search-forward date-str nil t)
	      ()
	    (re-search-forward str nil t))))))

  (defun add-diary-action-lock-rule ()
    (let ((rule
	   (action-lock-general
	    'howm-open-diary
	    "^\\(>>d\\) "
	    1 1)))
      (if (not (member rule action-lock-default-rules))
	  (progn
	    (setq action-lock-default-rules
		  (cons rule action-lock-default-rules))
	    (action-lock-set-rules
	     action-lock-default-rules)))))

  (add-hook 'action-lock-mode-on-hook
	    'add-diary-action-lock-rule)

  (defun howm-from-calendar ()
    (interactive)
    (let* ((mdy (calendar-cursor-to-date t))
	   (m (car mdy))
	   (d (second mdy))
	   (y (third mdy))

	   ;;  (key (format-time-string howm-date-format
	   ;;   (encode-time 0 0 0 d m y))))
	   ;; オリジナルだと yyyy-mm-dd を検索するので、[yyyy-mm-dd HH:MM] も
	   ;; 検索されて、ちょっとうっとしいので、下のように変更。[2004-02-23]

	   (key (format "[%s]" (format-time-string howm-date-format
						   (encode-time 0 0 0 d m y)))))
      (howm-keyword-search key)))

  (defadvice make-diary-entry
      (after howm-mode activate)
    (text-mode)
    (howm-mode t))


  ;; 検索時に改行や空白を無視 
  (defun howm-list-grep-ignore-space ()
    (interactive)
    (howm-set-command 'howm-list-grep-fixed)
    (howm-search (mapconcat #'identity
			    (split-string (read-from-minibuffer "Search: ") "")
			    "[ \f\t\n\r\v]+")
		 nil))

;;; howm-modeでの初期テキスト設定

  (add-hook 'howm-mode-on-hook
	    (function(lambda ()
		       (local-set-key "\C-c\C-d" 'my-get-date)
		       (local-set-key "\C-c\C-t" 'my-get-time)
		       (local-set-key "\C-c\ed" 'my-get-dtime)
		       ;;		       (setq buffer-file-coding-system 'sjis-dos)
		       (setq tab-stop-list
			     '(4 8 12 16))
		       ;;		       (turn-on-auto-fill)
		       (setq fill-column 90)
		       (setq tab-width 4)
		       (setq indent-tabs-mode t))))

  (defun howm-list-done ()
    "完了した todo を一覧"
    (interactive)
    ;;    (let ((howm-schedule-types "[.]"))
    (let ((howm-schedule-types "\\. \\["))
      (howm-list-schedule)))

    ;; migemo-client のかわりに cmigemo も対応
    (setq howm-migemo-client '((type . cmigemo) (command . "cmigemo")))
    (setq howm-migemo-client-option
       '("-q" "-d" "c:/usr64/local/share/migemo/utf-8/migemo-dict"))
  
  )

■ バージョン

howm: 1.4.5-snapshot3 (compile: nil, make: nil, test: t)
Emacs: 24.5.1 (x86_64-pc-mingw32) of 2016-07-22
system: windows-nt
window system: w32
ENV: LC_ALL=nil, LC_CTYPE=nil, LANGUAGE=nil, LANG=ja_JP.UTF-8
(Please LogIn to post comments.)
Last modified:2018/10/27 20:07:12
Keyword(s):
References:[BugReportPaste]