;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-vars.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-vars.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@195 No effect except for inhibition of warning in byte-compilation. Without this trick, compiler says 'reference to free variable' even when we have checked availability like (if (boundp xxx) ...). (defalias 'howm-dont-warn-free-variable '(macro . #[(var) "\301\302\303DD\304\305BBE\207" [var when boundp quote defvar (nil)] 5 (#$ . 632)])) (put 'howm-funcall-if-defined 'lisp-indent-hook 1) #@488 Execute CALL if its car is defined as a function. Otherwise, execute expressions in NOT-DEFINED. This is cheat to avoid warning while byte-compilation. Byte-compiler says "not known to be defined" even for codes like (if (fboundp 'foo) (foo bar)). (macroexpand '(howm-funcall-if-defined (migemo-get-pattern roma) nil)) ==> (if (fboundp 'migemo-get-pattern) (let ((howm-funcall-if-defined-f 'migemo-get-pattern)) (funcall howm-funcall-if-defined-f roma)) nil)  (defalias 'howm-funcall-if-defined '(macro . #[(call &rest not-defined) "@A\304\305\306\nDD\307\310\306\nDDC\311\310 BBE *BBB\207" [call args func not-defined if fboundp quote let howm-funcall-if-defined-f funcall] 7 (#$ . 1029)])) (defalias 'howm-get-locale #[nil "\302\303\211\203\304 @!\211\204 A\211\204\206\305*\207" [locale vars ("LC_ALL" "LC_CTYPE" "LANG") nil getenv ""] 3]) (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\301%\207" [custom-declare-group howm nil "Wiki-like note-taking tool." :group applications howm-files "Names of files and directories."] 6) #@58 *All files under this directory are scanned recursively. (custom-declare-variable 'howm-directory '"~/howm/" '(#$ . -2124) :type 'directory :group 'howm-files) #@180 Name of new file. See `format-time-string'. For example, set as "%Y/%m/%Y-%m-%d-%H%M%S.howm" to separate each entry to its own file. You must guarantee (string< oldfile newfile). (custom-declare-variable 'howm-file-name-format '"%Y/%m/%Y-%m-%d-%H%M%S.howm" '(#$ . 2291) :type '(radio (const :tag "One file for one entry" "%Y/%m/%Y-%m-%d-%H%M%S.howm") (const :tag "One file for one day" "%Y/%m/%Y-%m-%d.howm") (const :tag "One file for one month" "%Y/%Y-%m.howm") (const :tag "One file for one year" "%Y.howm") string) :group 'howm-efficiency :group 'howm-files) #@48 *Keywords (WikiNames) are stored in this file. (custom-declare-variable 'howm-keyword-file '"~/.howm-keys" '(#$ . -2859) :type 'file :group 'howm-files) (byte-code "\302\301!\203\301B\302\301!\204\303\303\207" [current-load-list image-file-name-regexps boundp nil] 2) #@409 Regular expression that matches image-file filenames. Default value is equal to the result of `image-file-name-regexp' on GNU Emacs 21.2.1. In order to use `image-file-name-regexp' on Meadow 2.10 (ASAGAO), max-specpdl-size must be increased from the default value 600. Otherwise, an error occurs both in byte-compilation and in run time. To avoid such troubles, this variable is prepared as a fixed string. (defvar howm-image-file-name-regexps (byte-code "\302\303\300!\205\203 \304\305 \203 B\202\306#\202! *\207" [image-file-name-regexps exts-regexp "\\.\\(GIF\\|JP\\(?:E?G\\)\\|P\\(?:BM\\|GM\\|NG\\|PM\\)\\|TIFF?\\|X\\(?:[BP]M\\)\\|gif\\|jp\\(?:e?g\\)\\|p\\(?:bm\\|gm\\|ng\\|pm\\)\\|tiff?\\|x\\(?:[bp]m\\)\\)\\'" boundp mapconcat identity "\\|"] 4) (#$ . 3141)) (byte-code "\302B\306\302!\204\307\310 E\305B\306\305!\204+\311\312\313\314\f!\")\203)\315\202*\316\317 \320Q\321 P\322B\306\322!\204O\323\324P\325\nBB\326#\327B\306\327!\204h\323\324\330\320R\nB\326#*\302\207" [current-load-list howm-image-file-name-regexps howm-excluded-file-regexp-common-list case-fold-search system-type howm-excluded-file-regexp-dir-sep boundp "[~#]$" "\\.\\(bak\\|elc\\|gz\\|aux\\|toc\\|idx\\|dvi\\)$" t string-match "windows" symbol-name "[/\\\\]" "/" "\\(^\\|" "\\)" "CVS" howm-excluded-file-regexp-dots-ok mapconcat identity "^[.][.]" "\\|" howm-excluded-file-regexp-dots-ng "\\([.]\\|" cvs dir-head] 6) #@175 Regexp for excluded files. It is checked for relative paths from howm-directory and howm-search-path. A file is excluded iff this regexp matches with all the relative paths. (custom-declare-variable 'howm-excluded-file-regexp 'howm-excluded-file-regexp-dots-ng '(#$ . 4593) :type `(radio (const :tag "Don't search dot files" ,howm-excluded-file-regexp-dots-ng) (const :tag "Search dot files" ,howm-excluded-file-regexp-dots-ok) regexp) :group 'howm-files) (custom-declare-group 'howm-menu nil "Menu." :group 'howm) #@20 *Language of menu. (custom-declare-variable 'howm-menu-lang '(if (or (and (boundp 'current-language-environment) (string= current-language-environment "Japanese")) (string-match "^ja" (howm-get-locale))) 'ja 'en) '(#$ . -5114) :type '(radio (const en) (const ja)) :group 'howm-menu) #@68 *Specify menu file explicitly, or set as nil to search every time. (custom-declare-variable 'howm-menu-file 'nil '(#$ . -5403) :type '(radio (const :tag "Search every time" nil) (const "0000-00-00-000000.howm") file) :group 'howm-files :group 'howm-efficiency :group 'howm-menu) #@48 *Cache menu contents for this number of hours. (custom-declare-variable 'howm-menu-expiry-hours '0 '(#$ . -5688) :type 'number :group 'howm-efficiency :group 'howm-menu) #@62 *If non-nil, refresh menu contents after you save howm note. (custom-declare-variable 'howm-menu-refresh-after-save 't '(#$ . -5864) :type 'boolean :group 'howm-efficiency :group 'howm-menu) #@30 *Name format of menu buffer. (custom-declare-variable 'howm-menu-name-format '"*howmM:%s*" '(#$ . -6061) :type '(radio (const :tag "Never show in normal buffer list" " *howmM:%s*") string) :group 'howm-menu) #@51 Footer string for each menu. Nil means no footer. (custom-declare-variable 'howm-menu-footer 'nil '(#$ . 6275) :type '(radio (const :tag "Off" nil) string) :group 'howm-menu) (byte-code "\304\305\306\307\310\311%\210\301B\312\301!\204\306\302B\312\302!\204( \203&\313\202'\314\303B\312\303!\2047\315\316\n\"\306\207" [current-load-list howm-reminder-old-format howm-reminder-marks howm-reminder-types custom-declare-group howm-reminder nil "Schedule and todo list." :group howm boundp "-+~!@. " "-+~!@." format "[%s]"] 6) (defalias 'howm-custom-reminder-get-types #[(symbol) "\305!\306 \307\"\310\311 \"\204 \202,\306\312\313 \"\307\"\314\315\f\"\203' \202+\316\317\n\")*\207" [symbol howm-reminder-marks default-types reg types default-value split-string "" string-match "^\\[\\(.*\\)\\]" match-string-no-properties 1 howm-cl-find-if-not #[(x) " \235\207" [x default-types] 2] howm-cl-remove-if-not #[(x) " \235\207" [x types] 2]] 4]) (defalias 'howm-custom-reminder-set-types #[(symbol types) "<\203\302\303\304\305\306\"B\"\307 \"\207" [types symbol apply concat "[" append ("]") set-default] 6]) (defalias 'howm-custom-reminder-list-types #[nil "\301\302\303\304\305\306\"\"B\307BB\207" [howm-reminder-marks radio set mapcar #[(ty) "\301D\207" [ty const] 2] split-string "" (string)] 7]) #@69 *Regular expression of reminder types which are listed as schedule. (custom-declare-variable 'howm-schedule-types '"[!@.]" '(#$ . -7607) :get #'howm-custom-reminder-get-types :set #'howm-custom-reminder-set-types :type (howm-custom-reminder-list-types) :group 'howm-efficiency :group 'howm-reminder) #@65 *Regular expression of reminder types which are listed as todo. (custom-declare-variable 'howm-todo-types '(if howm-reminder-old-format "[-+~! .]" "[-+~!.]") '(#$ . -7913) :get #'howm-custom-reminder-get-types :set #'howm-custom-reminder-set-types :type (howm-custom-reminder-list-types) :group 'howm-efficiency :group 'howm-reminder) #@120 List of format strings to generate message when a reminder is finished. One of elements is chosen randomly every time. (custom-declare-variable 'howm-congrats-format ''("Finished %s tasks!") '(#$ . 8255) :type '(repeat string) :group 'howm-reminder) #@69 *This string is inserted automatically when a reminder is canceled. (custom-declare-variable 'howm-reminder-cancel-string '"cancel" '(#$ . -8511) :type 'string :group 'howm-reminder) #@74 *Non nil if direct manipulation on reminder list should cause auto-save. (custom-declare-variable 'howm-action-lock-forward-save-buffer 'nil '(#$ . -8700) :type 'boolean :group 'howm-reminder) #@153 *Non nil if direct manipulation on reminder list should cause kill-buffer. Be careful that you cannot undo the result of action-lock after kill-buffer. (custom-declare-variable 'howm-action-lock-forward-kill-buffer 'nil '(#$ . -8900) :type 'boolean :group 'howm-reminder) (custom-declare-group 'howm-menu-reminder nil "Reminders shown in menu." :group 'howm-menu :group 'howm-reminder) #@76 *Regular expression of reminder types which are shown in menu as schedule. (custom-declare-variable 'howm-schedule-menu-types '"[!@]" '(#$ . -9292) :get #'howm-custom-reminder-get-types :set #'howm-custom-reminder-set-types :type (howm-custom-reminder-list-types) :group 'howm-efficiency :group 'howm-menu-reminder) #@72 *Regular expression of reminder types which are shown in menu as todo. (custom-declare-variable 'howm-todo-menu-types '(if howm-reminder-old-format "[-+~! .]" "[-+~!.]") '(#$ . -9614) :get #'howm-custom-reminder-get-types :set #'howm-custom-reminder-set-types :type (howm-custom-reminder-list-types) :group 'howm-efficiency :group 'howm-menu-reminder) #@60 *Show schedule in menu until this number of days from now. (custom-declare-variable 'howm-menu-schedule-days '7 '(#$ . -9972) :type 'number :group 'howm-menu-reminder) #@54 *Show schedule in menu from this number of days ago. (custom-declare-variable 'howm-menu-schedule-days-before '0 '(#$ . -10146) :type 'number :group 'howm-menu-reminder) #@46 *Maximum number of todo items shown in menu. (custom-declare-variable 'howm-menu-todo-num '50 '(#$ . -10322) :type 'number :group 'howm-menu-reminder) (byte-code "\301B\304\301!\204\f\305\302B\304\302!\204\306\303B\304\303!\204$\307\301\207" [current-load-list howm-huge- howm-huge howm-huge+ boundp 66666 77777 88888] 2) #@55 *Limit priority for elimination of reminders in menu. (custom-declare-variable 'howm-menu-todo-priority '(- howm-huge+) '(#$ . -10663) :type `(radio (const :tag "Show sleeping reminders" ,(- howm-huge+)) (const :tag "Hide sleeping reminders" ,(- howm-huge-)) number) :group 'howm-menu-reminder) #@29 *Priority of done reminder. (custom-declare-variable 'howm-todo-priority-done-bottom '(- howm-huge+) '(#$ . -10964) :type `(radio (const :tag "Deeper than sleeping reminders" ,(- howm-huge+)) (const :tag "Shallower than sleeping reminders" ,(- howm-huge-)) number) :group 'howm-menu-reminder) #@48 *Maximum number of recent items shown in menu. (custom-declare-variable 'howm-menu-recent-num '20 '(#$ . -11263) :type 'number :group 'howm-menu-reminder) #@114 Regexp which is regarded as title line in recent list in menu. When it is nil, `howm-view-title-regexp' is used. (custom-declare-variable 'howm-menu-recent-regexp 'nil '(#$ . 11425) :type '(radio (const :tag "Default" nil) regexp) :group 'howm-title :group 'howm-menu-reminder) #@75 *Format for priority display in todo list in menu, or nil for no display. (custom-declare-variable 'howm-menu-todo-priority-format 'nil '(#$ . -11709) :type '(radio (const :tag "Off" nil) (const "(%8.1f)") string) :group 'howm-devel :group 'howm-menu-reminder) (custom-declare-group 'howm-list nil "Style of list view." :group 'howm) #@57 *Max length for howm-view-contents. Nil means no limit. (custom-declare-variable 'howm-view-contents-limit '10000 '(#$ . -12049) :type '(radio (const :tag "No limit" nil) integer) :group 'howm-list) #@75 *If non-nil, keep cursor position when you open a note from summary list. (custom-declare-variable 'howm-view-summary-keep-cursor 't '(#$ . -12254) :type 'boolean :group 'howm-list) #@67 *If non-nil, same name is not written repeatedly in summary list. (custom-declare-variable 'howm-view-summary-omit-same-name 't '(#$ . -12442) :type 'boolean :group 'howm-list) #@56 *This number of days are listed by `howm-list-recent'. (custom-declare-variable 'howm-list-recent-days '7 '(#$ . -12625) :type 'integer :group 'howm-list) (custom-declare-group 'howm-sort nil "Sorting and filtering of matched entries." :group 'howm-list) #@40 *Default method to list matched notes. (custom-declare-variable 'howm-list-normalizer ''howm-view-sort-by-mtime '(#$ . -12886) :type '(radio (function-item :tag "Sort by edit-time" howm-view-sort-by-mtime) (function-item :tag "Sort by create-time" howm-view-sort-by-reverse-date) function) :group 'howm-sort) #@60 *Matches to whole word are listed first in summary buffer. (custom-declare-variable 'howm-list-prefer-word 'nil '(#$ . -13201) :type 'boolean :group 'howm-sort) #@59 *Matches to wiki tags are listed first in summary buffer. (custom-declare-variable 'howm-list-prefer-wiki 't '(#$ . -13368) :type 'boolean :group 'howm-sort) (byte-code "\302\303\304\305\306\307%\210\301B\310\301!\204\311\312\313\314\"B\304\207" [current-load-list howm-custom-command-list custom-declare-group howm-title nil "Title of each entry." :group howm-list boundp set mapcar #[(com) "\301D\207" [com const] 2] (howm-list-all howm-list-recent howm-list-around howm-keyword-search howm-list-grep howm-list-grep-fixed howm-list-migemo howm-list-related howm-action-lock-date-search)] 6) #@157 List of commands in which titles are listed instead of matched lines. T means 'always'. If it is a function, the evaluated value is used instead of itself. (custom-declare-variable 'howm-list-title ''(howm-list-all howm-list-recent howm-list-around howm-action-lock-date-search) '(#$ . 13974) :type `(radio (const :tag "Always" t) (const :tag "Never" nil) ,howm-custom-command-list function) :group 'howm-efficiency :group 'howm-title) #@109 Regexp which is regarded as title line in summary buffer. When it is nil, `howm-view-title-regexp' is used. (custom-declare-variable 'howm-list-title-regexp 'nil '(#$ . 14417) :type '(radio (const :tag "Default" nil) regexp) :group 'howm-title) #@76 *Non-nil if `howm-list-title' should toggle whether title is shown or not. (custom-declare-variable 'howm-list-title-undo 't '(#$ . -14668) :type 'boolean :group 'howm-efficiency :group 'howm-title) (custom-declare-group 'howm-list-bufwin nil "Buffers and windows for listing search result." :group 'howm-list) #@94 Format string of buffer name for summary. %s is replaced with searched string. See `format'. (custom-declare-variable 'howm-view-summary-name '"*howmS*" '(#$ . 14985) :type '(radio (const :tag "Use one common buffer" "*howmS*") (const :tag "Make new buffer for each search" "*howmS:%s*") string) :group 'howm-list-bufwin) #@95 Format string of buffer name for contents. %s is replaced with searched string. See `format'. (custom-declare-variable 'howm-view-contents-name '"*howmC*" '(#$ . 15313) :type '(radio (const :tag "Use one common buffer" "*howmC*") (const :tag "Make new buffer for each search" "*howmC:%s*") string) :group 'howm-list-bufwin) #@140 *If non-nil, keep summary buffer on howm-view-summary-open by default. If it is a function, the evaluated value is used instead of itself. (custom-declare-variable 'howm-view-summary-persistent 't '(#$ . -15644) :type 'boolean :group 'howm-list-bufwin) #@142 *If non-nil, keep contents buffer on howm-view-contents-open by default. If it is a function, the evaluated value is used instead of itself. (custom-declare-variable 'howm-view-contents-persistent 't '(#$ . -15904) :type 'boolean :group 'howm-list-bufwin) (custom-declare-group 'howm-search nil "Search methods." :group 'howm) #@64 *Non-nil if searches of come-from keywords should ignore case. (custom-declare-variable 'howm-keyword-case-fold-search 'nil '(#$ . -16237) :type 'boolean :group 'howm-search) #@59 *Non-nil if search-ring should be updated in howm search. (custom-declare-variable 'howm-view-update-search-ring 'nil '(#$ . -16418) :type 'boolean :group 'howm-search) #@48 *Non nil if search etc. should show took time. (custom-declare-variable 'howm-message-time 'nil '(#$ . -16593) :type 'boolean :group 'howm-devel :group 'howm-search) #@43 *Search history is recorded to that file. (custom-declare-variable 'howm-history-file '"~/.howm-history" '(#$ . -16765) :type 'file :group 'howm-files :group 'howm-search) #@92 *Limit number of recorded search history, or nil for no limit. Set 0 to inhibit recording. (custom-declare-variable 'howm-history-limit '50 '(#$ . -16943) :type '(radio (const :tag "No limit" nil) integer) :group 'howm-search) #@66 *If non-nil, duplicated entries are removed from search history. (custom-declare-variable 'howm-history-unique 't '(#$ . -17176) :type 'boolean :group 'howm-search) #@133 *Separator string for alias keywords in the keyword file `howm-keyword-file'. If it is nil, alias of come-from keyword is disabled. (custom-declare-variable 'howm-keyword-list-alias-sep '" " '(#$ . -17348) :type '(radio (const :tag "Disable aliases" nil) (const :tag "Tab" " ") string) :group 'howm-search) #@75 *Non nil if aliases of come-from keywords should be expanded recursively. (custom-declare-variable 'howm-keyword-aliases-recursive 't '(#$ . -17661) :type 'boolean :group 'howm-search) (custom-declare-group 'howm-grep nil "Use external grep command for fast search." :group 'howm-efficiency :group 'howm-search) #@185 *If non-nil, use external grep command for search. Performance must be improved greatly if you set this. When the value is elisp function, it is used instead of `howm-view-fake-grep'. (custom-declare-variable 'howm-view-use-grep 'nil '(#$ . -17980) :type '(radio (const :tag "On" t) (const :tag "Off" nil) function) :group 'howm-grep) #@25 *Command name for grep. (custom-declare-variable 'howm-view-grep-command '"grep" '(#$ . -18321) :type 'string :group 'howm-grep) #@82 *Command name for fgrep. This variable is obsolete and may be removed in future. (defvar howm-view-fgrep-command nil (#$ . -18456)) #@31 *Common grep option for howm. (custom-declare-variable 'howm-view-grep-option '"-Hnr" '(#$ . -18594) :type 'string :group 'howm-grep) #@47 *Grep option for extended regular expression. (custom-declare-variable 'howm-view-grep-extended-option '"-E" '(#$ . -18734) :type 'string :group 'howm-grep) #@39 *Grep option to search fixed strings. (custom-declare-variable 'howm-view-grep-fixed-option '"-F" '(#$ . -18897) :type 'string :group 'howm-grep) #@46 *Grep option for ignoring case distinctions. (custom-declare-variable 'howm-view-grep-ignore-case-option '"-i" '(#$ . -19049) :type 'string :group 'howm-grep) #@27 *Grep option for pattern. (custom-declare-variable 'howm-view-grep-expr-option '"-e" '(#$ . -19214) :type 'string :group 'howm-grep) #@120 *Grep option for receiving patterns from standard input. If this is nil, pattern is received as command line argument. (custom-declare-variable 'howm-view-grep-file-stdin-option '"-f -" '(#$ . -19354) :type '(radio (const :tag "Off" nil) string) :group 'howm-grep) (custom-declare-group 'howm-misc nil "Miscellaneous customization." :group 'howm) #@55 Howm commands are invoked by this prefix + some keys. (defvar howm-prefix "," (#$ . 19707)) #@41 *Seconds of wait in `howm-random-walk'. (custom-declare-variable 'howm-random-walk-wait '2 '(#$ . -19806) :type 'number :group 'howm-misc) (custom-declare-group 'howm-create nil "Create new note." :group 'howm-misc) #@96 *Non nil if new entries should be prepended to previous entries. Otherwise, they are appended. (custom-declare-variable 'howm-prepend 'nil '(#$ . -20028) :type '(radio (const :tag "Append" nil) (const :tag "Prepend" t)) :group 'howm-create) #@209 *When the value non-nil, selected string is inserted as default content. Unless the value is t, single-line selection is inserted as title instead. This variable is ignored when `transient-mark-mode' is nil. (custom-declare-variable 'howm-content-from-region 'nil '(#$ . -20276) :type '(radio (const :tag "Off" nil) (const :tag "Single line selection is copied as title" 1) (const :tag "Any selection is copied as content" t)) :group 'howm-create) #@107 *Non nil if searched keyword is inserted as default title when `howm-create' is called on summary buffer. (custom-declare-variable 'howm-title-from-search 'nil '(#$ . -20731) :type 'boolean :group 'howm-create) #@108 *Non nil if `howm-create-here' should insert new entry into cursor position rather than append or prepend. (custom-declare-variable 'howm-create-here-just 'nil '(#$ . -20949) :type '(radio (const :tag "Append or prepend" nil) (const :tag "Just here" t)) :group 'howm-create) (custom-declare-group 'howm-viewer nil "External viewers for images, movies, sounds, etc." :group 'howm-misc) (defalias 'howm-try-require #[(feature) "\301\302!!\205 \303!\207" [feature locate-library symbol-name require] 3]) #@395 List of viewer specifications. Each specification must be a cons pair of type and format. Type is a regular expression of file names. Format is a command string in which %s is replaced with file name. This setting is prior to mailcap. Example: (setq howm-view-external-viewer-assoc '( ("[.]\(jpg\|gif\|png\)$" . "display %s") ("[.]dvi$" . "xdvi %s") ))  (custom-declare-variable 'howm-view-external-viewer-assoc 'nil '(#$ . 21460) :type '(alist :key-type regexp :value-type string) :group 'howm-viewer) #@157 *Non nil if external viewers should be selected according to mailcap. Mailcap processing depends on gnus/mailcap, and old FLIM library may cause conflicts. (custom-declare-variable 'howm-view-use-mailcap '(and (howm-try-require 'mailcap) (fboundp 'mailcap-parse-mailcaps) (fboundp 'mailcap-parse-mimetypes)) '(#$ . -22010) :type 'boolean :group 'howm-viewer) #@77 List of regular expressions for mime types which should be opened normally. (custom-declare-variable 'howm-view-open-by-myself ''("text/.*" "application/emacs-lisp") '(#$ . 22375) :type '(repeat regexp) :group 'howm-viewer) (custom-declare-group 'howm-narrow nil "Narrowing to each entry." :group 'howm-misc) #@110 List of commands after which the function `howm-auto-narrow' can work. If the value is t, it means 'always'. (custom-declare-variable 'howm-auto-narrow 't '(#$ . 22691) :type `(radio (const :tag "Never" nil) (const :tag "Always" t) ,howm-custom-command-list) :group 'howm-narrow) (byte-code "\300\301\302\"\210\303\304\305\306\307\310%\207" [mapc #[(hook) "\301\302\"\207" [hook custom-add-option howm-auto-narrow] 3] (howm-view-open-hook howm-create-hook) custom-declare-group howm-efficiency nil "To improve performance, use grep and turn off expensive options." :group howm] 6) #@41 *Redraw links after you save howm note. (custom-declare-variable 'howm-refresh-after-save 't '(#$ . -23279) :type 'boolean :group 'howm-efficiency) (custom-declare-group 'howm-faces nil "Colors and fonts." :group 'faces :group 'howm) #@53 *If non-nil, highlight tags in howm-mode verbosely. (custom-declare-variable 'howm-use-color 't '(#$ . -23519) :type 'boolean :group 'howm-faces) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\210\300\330\331\332\304\305%\210\300\333\334\335\304\305%\210\300\336\337\340\304\305%\210\300\341\342\343\304\305%\210\300\344\345\346\304\305%\210\300\347\350\351\304\305%\210\300\352\353\354\304\305%\210\300\355\356\357\304\305%\210\300\360\361\362\304\305%\210\300\363\364\365\304\305%\207" [custom-declare-face howm-view-hilit-face ((((class color)) (:foreground "red")) (t nil)) "*Face for matched word." :group howm-faces howm-view-name-face ((((class color)) (:foreground "white" :background "blue")) (t nil)) "*Face for file name in summary buffer." howm-view-empty-face ((((class color)) (:background "midnight blue")) (t nil)) "*Face for empty field in summary buffer." howm-mode-title-face ((((class color)) (:foreground "RoyalBlue")) (t nil)) "*Face for title." howm-mode-ref-face ((((class color) (background light)) (:foreground "blue")) (((class color) (background dark)) (:foreground "cyan")) (t nil)) "*Face for goto link." howm-mode-keyword-face ((((class color)) (:foreground "white" :background "blue")) (t nil)) "*Face for come-from link." howm-mode-wiki-face ((((class color) (background light)) (:foreground "blue")) (((class color) (background dark)) (:foreground "cyan")) (t nil)) "*Face for wiki link." howm-reminder-normal-face ((((class color)) (:foreground "blue")) (t nil)) "*Face for normal reminder." howm-reminder-todo-face ((((class color) (background light)) (:foreground "purple")) (((class color) (background dark)) (:foreground "yellow")) (t nil)) "*Face for todo." howm-reminder-defer-face ((((class color)) (:foreground "magenta")) (t nil)) "*Face for defer." howm-reminder-deadline-face ((((class color)) (:foreground "red")) (t nil)) "*Face for deadline." howm-reminder-schedule-face ((((class color) (background light)) (:foreground "dark green")) (((class color) (background dark)) (:foreground "green")) (t nil)) "*Face for schedule." howm-reminder-done-face ((((class color) (background light)) nil) (((class color) (background dark)) (:foreground "gray")) (t nil)) "*Face for done reminder." howm-reminder-today-face ((((class color)) (:foreground "black" :background "orange")) (t nil)) "*Face for today." howm-reminder-tomorrow-face ((((class color)) (:foreground "black" :background "pink")) (t nil)) "*Face for tommorow." howm-menu-list-face ((t nil)) "*Face for list in menu." howm-menu-key-face ((((class color) (background light)) (:foreground "dark red")) (((class color) (background dark)) (:foreground "orange")) (t nil)) "*Face for key binding in menu."] 6) #@25 *Face for matched word. (defvar howm-view-hilit-face 'howm-view-hilit-face (#$ . -26400)) #@40 *Face for file name in summary buffer. (defvar howm-view-name-face 'howm-view-name-face (#$ . -26496)) #@42 *Face for empty field in summary buffer. (defvar howm-view-empty-face 'howm-view-empty-face (#$ . -26605)) #@18 *Face for title. (defvar howm-mode-title-face 'howm-mode-title-face (#$ . -26718)) #@22 *Face for goto link. (defvar howm-mode-ref-face 'howm-mode-ref-face (#$ . -26807)) #@27 *Face for come-from link. (defvar howm-mode-keyword-face 'howm-mode-keyword-face (#$ . -26896)) #@22 *Face for wiki link. (defvar howm-mode-wiki-face 'howm-mode-wiki-face (#$ . -26998)) #@28 *Face for normal reminder. (defvar howm-reminder-normal-face 'howm-reminder-normal-face (#$ . -27089)) #@17 *Face for todo. (defvar howm-reminder-todo-face 'howm-reminder-todo-face (#$ . -27198)) #@18 *Face for defer. (defvar howm-reminder-defer-face 'howm-reminder-defer-face (#$ . -27292)) #@21 *Face for deadline. (defvar howm-reminder-deadline-face 'howm-reminder-deadline-face (#$ . -27389)) #@21 *Face for schedule. (defvar howm-reminder-schedule-face 'howm-reminder-schedule-face (#$ . -27495)) #@26 *Face for done reminder. (defvar howm-reminder-done-face 'howm-reminder-done-face (#$ . -27601)) #@18 *Face for today. (defvar howm-reminder-today-face 'howm-reminder-today-face (#$ . -27704)) #@21 *Face for tommorow. (defvar howm-reminder-tomorrow-face 'howm-reminder-tomorrow-face (#$ . -27801)) #@25 *Face for list in menu. (defvar howm-menu-list-face 'howm-menu-list-face (#$ . -27907)) #@32 *Face for key binding in menu. (defvar howm-menu-key-face 'howm-menu-key-face (#$ . -28001)) (custom-declare-group 'howm-hooks nil "Hooks." :group 'howm) #@45 Hook run at the end of function `howm-mode' (custom-declare-variable 'howm-mode-hook 'nil '(#$ . 28161) :type 'hook :group 'howm-hooks) #@41 Hook run when `howm-mode' is turned on. (custom-declare-variable 'howm-mode-on-hook 'nil '(#$ . 28303) :type 'hook :group 'howm-hooks) #@42 Hook run when `howm-mode' is turned off. (custom-declare-variable 'howm-mode-off-hook 'nil '(#$ . 28444) :type 'hook :group 'howm-hooks) #@57 Hook run when open a note from summary/contents buffer. (custom-declare-variable 'howm-view-open-hook 'nil '(#$ . 28587) :type 'hook :group 'howm-narrow :group 'howm-hooks) #@65 Hook run before open something from summary or contents buffer. (custom-declare-variable 'howm-view-before-open-hook 'nil '(#$ . 28766) :type 'hook :group 'howm-hooks) #@47 Hook run when buffer for new note is created. (custom-declare-variable 'howm-create-file-hook 'nil '(#$ . 28940) :type 'hook :group 'howm-hooks) #@48 Hook run after new note is created and set up. (custom-declare-variable 'howm-create-hook 'nil '(#$ . 29091) :type 'hook :group 'howm-narrow :group 'howm-hooks) #@45 Hook run at the end of `howm-menu-refresh'. (custom-declare-variable 'howm-menu-hook 'nil '(#$ . 29258) :type 'hook :group 'howm-hooks) #@41 Hook run at the end of `howm-congrats'. (custom-declare-variable 'howm-congrats-hook 'nil '(#$ . 29400) :type 'hook :group 'howm-hooks) #@43 Hook run at the end of `howm-after-save'. (custom-declare-variable 'howm-after-save-hook 'nil '(#$ . 29542) :type 'hook :group 'howm-hooks) (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\305%\207" [custom-declare-group howm-devel nil "Developers' diagnoses." :group howm howm-experimental "Test of experimental features."] 6) #@64 *Regular expression of reminder types which are shown in menu. (custom-declare-variable 'howm-reminder-menu-types '(if howm-reminder-old-format "[-+~!@ ]" "[-+~!@]") '(#$ . -29889) :get #'howm-custom-reminder-get-types :set #'howm-custom-reminder-set-types :type (howm-custom-reminder-list-types) :group 'howm-experimental) #@70 Non nil if `howm-schedule-sort-converter' should consider time part. (custom-declare-variable 'howm-schedule-sort-by-time 'nil '(#$ . 30219) :type 'boolean :group 'howm-experimental) #@96 Font lock keywords for all howm-related buffers. See help of `font-lock-keywords' for details. (custom-declare-variable 'howm-user-font-lock-keywords 'nil '(#$ . 30408) :type 'sexp :group 'howm-experimental) (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314B\315B\304BEF\316BBB\317\320&\210)\304\207" [sep "-------------------------------------" custom-declare-variable howm-menu-reminder-separators nil "Assoc list to specify positions and strings of separators in reminder\nin menu. For each element, car is days from now, and cdr is separator string.\nIf car is nil, it means the boarder between schedule and todo.\nThis option is prepared for `howm-menu-reminder'." :type radio (const :tag "No separators" nil) const :tag "Standard separators" -1 0 ((alist :key-type (radio number (const :tag "Between schedule and todo")) :value-type string)) :group howm-experimental] 14) #@322 *Default coding system for grep command in howm. If the value is a symbol, it is used for both read and write. If the value is a cons pair, its car and cdr are used for read and write, respectively. Example: (setq howm-process-coding-system 'euc-japan-unix) (setq howm-process-coding-system '(utf-8-unix . sjis-unix)) (custom-declare-variable 'howm-process-coding-system 'nil '(#$ . -31309) :type '(radio (const :tag "Off" nil) coding-system (cons coding-system coding-system)) :group 'howm-experimental) #@60 *Non nil if `howm-view-dired' should keep cursor position. (custom-declare-variable 'howm-view-dired-keep-cursor 'nil '(#$ . -31823) :type 'boolean :group 'howm-experimental) (provide 'howm-vars)