;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-mode.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-mode.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\204\302\303!\210\304\305!\210\304\306!\207" [featurep howm-version message "Warning: Requiring howm-mode is obsolete. Require howm instead." require howm howm-common] 2) #@218 Contents of new file. %xxx are replaced with specified items. If it is a list, -th one is used when you type C-u M-x howm-create. If it is a function, it is called to get template string with the argument . (defvar howm-template (concat howm-view-title-header " %title%cursor\n%date %file\n\n") (#$ . 826)) #@59 Header string for declaration of keyword (implicit link). (defvar howm-keyword-header "<<<" (#$ . 1149)) #@34 Header string for explicit link. (defvar howm-ref-header ">>>" (#$ . 1260)) #@25 Mode line for howm-mode (defvar howm-lighter " howm" (#$ . 1342)) #@74 If non-nil, inhibit howm-list-title when search string matches file name (defvar howm-inhibit-title-file-match t (#$ . 1414)) (byte-code "\301B\304\301!\204\f\305\302B\304\302!\204\305\303B\304\303!\204$\306\305\207" [current-load-list howm-list-all-title howm-list-recent-title howm-date-separator boundp nil "-"] 2) #@164 List of (key function list-mode-p). `howm-prefix' + this key is real stroke. If optional argument list-mode-p is non-nil, same key is also available in view mode. (defvar howm-default-key-table '(("r" howm-refresh) ("l" howm-list-recent t t) ("a" howm-list-all t t) ("g" howm-list-grep t t) ("s" howm-list-grep-fixed t t) ("m" howm-list-migemo t t) ("t" howm-list-todo t t) ("y" howm-list-schedule t t) ("c" howm-create t t) ("," howm-menu t t) ("." howm-find-today nil t) (":" howm-find-yesterday nil t) ("A" howm-list-around) ("h" howm-history nil t) ("D" howm-dup) ("i" howm-insert-keyword nil t) ("d" howm-insert-date nil t) ("T" howm-insert-dtime nil t) ("K" howm-keyword-to-kill-ring t t) ("n" action-lock-goto-next-link) ("p" action-lock-goto-previous-link) ("Q" howm-kill-all t t) (" " howm-toggle-buffer nil t) ("N" howm-next-memo) ("P" howm-previous-memo) ("H" howm-first-memo) ("L" howm-last-memo) ("C" howm-create-here nil t) ("I" howm-create-interactively nil t) ("w" howm-random-walk nil t) ("M" howm-open-named-file t t)) (#$ . 1752)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list howm-migemo-client boundp nil] 2) #@53 List of option for migemo-client. e.g. ("-H" "::1") (defvar howm-migemo-client-option nil (#$ . 2911)) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list howm-keyword/ref-regexp-format boundp "\\(%s\\)[ ]*\\([^ \n].*\\)"] 2) #@50 Format for declaration of keyword. See `format'. (defvar howm-keyword-format (format "%s %%s" howm-keyword-header) (#$ . 3163)) (byte-code "\303B\306\303!\204\307 \310\n!\"\304B\306\304!\204\311\305B\306\305!\204)\312\303\207" [current-load-list howm-keyword/ref-regexp-format howm-keyword-header howm-keyword-regexp howm-keyword-regexp-hilit-pos howm-keyword-regexp-pos boundp format regexp-quote 1 2] 4) #@27 Regexp for explicit link. (defvar howm-ref-regexp (byte-code "\302\303 !\"\207" [howm-keyword/ref-regexp-format howm-ref-header format regexp-quote] 4) (#$ . 3589)) #@48 Position of search string in `howm-ref-regexp' (defvar howm-ref-regexp-hilit-pos 0 (#$ . 3761)) #@48 Position of search string in `howm-ref-regexp' (defvar howm-ref-regexp-pos 2 (#$ . 3863)) #@27 Regexp for explicit link. (defvar howm-wiki-regexp "\\[\\[\\([^] \n]+\\)\\]\\]" (#$ . 3959)) #@43 Position of hilight in `howm-wiki-regexp' (defvar howm-wiki-regexp-hilit-pos 1 (#$ . 4058)) #@49 Position of search string in `howm-wiki-regexp' (defvar howm-wiki-regexp-pos 1 (#$ . 4156)) #@52 Format for declaration of wiki word. See `format'. (defvar howm-wiki-format "[[%s]]" (#$ . 4254)) (byte-code "\302B\306\302!\204\307 \310 \311\260\303B\306\303!\204$\312 \313 \314\260\304B\306\304!\2040\315\305B\306\305!\204<\316\317B\306\317!\204I\320\321B\306\321!\204\\\322 \323 \324\260\325B\306\325!\204l\326P\327B\306\327!\204}\330\331Q\332B\306\332!\204\212\333\334B\306\334!\204\227\335\336B\306\336!\204\244\337\335\207" [current-load-list howm-date-separator howm-date-regexp-grep howm-date-regexp howm-date-regexp-year-pos howm-date-regexp-month-pos boundp "[1-2][0-9][0-9][0-9]" "[0-1][0-9]" "[0-3][0-9]" "\\([1-2][0-9][0-9][0-9]\\)" "\\([0-1][0-9]\\)" "\\([0-3][0-9]\\)" 1 2 howm-date-regexp-day-pos 3 howm-date-format "%Y" "%m" "%d" howm-dtime-body-format " %H:%M" howm-dtime-format "[" "]" howm-insert-date-format "[%s]" howm-insert-date-future nil howm-template-rules (("%title" . howm-template-title) ("%date" . howm-template-date) ("%file" . howm-template-previous-file) ("%cursor" . howm-template-cursor))] 5) #@97 %date is replaced with `howm-template-date-format' in `howm-template'. See `format-time-string' (defvar howm-template-date-format howm-dtime-format (#$ . 5348)) #@125 %file is replaced with `homw-template-file-format' in `howm-template'. %s is replaced with name of last file. See `format'. (defvar howm-template-file-format (concat howm-ref-header " %s") (#$ . 5516)) (defalias 'howm-action-lock-general #[(command regexp pos &optional hilit-pos &rest options) "\305\306\307\310\311 DDC\n\310 BBEE\f\206\312\313F\207" [regexp pos command options hilit-pos lambda (&optional dummy) let s match-string-no-properties 0 t] 8]) (defalias 'howm-action-lock-search #[(regexp pos &optional hilit-pos create-p open-unique-p) "\305\306 \n \f&\207" [regexp pos hilit-pos create-p open-unique-p howm-action-lock-general howm-keyword-search] 7]) (defalias 'howm-action-lock-related #[(regexp pos hilit-pos) "\303\304 \n$\207" [regexp pos hilit-pos howm-action-lock-general howm-list-related] 5]) (defalias 'howm-action-lock-date-rule #[nil "\301\302\303\211$\207" [howm-date-regexp action-lock-general howm-action-lock-date 0] 5]) (defalias 'howm-action-lock-setup #[nil "\306\307!\210\310\311\n\"\312 C\307\"\210)\313 \314\315\f\316#\317\307$\317#\317 \320\"\321 !#\"\322 #\323 $\"\324\f\205TCC\325 ?\205b#$D#BB%\312%!. \207" [howm-keyword-case-fold-search action-lock-case-fold-search howm-dtime-format date-al ks r action-lock-mode t action-lock-date "{_}" action-lock-add-rules howm-keyword-for-goto mapconcat regexp-quote "\\|" howm-action-lock-search 0 howm-action-lock-related howm-action-lock-date-rule howm-action-lock-reminder-done-rule append howm-menu-p howm-wiki-regexp howm-wiki-regexp-pos howm-wiki-regexp-hilit-pos wiki howm-ref-regexp howm-ref-regexp-pos howm-ref-regexp-hilit-pos explicit implicit howm-keyword-regexp howm-keyword-regexp-pos howm-keyword-regexp-hilit-pos rev date done all] 7]) (defalias 'howm-file-name #[(&optional time) "\302 \206\303 \"\207" [howm-file-name-format time format-time-string current-time] 3]) #@87 Non-nil if Howm mode is enabled. Use the command `howm-mode' to change this variable. (defvar howm-mode nil (#$ . 7442)) (make-variable-buffer-local 'howm-mode) #@1222 With no argument, this command toggles the mode. Non-null prefix argument turns on the mode. Null prefix argument turns off the mode. When the mode is enabled, underlines are drawn on texts which match to titles of other files. Typing \[action-lock-magic-return] there, you can jump to the corresponding file. key binding --- ------- \[action-lock-magic-return] Follow link \[howm-refresh] Refresh buffer \[howm-list-all] List all files \[howm-list-grep] Search (grep) \[howm-create] Create new file \[howm-dup] Duplicate current file \[howm-insert-keyword] Insert keyword \[howm-insert-date] Insert date \[howm-insert-dtime] Insert date with time \[howm-keyword-to-kill-ring] Copy current keyword to kill ring \[action-lock-goto-next-link] Go to next link \[action-lock-goto-previous-link] Go to previous link \[howm-next-memo] Go to next entry in current buffer \[howm-previous-memo] Go to previous entry in current buffer \[howm-first-memo] Go to first entry in current buffer \[howm-last-memo] Go to last entry in current buffer \[howm-create-here] Add new entry to current buffer \[howm-create-interactively] Create new file interactively (not recommended) \[howm-random-walk] Browse random entries automtically  (defalias 'howm-mode #[(&optional arg) "\203\f\302!\303V\202 ?\304\305 \203\306\202\307\"\210t\203-\310\311 \203*\312\202+\313\"\210\314 \210 \207" [arg howm-mode prefix-numeric-value 0 run-hooks howm-mode-hook howm-mode-on-hook howm-mode-off-hook message "Howm mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 7611) nil]) #@46 Hook run at the end of function `howm-mode'. (custom-declare-variable 'howm-mode-hook 'nil '(#$ . 9182) :group 'howm :type 'hook) #@25 Keymap for `howm-mode'. (defvar howm-mode-map (byte-code "\302\303\"\304 !\203 \202! <\203\305 !\202!\306\307\302\310\"\")\207" [howm-default-key-table m mapcar #[(entry) "@\211A@)\f P\n*B\207" [entry x f k howm-prefix] 3] keymapp easy-mmode-define-keymap error "Invalid keymap %S" #[(entry) "@\211A@)\f P\n*B\207" [entry x f k howm-prefix] 3]] 5) (#$ . 9318)) (byte-code "\301\302\303#\210\304\305\306\"\210\304\307\310\"\207" [howm-mode-map add-minor-mode howm-mode howm-lighter add-hook howm-mode-on-hook howm-initialize-buffer howm-mode-off-hook howm-restore-buffer] 4) (defalias 'howm-set-keymap #[nil "\302\303\"\210\304 \305\306#\207" [howm-default-key-table howm-mode-map mapc #[(entry) "@\211A@)\211AA)@\211AA)A@ P\n\306 \n #\210\f\2036\307\310\f D\"\210 \205A\306\n #-\207" [entry k x f list-mode-p global-p define-key mapc #[(m) "\304 \n#\210\304 \n#\207" [m k f pk define-key] 4] howm-prefix pk howm-mode-map howm-view-summary-mode-map howm-view-contents-mode-map global-map] 5] define-key "" howm-save-buffer] 4]) (howm-set-keymap) (defalias 'howm-refresh #[nil "\300 \203\301 \207\302 \207" [howm-menu-p howm-menu-refresh howm-initialize-buffer] 1 nil nil]) (defalias 'howm-initialize-buffer #[nil "\204\304\305!\210\306 \214~\210\307\n!\210\310 \210\311 \210\312 \210\313\314!\210\315\316!\210\317\316\320\314\211$) \203>\321\322\323 \2066\324\325\326\306 \"$\210)\207" [howm-mode howm-message-time-0 major-mode howm-message-time error "Not howm-mode" current-time howm-set-configuration-for-major-mode howm-action-lock-setup howm-mode-add-font-lock howm-reminder-add-font-lock howm-fontify t make-local-hook after-save-hook add-hook howm-after-save message "%s (%s: %.2f sec)" current-message "" "init-buf" howm-time-difference-second] 8 nil nil]) (defalias 'howm-after-save #[nil "\205\304 \210 \203\305 \210\n\203 \306V\203\307 \210\310\311!\207" [howm-mode howm-refresh-after-save howm-menu-refresh-after-save howm-menu-expiry-hours howm-keyword-add-current-buffer howm-initialize-buffer 0 howm-menu-refresh-background run-hooks howm-after-save-hook] 2]) (defalias 'howm-restore-buffer #[nil "\300\301!\207" [action-lock-mode 0] 2]) (defalias 'howm-list-all #[nil "\301\302!\210\303\304 @\305\"\210\306 \210\307 \203\305\207\205\310 \207" [howm-list-all-title howm-set-command howm-list-all howm-view-directory howm-search-path t howm-list-normalize howm-list-title-p howm-list-title] 3 nil nil]) (defalias 'howm-list-recent #[(&optional days) "\306\307!\210\206 \310 \311 \n\"\312 \313\"\210\314\315\f D\"\210\316 \210\317 \203*\313\202;\2034\320 \202;?\205;\321 +\207" [days howm-list-recent-days d now from howm-directory howm-set-command howm-list-recent current-time howm-days-before howm-view-directory t howm-view-filter-by-mtime nil howm-list-normalize howm-list-title-p howm-list-title howm-view-summary-to-contents howm-list-recent-title] 4 nil "P"]) #@18 For internal use (defvar howm-list-title-previous nil (#$ . 12289)) (make-variable-buffer-local 'howm-list-title-previous) (defalias 'howm-list-title-put-previous #[nil "\205\302 \211\207" [howm-list-title-undo howm-list-title-previous howm-view-item-list] 2]) (defalias 'howm-list-title-get-previous #[nil "\203 \303\304\n!)\207\305\306!\207" [howm-list-title-undo howm-list-title-previous prev nil howm-view-summary-rebuild error "Undo is not enabled."] 2]) (defalias 'howm-list-title-regexp #[nil "\206\301 \207" [howm-list-title-regexp howm-view-title-regexp-grep] 1]) (defalias 'howm-list-title #[(&optional undo) "\204 \203 \304 \207p\305 \210\306\307 !\210p\n =?\205+\nq\210\310 \210\311 !\210\312\313!*\207" [undo howm-list-title-previous b c howm-list-title-get-previous howm-list-title-put-previous howm-view-list-title howm-list-title-regexp howm-view-kill-buffer switch-to-buffer howm-view-summary-check t] 2 nil "P"]) (defalias 'howm-list-title-p #[nil "\302!\211\204\f\303\202 <\203\304 \235\202 )\207" [howm-list-title a howm-get-value nil howm-command] 3]) (defalias 'howm-days-after #[(ti days &optional hours) "\306!\307\310\n 8 8\n \233\f\f\206\311\\\240\210 \233  \\\240\210\312\313 \"-\207" [ti ne hour-pos day-pos nh nd decode-time 2 3 0 apply encode-time hours days] 3]) (defalias 'howm-days-before #[(ti days) "\302 [\"\207" [ti days howm-days-after] 3]) (defalias 'howm-list-grep #[(&optional completion-p) "\301\302!\210\303!\207" [completion-p howm-set-command howm-list-grep howm-list-grep-general] 2 nil "P"]) (defalias 'howm-list-grep-fixed #[nil "\300\301!\210\302\303!\207" [howm-set-command howm-list-grep-fixed howm-list-grep-general t] 2 nil nil]) (defalias 'howm-list-grep-general #[(&optional completion-p) "\203 \302 \202\f\303\304!\203\305 !\210\306 \")\207" [completion-p regexp howm-completing-read-keyword read-from-minibuffer "Search all (grep): " howm-write-history howm-search] 3]) (defalias 'howm-search #[(regexp fixed-p &optional emacs-regexp) "\305\230\203 \306 \207\307 \310\n #\311 \206!\210\f\203-\312\313\314 \206%\305\315\316\307 \"$\210)\207" [regexp howm-message-time-0 fixed-p emacs-regexp howm-message-time "" howm-list-all current-time howm-call-view-search howm-list-normalize message "%s (%s: %.2f sec)" current-message "search" howm-time-difference-second] 8]) #@18 For internal use (defvar *howm-view-window-configuration* nil (#$ . 14679)) (defalias 'howm-view-window-configuration #[nil "\207" [*howm-view-window-configuration*] 1]) (defalias 'howm-set-view-window-configuration #[(conf) "\211\207" [conf *howm-view-window-configuration*] 2]) (defalias 'howm-record-view-window-configuration #[nil "\300\301 !\207" [howm-set-view-window-configuration current-window-configuration] 2]) (defalias 'howm-restore-view-window-configuration #[nil "\300\301 !\207" [set-window-configuration howm-view-window-configuration] 2]) (defalias 'howm-return-to-list #[nil "\300 \207" [howm-restore-view-window-configuration] 1 nil nil]) (defalias 'howm-call-view-search #[(regexp fixed-p &optional emacs-regexp) "\205\304BC\305\n\306 \307\211 &\210\310 )\207" [emacs-regexp hilit regexp fixed-p howm-view-hilit-face howm-view-search-folder howm-search-path-folder nil howm-record-view-window-configuration] 7]) (defalias 'howm-list-migemo #[(&optional completion-p) "\305\306!\210\203\f\307\310!\207\311\312!\313 \314\" \203 \313 \315\"\202!\n\n\2032\f\2032\316\f\317\n#\2025\320\321!+\207" [completion-p roma e-reg howm-view-use-grep g-reg howm-set-command howm-list-migemo howm-list-grep t read-from-minibuffer "Search all (migemo): " howm-migemo-get-pattern "emacs" "egrep" howm-search nil message "No response from migemo-client."] 4 nil "P"]) (defalias 'howm-migemo-get-pattern #[(roma type) "\204\f \204\f\306\307!\210\310\307!\203%\n\311\230\203%\312\313!\2055\313\313\f!)\207\314\206+\315\316 \317\n\fE\"\320#@\207" [howm-migemo-client howm-view-use-grep type howm-funcall-if-defined-f roma howm-migemo-client-option require migemo featurep "emacs" fboundp migemo-get-pattern howm-call-process "migemo-client" append "-t" 0] 7]) #@202 Sort displayed items in the standard order. --- Sorry, below documentation is incomplete. --- When KEYWORD is given, matched items are placed on the top. KEYWORD can be a string or a list of strings.  (defalias 'howm-list-normalize #[(&optional keyword comefrom-regexp no-list-title) "\305\306 \n #)\307 \210\f)\207" [*howm-view-in-background* keyword comefrom-regexp no-list-title matched t howm-list-normalize-subr howm-view-summary] 4 (#$ . 16474)]) (defalias 'howm-list-normalize-subr #[(keyword comefrom-regexp no-list-title) "\306\307 \210 \210\n\203o \206\310\n!\311\312\n;\203 \313\n!\202$\314\n\315\"\"\313\316\n!!\n;\2057\311\317\313\320\n!!\"\f\321\321\322#\210\323#\210\324\315#\210\302\315#\210\325\211#\210.\326 \203\207 \204\207\325\235\203\204!\204\207\327 \210)\207" [matched howm-list-normalizer keyword comefrom-regexp howm-keyword-case-fold-search case-fold-search nil howm-list-exclude howm-make-keyword-regexp1 format "\\<%s\\>" regexp-quote regexp-opt t howm-make-wiki-string "^%s$" expand-file-name #[(tag flag reg) "\205 \304=\203\305\306\n\307#\202\310\306\n\"\205 B\211\207" [flag tag reg matched file howm-view-sort-by-name-match nil t howm-view-sort-by-summary-match] 4] word wiki related-keyword file howm-list-title-p howm-list-title file-reg wiki-reg word-reg key-reg check howm-list-prefer-word howm-list-prefer-wiki howm-keyword-regexp no-list-title howm-inhibit-title-file-match] 8]) (defalias 'howm-make-keyword-string #[(keyword) "\302 \"\207" [howm-keyword-format keyword format] 3]) (defalias 'howm-make-wiki-string #[(keyword) "\302 \"\207" [howm-wiki-format keyword format] 3]) #@350 Format to make entire-match regexp from keyword string. Default is "%s$" because we want to make regexp "<<< foo$" from keyword string "<<< foo", so that we can accept "<<< foo" and reject "<<< foobar". We need entire-match in order to (1) place "<<< foo" on the top when "foo" is searched, and (2) judge existence of "<<< foo" when [[foo]] is hit. (defvar howm-keyword-regexp-format "%s$" (#$ . 18165)) (defalias 'howm-make-keyword-regexp1 #[(keyword) "\301\302\"\207" [keyword howm-make-keyword-regexp-general howm-make-keyword-regexp1-sub] 3]) (defalias 'howm-make-keyword-regexp2 #[(keyword) "\301\302\"\207" [keyword howm-make-keyword-regexp-general howm-make-keyword-regexp2-sub] 3]) (defalias 'howm-make-keyword-regexp1-sub #[(keyword) "\302\303\304 !!\"\207" [howm-keyword-regexp-format keyword format regexp-quote howm-make-keyword-string] 5]) (defalias 'howm-make-keyword-regexp2-sub #[(keyword) "\302\303\304 !!\"\207" [howm-keyword-regexp-format keyword format howm-make-keyword-string regexp-quote] 5]) (defalias 'howm-make-keyword-regexp-general #[(keyword regexp-generator) ";\203 !\207<\203\302\303\304#\207\305\306\"\207" [keyword regexp-generator mapconcat #[(s) "\302 !\303Q\207" [regexp-generator s "\\(" "\\)"] 3] "\\|" error "Wrong type: %s"] 4]) (defalias 'howm-list-related #[(str) "\302\303!\210\304\305\306!\"\307\310\311!\312\"\210\313\312\314 !\")\207" [str keys howm-set-command howm-list-related mapcar #[(k) "\203 \227\207 \207" [howm-keyword-case-fold-search k] 1] howm-subkeyword howm-search howm-make-keyword-string ".*" nil howm-view-filter-by-summary regexp-opt] 4]) (defalias 'howm-subkeyword #[(str) "\302\303\304!!\305\216rq\210 c\210\306 +\207" [#1=#:temp-buffer str get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) howm-keyword-for-goto] 3]) (defalias 'howm-list-around #[nil "\302\303!\210\304 \305 \210\306 \210\307\310\311 \"eb\210 \203 y\210)\312\313!)\207" [f pos howm-set-command howm-list-around buffer-file-name howm-list-all howm-view-sort-by-reverse-date howm-cl-position-if #[(item) "\302! \230\207" [item f howm-view-item-filename] 2] howm-view-item-list howm-view-summary-check t] 3 nil nil]) #@18 For internal use (defvar *howm-command* nil (#$ . 20428)) (defalias 'howm-set-command #[(com) "\211\207" [com *howm-command*] 2]) (defalias 'howm-command #[nil "\207" [*howm-command*] 1]) (defalias 'howm-create #[(&optional which-template here) "\305 \211@A\306 \307\f\n%+\207" [t-c title content which-template here howm-create-default-title-content howm-create-file-with-title nil] 7 nil "p"]) (byte-code "\303\301!\203\301B\303\301!\204\304\303\302!\203$\302B\303\302!\204$\304\304\207" [current-load-list transient-mark-mode mark-active boundp nil] 2) (defalias 'howm-create-default-title-content #[nil "`\306\307!\206 \310 ^ ]\311 \312\305!\205 \312\313!\205& \2032\2023\307\205<\314 \315 \205c\316\nW\205c\nX\205c X\205c\n U?*\205m\205v\f;\204\202\203\211\317\n \"\202\217\205\217\f\211\204\233\320\211B\202\311\307=\203\251\320B\202\311\204\263\203\272\320B\202\311\203\306\320B\202\311\320\211B. \207" [p m beg end search-str transient-mark-mode mark t -777 howm-view-name boundp mark-active line-beginning-position line-end-position 0 buffer-substring-no-properties "" transient-mark-p mark-active-p active-p strictly-active-p b e title-p howm-content-from-region content-p howm-title-from-search search-p s] 4]) (defalias 'howm-create-here #[(&optional which-template) "\301\302\"\207" [which-template howm-create t] 3 nil "p"]) (defalias 'howm-create-file-with-title #[(title &optional which-template not-use-file here content) "p \204 \306 \210\307 \204 \203\n\203\310 \210\202\311 \210`\312 ? !\212b\210\2067\313c\210)\314 \210|\210) \f!\210+\315 )\207" [b here howm-create-here-just not-use-file use-file insert-f howm-create-file howm-buffer-empty-p beginning-of-line howm-create-newline #[(switch) "\304\203 \202\n\305\n ?$\207" [switch title b which-template howm-insert-template ""] 5] "" undo-boundary howm-create-finish p end content] 3]) (defalias 'howm-create-finish #[nil "\300 \210\301\302!\207" [howm-set-mode run-hooks howm-create-hook] 2]) (defalias 'howm-create-newline #[nil "~\210\203 \301 \207\302 \207" [howm-prepend howm-create-newline-prepend howm-create-newline-append] 1]) (defalias 'howm-create-newline-prepend #[nil "eb\207" [] 1]) (defalias 'howm-create-newline-append #[nil "db\210\300 \210\301 `U\204\302c\210\302c\207" [delete-blank-lines line-beginning-position "\n"] 2]) (defalias 'howm-insert-template #[(title &optional previous-buffer which-template not-use-file) "`\306 !\211\205 \307\n!\310\f \"c\210\311 ! ?\211\204&\312\202>\n\204.\312\202>\n\306 \230\2039\312\202>\313 \"\314\fB\315 B\316BE\317 \320$\210.\207" [beg previous-buffer f af which-template howm-template-date-format buffer-file-name howm-abbreviate-file-name howm-template-string format-time-string "" format title date file point-marker howm-replace not-use-file use-file howm-template-file-format end arg howm-template-rules] 6]) #@181 Non nil if howm-template should receive previous-buffer when howm-template is a function. Set this option to nil if backward compatibility with howm-1.2.4 or earlier is necessary. (defvar howm-template-receive-buffer t (#$ . 23468)) (defalias 'howm-template-string #[(which-template previous-buffer) "\206\305 ;\203 \207 <\203S 8\207\306 !\205/\n\203' D\202)C\307 \f\")\207" [which-template howm-template howm-template-receive-buffer previous-buffer args 1 functionp apply] 3]) (defalias 'howm-replace #[(rules arg &optional beg end) "\301\302\"\207" [rules mapc #[(pair) "@A \206 eb\210\306\n\f\307#\205\"\310\224\310\225|\210 !\210\202 *\207" [pair disp-f spell beg end arg re-search-forward t 0] 4]] 3]) (defalias 'howm-template-title #[(arg) "\301\302\"Ac\207" [arg assoc title] 3]) (defalias 'howm-template-date #[(arg) "\301\302\"Ac\207" [arg assoc date] 3]) (defalias 'howm-template-previous-file #[(arg) "\301\302\"Ac\207" [arg assoc file] 3]) (defalias 'howm-template-cursor #[(arg) "\300\207" [nil] 1]) (defalias 'howm-dup #[nil "\303 \304@\211A@)\"\305 \210\306 \210\307\n\261*\207" [r x s howm-view-paragraph-region buffer-substring-no-properties howm-create-file howm-set-mode "\n"] 4 nil nil]) (defalias 'howm-completing-read-keyword #[nil "\304\305!\210\306 \307\310\"\n\311\312 \"+\207" [kl table howm-keyword-case-fold-search completion-ignore-case message "Scanning..." howm-keyword-list mapcar list completing-read "Keyword: "] 3]) (defalias 'howm-insert-keyword #[nil "\300 c\207" [howm-completing-read-keyword] 1 nil nil]) (defalias 'howm-keyword-to-kill-ring #[(&optional filename-p) "\302!\211\203\303 !\202\304\305!)\207" [filename-p title howm-title-at-current-point howm-string-to-kill-ring error "No keyword."] 3 nil "P"]) (defalias 'howm-title-at-current-point #[(&optional filename-p title-regexp title-regexp-pos) "\206 \n\206\n \212\306\210\f\204#\307 \306\310#\203#\311\f!\2020\312 \203/\313\312 !\2020\306+\207" [title-regexp howm-view-title-regexp title-regexp-pos howm-view-title-regexp-pos pos reg nil re-search-backward t match-string-no-properties buffer-file-name howm-abbreviate-file-name filename-p] 4]) (defalias 'howm-string-to-kill-ring #[(str) "\203 \301!\210\302\303\"\207\304\305!\207" [str kill-new message "%s" error "Empty."] 3]) (defalias 'howm-keyword-for-comefrom #[nil "\212eb\210\303\304 \303\305#\203\306\n!B\202\307!*\207" [keyword-list howm-keyword-regexp howm-keyword-regexp-pos nil re-search-forward t match-string-no-properties reverse] 4]) (defalias 'howm-keyword-list #[nil "\302\303\206\304\"r\305 q\210\306\304\307ed{ \"\"*\207" [howm-keyword-list-alias-sep sep format "[\n%s]" "" howm-keyword-buffer delete split-string] 5]) (defalias 'howm-keyword-add #[(keyword-list) ";\203\nC\202 \212\301 q\210db\210\302\303\"\210\304 \205 \305 )\207" [keyword-list howm-keyword-buffer mapc #[(k) "\301!\205\n\302\261\207" [k howm-keyword-new-p "\n"] 2] buffer-file-name howm-basic-save-buffer] 3 nil "sKeyword: "]) (defalias 'howm-keyword-new-p #[(str) "\212\304\305\306!\" eb\210\307 \310\311#+?\207" [str howm-keyword-case-fold-search case-fold-search r format "^%s$" regexp-quote re-search-forward nil t] 4]) (defalias 'howm-support-aliases-p #[nil "\207" [howm-keyword-list-alias-sep] 1]) (defalias 'howm-aliases #[nil "\300 \205\301 \207" [howm-support-aliases-p howm-read-aliases] 1]) (defalias 'howm-read-aliases #[nil "r\303 q\210\212\304eb\210\305 \304\306#\203(\307\310 \311 \"\312\n \"B\304\210)\202 +\207" [ans howm-keyword-list-alias-sep line howm-keyword-buffer nil search-forward t buffer-substring-no-properties line-beginning-position line-end-position split-string] 4]) (defalias 'howm-expand-aliases-recursively #[(keyword aliases) "C\305\306\307!\211\205\307K\310\216\307\311M\210 \n\232\204%\n\307\n!\202+\n*\207" [keyword prev keys #1=#:--letf-bound--13322 #2=#:--letf-save--13321 nil fboundp expand ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#1# #2# expand fmakunbound] 2)) #[(keys) "\301\302\303\304\"\305\306#\307\"\207" [keys sort howm-cl-remove-duplicates howm-cl-mapcan #[(k) "\301\302\"\207" [aliases howm-cl-mapcan #[(a) " \235\205 \302 !\207" [k a copy-list] 2]] 3] :test string= string<] 5]] 3]) (byte-code "\300\301\302\"\303\232\204\304\305\306C\"\210\300\301\307\"\310\232\204\304\305\311C\"\210\300\207" [howm-expand-aliases-recursively "a" (("d" "e" "f") ("a" "b" "c")) ("a" "b" "c") signal cl-assertion-failed (equal (howm-expand-aliases-recursively "a" '(("d" "e" "f") ("a" "b" "c"))) '("a" "b" "c")) (("d" "e" "b") ("a" "b" "c")) ("a" "b" "c" "d" "e") (equal (howm-expand-aliases-recursively "a" '(("d" "e" "b") ("a" "b" "c"))) '("a" "b" "c" "d" "e"))] 3) #@112 List of strings which are equivalent to KEYWORD. KEYWORD itself is always at the head of the returneded list.  (defalias 'howm-keyword-aliases #[(keyword) "\304  \203\305\n\"\202\306\307\310\311\312\"\"!\211\204 \n\202&\n\313\n \"B*\207" [aliases howm-keyword-aliases-recursive keyword equiv howm-aliases howm-expand-aliases-recursively howm-cl-remove-duplicates apply append howm-cl-remove-if-not #[(a) " \235\207" [keyword a] 2] remove] 7 (#$ . 28261)]) (defalias 'howm-keyword-search #[(keyword &optional create-p open-unique-p) "\305 \306\307!\210\310 \n #\f\203 \311\312\313 \206\314\315\316\305 \"$\210)\207" [howm-message-time-0 keyword create-p open-unique-p howm-message-time current-time howm-set-command howm-keyword-search howm-keyword-search-subr message "%s (%s: %.2f sec)" current-message "" "key-search" howm-time-difference-second] 8]) (defalias 'howm-keyword-search-subr #[(keyword create-p open-unique-p) "\306 \307 \203\310 !\202 \311 !\211?\205\312\n! ?\205# \313\n\314\"*\211\2058\315\n\f\314#\301\235\316\235\317 ! \203\\\203\\\320 \"\210\202\230\203n\204n\321!\210\202\230 \203\201\322\323 !\203\201\324!\210\202\230\203\230\325 \203\230\203\225!\204\230\326 \210 \204\240\327 !\210\303 B\330B\331B\332B\333B\257. \207" [wconf keyword aliases menu-p comefrom-regexp howm-search-other-dir current-window-configuration howm-support-aliases-p howm-keyword-aliases howm-menu-keyword-p howm-make-keyword-regexp2 howm-call-view-search t howm-list-normalize file howm-make-keyword-string howm-keyword-search-open-menu howm-keyword-search-create howm-single-element-p howm-view-item-list howm-keyword-search-open-unique howm-list-title-p howm-list-title howm-write-history found matched keyword-matched create-p howm-keyword-case-fold-search *howm-view-force-case-fold-search* file-matched title open-unique-p howm-inhibit-title-file-match] 7]) #@23 Open KEYWORD as menu. (defalias 'howm-keyword-search-open-menu #[(keyword wconf) "\305 @\306!\307!\310 \210\311 !\210\312 \n\313\f!#+\207" [item fname place wconf keyword howm-view-item-list howm-view-item-filename howm-view-item-place howm-view-kill-buffer set-window-configuration howm-menu-open howm-menu-name] 5 (#$ . 30214)]) #@28 create new memo <<< TITLE. (defalias 'howm-keyword-search-create #[(title) "\301 \210\302!\210\303\304!\207" [title howm-view-kill-buffer howm-create-file-with-title message "New keyword."] 2 (#$ . 30556)]) #@20 Open unique match. (defalias 'howm-keyword-search-open-unique #[(wconf) "\302 \210p\303 !\210\304!)\207" [b wconf howm-view-summary-open set-window-configuration switch-to-buffer] 2 (#$ . 30770)]) (defalias 'howm-keyword-for-goto #[nil "\212\303 \304\305\306\n\"\307\"+\207" [howm-keyword-case-fold-search case-fold-search keys howm-keyword-list sort howm-cl-mapcan #[(k) "eb\210\301\302\303#\205 C\207" [k search-forward nil noerr] 4] #[(x y) "G GV\207" [x y] 2]] 4]) (defalias 'howm-keyword-add-current-buffer #[nil "\212eb\210\306 \307\310\n\307\311#\203* \203\312\313\314 #\202!\315\f!\211B)\202 \316!\210\317\320 \"+\207" [keyword-list m howm-keyword-regexp howm-keyword-list-alias-sep howm-keyword-regexp-pos key-str current-message nil re-search-forward t mapconcat identity howm-keyword-read match-string-no-properties howm-keyword-add message "%s"] 5]) (defalias 'howm-keyword-read #[nil "\304\305 \304\210\306\304x\210\307\n\310#\203!\311 ! B\306\304x\210\202\f\304\210 *\207" [beg ks howm-keyword-regexp howm-keyword-regexp-pos nil line-beginning-position " " re-search-backward t match-string-no-properties] 4]) (provide 'howm-mode)