;ELC ;;; Compiled by proclus@darwintel on Wed Jan 2 15:45:51 2008 ;;; from file /mnt/gmirror/ports/deskutils/howm/work/howm-1.3.4/howm-menu.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 1.1.1.4 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`howm-menu.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\305\306!\210\301B\307\301!\204\310\311 \312\n \313#\210\312\n\314\315#\210\312\n\316\317#\210\312\n\320\315#\210\312\n\321\317#\210\312\n\322\323#\210\312\n\324\325#\210\312\n\326\325#\210\312\n\327\330#\210\312\n\331\332#\210\n)\304B\307\304!\204^\333\f\203f\334\333!\210\310\207" [current-load-list howm-menu-mode-map m action-lock-magic-return-key howm-randomize require howm-common boundp nil make-keymap define-key howm-menu-invoke [tab] action-lock-goto-next-link [(meta tab)] action-lock-goto-previous-link " " "\211" " " scroll-up [backspace] scroll-down "" "q" bury-buffer "?" describe-mode t random] 4) #@70 Format to show schedule/todo/recent/random list in `howm-menu-mode'. (defvar howm-menu-list-format "> %s | %s" (#$ . 1270)) #@80 Regexp to find and parse schedule/todo/recent/random list in `howm-menu-mode'. (defvar howm-menu-list-regexp "^\\(>\\)\\([^| \n]*|\\) +\\(.*\\)$" (#$ . 1400)) #@115 Position of target string for action-lock in history buffer. This target is searched when action-lock is invoked. (defvar howm-menu-list-regexp-key-pos 3 (#$ . 1566)) #@90 Position of action-lock hilight on schedule/todo/recent/random list in `howm-menu-mode'. (defvar howm-menu-list-regexp-action-pos 1 (#$ . 1739)) #@98 Position to apply `howm-menu-list-face' on schedule/todo/recent/random list in `howm-menu-mode'. (defvar howm-menu-list-regexp-face-pos 2 (#$ . 1890)) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\310\303B\306\303!\204$\311\304B\306\304!\2040\312\305B\306\305!\204<\313\301\207" [current-load-list howm-menu-key-regexp howm-menu-key-regexp-word-pos howm-menu-key-regexp-key-pos howm-menu-key-regexp-moveonly-pos howm-menu-allow boundp "%\"\\(\\([^ \n%\"]\\)[^ \n%\"]*\\(%+[^ \n%\"]+\\)*\\)\\(%\\)?\"" 1 2 4 (howm-menu-schedule howm-menu-todo howm-menu-reminder howm-menu-recent howm-menu-random howm-menu-search howm-menu-categorized-reminder)] 2) #@166 List of rules for dynamic contents in howm menu. ((R1 . T1) (R2 . T2) ...): Regexp R1 is replaced by T1 if T1 is a string. (T1) is called at R1 if T1 is a function. (defvar howm-menu-display-rules (byte-code "\301\302\303\304\305\306\307\310\311B\257 \207" [howm-menu-key-regexp ("%sdays" . "%here%howm-menu-schedule-days") ("%tnum" . "%here%howm-menu-todo-num") ("%schedule" . "%here%(howm-menu-schedule)") ("%todo" . "%here%(howm-menu-todo)") ("%reminder" . "%here%(howm-menu-reminder)") ("%recent" . "%here%(howm-menu-recent)") ("%random" . "%here%(howm-menu-random)") ("%here%" . howm-menu-here) howm-menu-shortcut] 10) (#$ . 2575)) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\310\303B\306\303!\204$\311\304B\306\304!\2040\312\305B\306\305!\204<\313\314B\306\314!\204I\315\f\316B\306\316!\204V\315\317B\306\317!\204c\315\320B\306\320!\204p\315\321\320!\210\322B\306\322!\204\201\315\323B\306\323!\204\217\324 \325B\306\325!\204\235\324 \326B\306\326!\204\252\315\327B\306\327!\204\267\315\330B\306\330!\204\304\315\321\322!\210\321\323!\210\321\325!\210\321\326!\210\321\327!\210\321\330!\207" [current-load-list howm-menu-command-table-common howm-menu-action-arg howm-menu-keyword-regexp howm-menu-top howm-menu-toggle-invisible boundp ((("%eval%\\(.*$\\)" 1) howm-menu-eval previous) (("%call%\\(.*$\\)" 1) howm-menu-call previous)) howm-menu-action-arg-name "^%.*%$" "%menu%" "%|" *howm-menu-force-refresh* nil *howm-menu-shortcut-keys* *howm-menu-shortcut-multidef-keys* *howm-menu-shortcut-markers* make-variable-buffer-local howm-menu-previous-buffer howm-menu-next-expiry-time current-time howm-menu-last-time howm-menu-buffer-file howm-menu-buffer-file-place howm-menu-mode-local-map] 2) #@207 howm menu key binding --- ------- \[action-lock-magic-return] Follow link \[action-lock-goto-next-link] Next link \[action-lock-goto-previous-link] Prev link \[describe-mode] This help \[bury-buffer] Quit  (defalias 'howm-menu-mode #[nil "\304\305\306\n!\307 !\207" [major-mode mode-name howm-menu-mode-map howm-menu-mode-local-map howm-menu-mode "HM" copy-keymap use-local-map] 2 (#$ . 4365) nil]) (defalias 'howm-menu #[(&optional force-refresh last-chance) "\306!\307=\203\310!\204\311\312\"\210 \313\f\203@ \204@\314!\315\316\"A\205<\315\317\"A?\205<\320!)\202C\321 !*\207" [howm-directory force-refresh *howm-independent-directories* *howm-menu-force-refresh* howm-menu-keyword-regexp howm-menu-file howm-folder-type :dir file-exists-p make-directory t nil howm-keyword-search assoc menu-p keyword-matched howm-menu-initialize-skel howm-menu-open howm-menu-top m last-chance] 3 nil nil]) (defalias 'howm-menu-open #[(file &optional place name) "\206\305 !\306 !\203 \202\307 \n\"\310 !\203%\311 \f#\202+\312 !\210\313 )\207" [name file howm-directory f place howm-menu-name file-name-absolute-p expand-file-name file-exists-p howm-menu-open-sub find-file howm-mode] 4]) (defalias 'howm-menu-open-sub #[(f place name) "p \306 !\307\310 !8 \204-\f\203-\fq\210\311 \"\204-\311\312 \"\2037\313  #\210\202;\314\f!\210 \212\n=\203Uq\210\211q\210 \211\202@)\211-\207" [pb major-mode pm name b f get-buffer 5 file-attributes howm-time< current-time howm-menu-refresh switch-to-buffer mtime *howm-menu-force-refresh* howm-menu-last-time howm-menu-next-expiry-time place cm howm-menu-previous-buffer] 5]) (byte-code "\301B\302\301!\204\f\303\304\301!\207" [current-load-list howm-menu-shortcut-assoc boundp nil make-variable-buffer-local] 2) #@147 *Non nil if 'invisible' property should be used in menu. This must be t at now. When this is nil, delete-region is used instead, and bug appears. (defvar howm-menu-invisible t (#$ . -6184)) (defalias 'howm-menu-refresh #[(&optional file place name) "\203\n\306\307!!\210\310 \210 \206\n \206\f\206\311\312\313 \210\312\314 \210\315\n\f\"\210\316 \210\317 \210\320\312!\210\321eb\210\322 \323\322 \324#\325 \210\326\327!\207" [name file howm-menu-buffer-file place howm-menu-buffer-file-place howm-menu-shortcut-assoc switch-to-buffer get-buffer-create howm-menu-mode 1 nil buffer-disable-undo erase-buffer howm-menu-insert-paragraph howm-menu-dynamic-setup howm-menu-set-face set-buffer-modified-p t current-time howm-days-after 0 howm-menu-shortcut-warn run-hooks howm-menu-hook buffer-read-only howm-menu-last-time howm-menu-expiry-hours howm-menu-next-expiry-time] 4 nil nil]) (defalias 'howm-menu-insert-paragraph #[(file place) "\306\307 \"!\210\310\n!\210\311 \211@ \211A@)\211 d|\210e\f|\210+db\210\312 c\207" [file howm-directory place r b x insert-file-contents expand-file-name howm-view-set-place howm-view-paragraph-region howm-menu-footer e] 5]) (defalias 'howm-menu-dynamic-setup #[nil "\303 \210\304!\210\305 \n\203\306 \202\302\307!)\207" [howm-menu-display-rules action-lock-default-rules howm-mode howm-menu-shortcut-initialize howm-menu-replace howm-menu-action-lock-rules howm-initialize-buffer 1] 2]) (defalias 'howm-menu-set-face #[nil "\302\300!\210\303\304 \210\305 \210 \205\306 \207" [font-lock-keywords-only howm-menu-toggle-invisible make-local-variable t howm-menu-add-font-lock font-lock-fontify-buffer howm-menu-make-invisible] 2]) (defalias 'howm-menu-footer #[nil "\206\304 \305\306\307\"\310\311\312\nB\"\211 +\207" [howm-menu-footer r buttons footer howm-menu-command-table-raw mapcar #[(f) "\302\303\304 \"\"A\207" [f r assoc mapcar #[(z) "\211A@)@B\207" [z x] 3]] 5] (howm-menu-refresh howm-menu-edit) apply concat "\n-- \n"] 5]) (defalias 'howm-menu-refresh-background #[nil "p\301\302!\210\303!)\207" [b howm-menu t switch-to-buffer] 2]) (defalias 'howm-menu-invoke #[(arg) "\212\302 \210\303!)\203\302 \210\304 !\207\305\306!\207" [howm-menu-list-regexp arg beginning-of-line looking-at action-lock-invoke error "Not on spell string."] 2 nil "P"]) (defalias 'howm-menu-action-lock-rules #[nil "\305 \306 \307\310\311 \"\312\f \n$,\207" [action-lock-default-rules d f j m howm-action-lock-reminder-forward-rules howm-menu-list-rules mapcar #[(pair) "@\211<\203 @\202  <\205 \211A@)\211\205$\306\307\fDDA \310 \"\n\n\n.D\207" [pair h r x n args list match-string-no-properties howm-menu-action functab c] 4] howm-menu-command-table append] 5]) (defalias 'howm-menu-action #[(function-table args) "@\211A@)\211\306= \307=\203\310\202\311\312 D\313\314 D\205)\315E\f\2039\316E\202>\317 E\320\321D\322\315D\323BEE.\207" [function-table func x onbuf switch-p s-buf previous current cur prev switch-to-buffer apply function a progn with-current-buffer lambda &optional let ((cur (current-buffer)) (prev (if (howm-buffer-alive-p howm-menu-previous-buffer) howm-menu-previous-buffer (current-buffer)))) s-switch args s-apply s-body howm-menu-action-arg] 6]) (defalias 'howm-menu-shortcut-get-marker #[nil "\301 \211`\302\223\210\303\304\"\210)\207" [m make-marker nil add-to-list *howm-menu-shortcut-markers*] 4]) (defalias 'howm-menu-shortcut-clear-markers #[nil "\301\302\"\210\303\211\207" [*howm-menu-shortcut-markers* mapc #[(m) "\301\211\223\207" [m nil] 3] nil] 3]) (defalias 'howm-menu-shortcut-initialize #[nil "\302\302\303 \207" [*howm-menu-shortcut-keys* *howm-menu-shortcut-multidef-keys* nil howm-menu-shortcut-clear-markers] 1]) (defalias 'howm-menu-shortcut-sort #[(keys) "\301\302\303\304!\305\"\306#\207" [keys mapconcat identity sort copy-list string< ""] 5]) (defalias 'howm-menu-shortcut-warn #[nil "\205\302 \210\303\304\305!\305 !#\207" [*howm-menu-shortcut-multidef-keys* *howm-menu-shortcut-keys* beep message "Multiple definitions for key(s): \"%s\" in \"%s\"" howm-menu-shortcut-sort] 5]) (defalias 'howm-menu-shortcut #[nil "\306\224\306\225\n\224\n\225\307 !\f \224\310\f \"\210\310 \"\210\311 \fBB\312\f\313\f##\210)\f\235\203M\fB\fB\211.\207" [beg end howm-menu-key-regexp-word-pos wbeg wend howm-menu-key-regexp-key-pos 0 match-string-no-properties howm-menu-invisible-region howm-menu-shortcut-get-marker define-key howm-menu-shortcut-func key howm-menu-key-regexp-moveonly-pos move-only p howm-menu-shortcut-assoc howm-menu-mode-local-map *howm-menu-shortcut-keys* *howm-menu-shortcut-multidef-keys*] 7]) (defalias 'howm-menu-shortcut-func #[(key p move-only) "\203 \304 \n\"\207\305 \n#\207" [howm-menu-invisible p move-only key howm-menu-shortcut-func1 howm-menu-shortcut-func2] 4]) (defalias 'howm-menu-shortcut-func1 #[(p move-only) "\302\303\304\305\306DC\307 \310BBEF\207" [p move-only lambda (arg) (interactive "P") let pos if ((goto-char pos) (save-excursion (goto-char pos) (let ((case-fold-search nil)) (when (null (action-lock-get-action)) (action-lock-goto-next-link)) (action-lock-invoke arg))))] 8]) (defalias 'howm-menu-shortcut-func2 #[(key p move-only) "\203\f\306\307\310\311 DF\207\212 b\210\312\313 \204\314 \210\313 \211\204%\315\202;\316\f \" \241\210\306\317\320\321\322\316\f\323BBD\324BBF+\207" [move-only p case-fold-search action key howm-menu-shortcut-assoc lambda (arg) (interactive "P") goto-char nil action-lock-get-action action-lock-goto-next-link #[(arg) "\300\207" [nil] 1 nil "P"] assoc (arg) (interactive "P") funcall cdr (howm-menu-shortcut-assoc) (arg)] 9]) (defalias 'howm-menu-edit #[nil "\304\305\n \"!\210\306\307!\210 \205\310 !\210\311\312!)\207" [howm-menu-buffer-file-place place howm-menu-buffer-file howm-directory find-file expand-file-name howm-mode t howm-view-set-place recenter 0] 4 nil nil]) (defalias 'howm-menu-eval #[(s) "\302!\303 !)\207" [s expr read eval] 2]) (defalias 'howm-menu-call #[(s) "\302!\303 !)\207" [s expr read call-interactively] 2]) (defalias 'howm-open-today #[nil "\300\301!\203\n\302\303!\210\304 \207" [howm-create-file t howm-insert-template "" howm-set-mode] 2 nil nil]) (defalias 'howm-open-past #[(&optional days-before) "\206\301\211\302U\203\303 \207\304!\207" [days-before 1 0 howm-open-today howm-open-past-sub] 3 nil "p"]) (defalias 'howm-open-past-sub #[(days-before) "\303\304\305\306 [\"! \"\307\n!\203\310\n!\210\202\311\312\n\"\210)\313 \207" [days-before howm-directory f expand-file-name howm-file-name howm-days-after current-time file-exists-p find-file error "No such file: %s" howm-set-mode] 5]) (defalias 'howm-find-past #[(&optional days-before) "\301 \203 \302!\207\303!\207" [days-before howm-one-file-one-day-p howm-open-past howm-search-past] 2 nil "p"]) (defalias 'howm-find-today #[(&optional days-before) "\301\206\302!\207" [days-before howm-find-past 0] 2 nil "P"]) (defalias 'howm-find-yesterday #[(&optional days-before) "\301\206\302!\207" [days-before howm-find-past 1] 2 nil nil]) (defalias 'howm-one-file-one-day-p #[nil "\306 \3078\3108\3118\312\313\211\211 \n &\312\314\211\315 \n &\316\f!\316 !\230.\207" [now d m y beginning-of-day end-of-day decode-time 3 4 5 encode-time 0 59 23 howm-file-name] 7]) (defalias 'howm-menu-make-invisible #[nil "\212eb\210\303\211`dU?\205D\304\305\n\306 \304#\2030 \203$\307\224\202*\310\307\225\"\210 ?\202 \204>\310\212\303y\210`)\"\210\303y\210\202+\207" [invisible-beg visible-p howm-menu-toggle-invisible nil t re-search-forward line-end-position 0 howm-menu-invisible-region] 4]) (defalias 'howm-menu-font-lock-rules #[nil " \304BD\n \305BDD\207" [howm-menu-key-regexp howm-menu-key-regexp-key-pos howm-menu-list-regexp howm-menu-list-regexp-face-pos (howm-menu-key-face t) (howm-menu-list-face t)] 4]) (defalias 'howm-menu-add-font-lock #[nil "\300\301 !\207" [cheat-font-lock-append-keywords howm-menu-font-lock-rules] 2]) (defalias 'howm-menu-replace #[(rules) "\301\302\"\207" [rules mapc #[(pair) "@Aeb\210\303 \304\305#\2051\n;\203\306\n!\210\202 \307\n!\203)\n \210\202 \310\311\n\"\210\202 *\207" [pair reg to re-search-forward nil t replace-match functionp error "Invalid to-part: %s."] 4]] 3]) (defalias 'howm-menu-here #[nil "\304\224\304\225\305 \210`\306\307 \n\"!\2119\203\310 \n#\2023 <\203/\311 @ A\n$\2023\312\313 \",\207" [beg expr-beg expr-end expr 0 forward-sexp read buffer-substring-no-properties howm-menu-here-var howm-menu-here-func message "Unknown expr: %s"] 6]) (defalias 'howm-menu-here-var #[(expr beg end) "\303!\203 \304 \nJ#\207\305\306\"\207" [expr beg end boundp howm-replace-region message "Unknown symbol: %s"] 4]) (defalias 'howm-menu-here-func #[(func args beg end) " \235\211\204\306\307\"\202$\310!\204\306\311\"\202$\312 \f\313 \"#)\207" [func howm-menu-allow allowed beg end args message "Not allowed: %s" fboundp "Unknown function: %s" howm-replace-region apply] 7]) (defalias 'howm-menu-schedule #[nil "\302\303\304\305 \"#\207" [howm-menu-schedule-days howm-menu-schedule-days-before howm-menu-general "schedule" schedule howm-schedule-menu] 6]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list howm-menu-todo-show-day-of-week boundp t] 2) (defalias 'howm-menu-todo #[nil "\303\304\305\306 \n##\207" [howm-menu-todo-num howm-menu-todo-priority howm-menu-reminder-separators howm-menu-general "todo" todo howm-todo-menu] 7]) (defalias 'howm-menu-reminder #[nil "\303\304\305\306 \n##\207" [howm-menu-todo-num howm-menu-todo-priority howm-menu-reminder-separators howm-menu-general "reminder" todo howm-reminder-menu] 7]) (defalias 'howm-menu-recent #[(&optional random) "\302\203 \303\202\n\304\305\306 \"#\207" [random howm-menu-recent-num howm-menu-general "random" "recent" nil howm-recent-menu] 6]) (defalias 'howm-menu-random #[nil "\300\301!\207" [howm-menu-recent t] 2]) #@321 Generate output string for items in howm menu. LABEL is only used for message. FORMATTER is a function which receives an item and returns an output string (without newline). FORMATTER can be nil for standard style, 'todo for todo style, or 'schedule for schedule style. ITEM-LIST is list of items which should be shown. (defalias 'howm-menu-general #[(label formatter item-list) "\204\306\202\307=\203\310\202\311=\203\312\202\313\313\314P\315\n\f\"\210\316 \317#\315 \f\"\210+\207" [formatter f msg msg-done label item-list howm-menu-format-item todo howm-menu-format-todo schedule howm-menu-format-reminder "scanning %s..." "done" message mapconcat "\n"] 4 (#$ . 16243)]) (defalias 'howm-menu-format-todo #[(item) ";\203\207 \203\303\202\304\305\n\306#)\207" [item howm-menu-todo-show-day-of-week dow-str nil " " howm-menu-format-reminder t] 4]) (defalias 'howm-menu-format-reminder #[(item &optional day-of-week-str show-priority) "\306!\307 @! \211AA)A@ \206\310\f!\203/\203/\311\312!\"\2020\313\311\314\n$\315\316!#.\207" [item p late x dow day-of-week-str howm-todo-parse floor howm-day-of-week-string format howm-todo-priority "" "%s%3s%s" howm-menu-list-format howm-view-item-summary dow-str howm-menu-todo-priority-format show-priority priority h] 6]) (defalias 'howm-day-of-week-string #[(&optional day-of-week) "\206\302\303 8\304 \211TO)\207" [day-of-week dow 6 decode-time howm-day-of-week] 3]) (defalias 'howm-recent-menu #[(num &optional random) "\306 \203\n\307\202 \310\311\312\313\314\315\316 \317\"\"#\320\f \"\321\322 #\320 \"-\207" [summarizer random h-r-m-evaluator howm-directory sorted num #[(file line content) "\207" [content] 1] #[(f) "\300\301 !\207" [number-to-string random] 2] #[(f) "\301\302\"\207" [f howm-view-xtime m] 3] howm-sort #[(f) " !\207" [h-r-m-evaluator f] 2] howm-view-string> mapcar howm-item-name howm-folder-items t howm-first-n howm-view-search-items howm-menu-recent-regexp files items] 8]) (defalias 'howm-menu-recent-regexp #[nil "\206\301 \207" [howm-menu-recent-regexp howm-view-title-regexp-grep] 1]) (defalias 'howm-menu-list-put-item #[(text item) "\302\303G\304 %\207" [text item put-text-property 0 howm-menu-list-item] 6]) (defalias 'howm-menu-list-get-item #[(&optional text) "\301\203 \302\202\n`\303#\207" [text get-text-property 0 howm-menu-list-item] 4]) (defalias 'howm-menu-list-getput-item #[(from-text to-text) "\302\303 !\"\207" [to-text from-text howm-menu-list-put-item howm-menu-list-get-item] 4]) (defalias 'howm-menu-list-action #[(&optional keyword) "\302!\211\203\303 !\202\203\304!\202\305\306!)\207" [keyword item howm-menu-list-get-item howm-view-open-item howm-keyword-search error "Target is not specified."] 3]) (defalias 'howm-menu-format-item #[(item) "\303\304!!\305!\306 \n#*\207" [item info line file-name-sans-extension howm-view-item-basename howm-view-item-summary howm-menu-list-format] 4]) (defalias 'howm-menu-list-format #[(info line item) "\305 \n#\306 \f\"\210 )\207" [howm-menu-list-format info line s item format howm-menu-list-put-item] 4]) (defalias 'howm-menu-list-rules #[nil "\303\304 \n$C\207" [howm-menu-list-regexp howm-menu-list-regexp-key-pos howm-menu-list-regexp-action-pos action-lock-general howm-menu-list-action] 5]) (defalias 'howm-menu-search #[(key) "\301\302\303\304\305 \303\306$#\207" [key howm-menu-general "menu-search" nil howm-view-search-folder-items howm-folder fixed] 8]) #@370 Generate string of classified reminder-list. CLASSIFIER is a function which receives an item and answers its class. Class can be an arbitrary lisp object. When class is nil, corresponding item is not shown in this list. COMPARER is a function which receives two keys and answer t or nil. It is used for sorting of keys. TITLE-FORMAT is a format string for class title. (defalias 'howm-menu-classified-reminder #[(classifier &optional comparer title-format) "\306\307\310 \310#\"\311\310\312\313\n\"\"\f\206\314\315P\203$\316 \"\317\320 \315#+\207" [classifier howm-menu-todo-priority a keys title-format tform howm-classify howm-reminder-menu nil remove mapcar car "--%s--" "\n" sort mapconcat #[(k) "\306\307 \"A\n\"\f B \310 \"*\311\"\312\311\313\"\314#P*\207" [k a howm-menu-todo-num item-list howm-menu-schedule-days-before howm-menu-schedule-days howm-first-n assoc howm-todo-insert-separators format howm-menu-general "reminder(%s)" todo howm-reminder-schedule-interval howm-reminder-menu-types howm-todo-menu-types howm-menu-reminder-separators is tform] 5] comparer] 6 (#$ . 19766)]) #@529 Generate string of categorized reminder-list. Write %here%(howm-menu-categorized-reminder ("foo" "bar" "baz")) to show categorized list in menu. (You don't need quote(') before the above list; arguments are not evaluated in %here% because I don't have enough courage to call eval.) If you like to erase category label from summary string, try %here%(howm-menu-categorized-reminder ("foo" "bar" "baz") nil t) instead. If you don't like misc. category, try %here%(howm-menu-categorized-reminder ("foo" "bar" "baz") nil nil t). (defalias 'howm-menu-categorized-reminder #[(categories &optional title-format erase-p omit-misc-p) "\305\306\307\310\311 \f#,\207" [matcher classifier pos comparer title-format #[(cat str item) "\304\305! \"\205\n\203\306 \307\310\311\211 $\"\210\312\207" [cat str erase-p item string-match regexp-quote howm-item-set-summary replace-match "" nil t] 7] #[(item) "\304!\305\306\n\"\206 ?\205\307)\207" [item s categories omit-misc-p howm-item-summary howm-cl-find-if #[(c) " \n #\207" [matcher c s item] 4] "misc."] 3] #[(c) "\303 \"\206\n\207" [c categories howm-infinity howm-cl-position] 3] #[(a b) " !\n!W\207" [pos a b] 3] howm-menu-classified-reminder] 4 (#$ . 20894)]) (defalias 'howm-menu-initialize-skel #[(&optional dummy) "\302\303\304#\305 !\210\306 J!\210\307 \210\310\303\311\")\207" [howm-menu-lang menu-name howm-get-symbol nil "howm-menu-" require howm-menu-copy-skel howm-view-kill-buffer howm-menu t] 4]) (defalias 'howm-menu-copy-skel #[(contents) "\206\304\305 \"\306\n!\203\n\307\310\n\"\202!\311\n!\210 c\210\312 )\207" [howm-menu-file howm-directory menu-file contents expand-file-name "0000-00-00-000000.howm" file-exists-p message "Assume %s as menu file." find-file save-buffer] 3]) (defalias 'howm-require-lang #[(&optional lang) "\302\303\304\305\206 #!\207" [lang howm-menu-lang require howm-get-symbol nil "howm-lang-"] 5]) (defalias 'howm-lang-ref #[(var) "\303 !\210\304\305\n\306 $J)\207" [howm-menu-lang lang var howm-require-lang howm-get-symbol t "-"] 5]) (defalias 'howm-menu-command-table-raw #[nil "\300\301!\207" [howm-lang-ref "howm-menu-command-table"] 2]) (defalias 'howm-menu-command-table #[nil "\301\302\303\304 \"\"\207" [howm-menu-command-table-common append mapcar #[(pair) "\301@!AB\207" [pair regexp-quote] 2] howm-menu-command-table-raw] 5]) (defalias 'howm-day-of-week #[nil "\300\301!\207" [howm-lang-ref "howm-day-of-week"] 2]) (defalias 'howm-menu-p #[nil "\301\230\207" [major-mode "howm-menu-mode"] 2]) (defalias 'howm-menu-name #[(file) "\302 \"\207" [howm-menu-name-format file format] 3]) (defalias 'howm-buffer-alive-p #[(buf) "\205\301!\207" [buf buffer-name] 2]) (defalias 'howm-menu-keyword-p #[(keyword) "\205 ;\205 \302 \"\207" [howm-menu-keyword-regexp keyword string-match] 3]) (defalias 'howm-time< #[(t1 t2) "@ @W\206@ @U\205\211A@) \211A@)W\207" [t1 t2 x] 3]) (defalias 'howm-menu-invisible-region #[(beg end) "\203 \303 \n\304\305$\207 \n|\207" [howm-menu-invisible beg end put-text-property invisible t] 5]) (provide 'howm-menu)