;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-view.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-view.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\306\307!\210\306\310!\210\301B\311\301!\204\312\305B\311\305!\2043\313\n!\314 !G\315\316\317\f\"\320 \321\260*\306\207" [current-load-list howm-view-summary-sep howm-file-name-format path width howm-view-summary-format require riffle howm-common boundp "|" format-time-string file-name-nondirectory "%-" format "%s" "s " " "] 5) #@94 Format string of header for howm-view-contents. %s is replaced with file name. See `format'. (defvar howm-view-header-format "\n==========================>>> %s\n" (#$ . 985)) (byte-code "\301B\306\301!\204\f\307\303B\306\303!\204\n\304B\306\304!\204$\310\305B\306\305!\2045\311\312\313\f!\"\314B\306\314!\204B\315\f\316B\306\316!\204T\311\317\313\f!\"\301\207" [current-load-list howm-view-header-regexp howm-view-search-recenter howm-view-open-recenter howm-view-title-header howm-view-title-regexp boundp "^==========================>>> .*$" "=" format "^%s\\( +\\(.*\\)\\|\\)$" regexp-quote howm-view-title-regexp-pos 2 howm-view-title-regexp-grep "^%s +"] 4) (defalias 'howm-view-title-regexp-grep #[nil "\203 \207\n\207" [howm-view-use-grep howm-view-title-regexp-grep howm-view-title-regexp] 1]) (byte-code "\301B\304\301!\204\f\305\302B\304\302!\204\306\303B\304\303!\204$\307\301\207" [current-load-list howm-view-sort-methods howm-view-filter-methods howm-view-watch-modified-buffer boundp (("random" . howm-view-sort-by-random) ("name" . howm-view-sort-by-name) ("name-match" . howm-view-sort-by-name-match) ("numerical-name" . howm-view-sort-by-numerical-name) ("summary" . howm-view-sort-by-summary) ("summary-match" . howm-view-sort-by-summary-match) ("mtime" . howm-view-sort-by-mtime) ("date" . howm-view-sort-by-reverse-date) ("reminder" . howm-view-sort-by-reminder) ("reverse" . howm-view-sort-reverse)) (("name" . howm-view-filter-by-name) ("summary" . howm-view-filter-by-summary) ("mtime" . howm-view-filter-by-mtime) ("date" . howm-view-filter-by-date) ("reminder" . howm-view-filter-by-reminder) ("contents" . howm-view-filter-by-contents) ("Region" . howm-view-filter-by-region) ("Around" . howm-view-filter-by-around)) t] 2) (defalias 'howm-view-item-basename #[(item &optional nonempty) "\304!\305 !\211\306\230\203 \203 \202\n*\207" [item f b nonempty howm-item-name file-name-nondirectory ""] 3]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\207" [defalias riffle-home:howm howm-view-item-home riffle-summary-item:howm howm-view-summary-item riffle-contents-item:howm howm-view-contents-item riffle-summary-set-mode:howm howm-view-summary-mode riffle-contents-set-mode:howm howm-view-contents-mode] 3) (defalias 'riffle-summary-name-format:howm #[nil "\207" [howm-view-summary-name] 1]) (defalias 'riffle-contents-name-format:howm #[nil "\207" [howm-view-contents-name] 1]) (defalias 'riffle-post-update:howm #[(item) "\301\302\303!\"\207" [item message "View: %s" howm-view-item-filename] 4]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\300\315\316\"\210\300\317\320\"\210\300\321\322\"\210\300\323\324\"\210\300\325\326\"\207" [defalias howm-view-name riffle-name howm-view-item-list riffle-item-list howm-view-line-number riffle-line-number howm-view-summary-check riffle-summary-check howm-view-persistent-p riffle-persistent-p howm-view-kill-buffer riffle-kill-buffer howm-view-set-place riffle-set-place howm-view-summary-current-item riffle-summary-current-item howm-view-contents-current-item riffle-contents-current-item howm-view-summary-to-contents riffle-summary-to-contents howm-view-restore-window-configuration riffle-restore-window-configuration] 3) (defalias 'howm-view-get-buffer #[(name-format &optional name new) "\304\305 \n #)\207" [riffle-type name-format name new :howm riffle-get-buffer] 4]) (defalias 'howm-view-summary-buffer #[(&optional new) "\302\303 !)\207" [riffle-type new :howm riffle-summary-buffer] 2]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [defalias howm-view-summary-show riffle-summary-show howm-view-set-item-list riffle-set-item-list howm-view-sort-items howm-sort] 3) #@39 Inhibit font-lock-verbose if non-nil. (defvar howm-view-font-lock-silent t (#$ . 4847)) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\305\305\207" [current-load-list howm-view-summary-font-lock-keywords howm-view-contents-font-lock-keywords boundp (("^[^ \n]+ +" . howm-view-name-face) ("^ +" . howm-view-empty-face)) nil] 2) #@113 For internal use. Don't set this variable. This is a shameful global variable and should be clearned in future. (defvar *howm-view-font-lock-keywords* nil (#$ . 5200)) #@19 For internal use. (defvar howm-view-font-lock-keywords nil (#$ . 5374)) #@19 For internal use. (defvar howm-view-font-lock-first-time t (#$ . 5452)) (byte-code "\303\304!\210\303\305!\210\301B\306\301!\204\307 \302B\306\302!\204$\310\311\312\"\313B\314\313\312\"\210\315\316\317\320#\207" [current-load-list howm-view-summary-mode-map howm-view-summary-mode-syntax-table make-variable-buffer-local howm-view-font-lock-keywords howm-view-font-lock-first-time boundp make-sparse-keymap make-char-table syntax-table nil howm-view-summary-mode-abbrev-table define-abbrev-table put howm-view-summary-mode derived-mode-parent riffle-summary-mode] 4) #@1183 memo viewer (summary mode) key binding --- ------- \[howm-view-summary-open] Open file \[next-line] Next item \[previous-line] Previous item \[riffle-pop-or-scroll-other-window] Pop and scroll contents \[scroll-other-window-down] Scroll contents \[riffle-scroll-other-window] Scroll contents one line \[riffle-scroll-other-window-down] Scroll contents one line \[riffle-summary-to-contents] Concatenate all contents \[howm-view-filter-uniq] Remove duplication of same file \[howm-view-summary-shell-command] Execute command in inferior shell \[delete-other-windows] Delete contents window \[riffle-pop-window] Pop contents window \[riffle-toggle-window] Toggle contents window \[howm-list-title] Show Title \[howm-view-filter] Filter (by date, contents, etc.) \[howm-view-filter-by-contents] Search (= filter by contents) \[howm-view-sort] Sort (by date, summary line, etc.) \[howm-view-sort-reverse] Reverse order \[howm-view-dired] Invoke Dired-X \[describe-mode] This help \[riffle-kill-buffer] Quit In addition to any hooks its parent mode `riffle-summary-mode' might have run, this mode runs the hook `howm-view-summary-mode-hook', as the final step during initialization. (defalias 'howm-view-summary-mode #[nil "\306 \210\306\307N\203\310\311\307\312#\210\311\313\314\n!\204\315\n\316 \"\210\317 !\211\203.\f\320 =\2034\321 \322 \"\210) \203>\323\324 \"\210\325\n!\210\326 !\210!\327\330!\210\327\331!\210\327\332!\210\333\"!\210#\203i\334#\335$%\"\210&\203{&'\335&$%#\210\312\312\336 \210\337\340!\207" [major-mode mode-name howm-view-summary-mode-map howm-view-summary-mode-syntax-table parent local-abbrev-table riffle-summary-mode special put howm-view-summary-mode t "HowmS" keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table mapatoms #[(symbol) "\302\303! \"\206\304 \303!JK$\207" [symbol howm-view-summary-mode-abbrev-table intern-soft symbol-name define-abbrev] 5] use-local-map set-syntax-table make-local-variable font-lock-keywords font-lock-keywords-only font-lock-keywords-case-fold-search cheat-font-lock-mode nil cheat-font-lock-merge-keywords howm-fontify run-hooks howm-view-summary-mode-hook howm-view-summary-mode-abbrev-table howm-view-font-lock-silent howm-view-font-lock-first-time howm-user-font-lock-keywords howm-view-summary-font-lock-keywords *howm-view-font-lock-keywords* howm-view-font-lock-keywords] 5 (#$ . 6038) nil]) (byte-code "\301B\303\301!\204 \304 \302B\303\302!\204\305\306\307\"\310B\311\310\307\"\210\312\313\314\315#\207" [current-load-list howm-view-contents-mode-map howm-view-contents-mode-syntax-table boundp make-sparse-keymap make-char-table syntax-table nil howm-view-contents-mode-abbrev-table define-abbrev-table put howm-view-contents-mode derived-mode-parent riffle-contents-mode] 4) #@856 memo viewer (contents mode) key binding --- ------- \[howm-view-contents-open] Open file \[next-line] Next line \[previous-line] Previous line \[scroll-up] Scroll up \[scroll-down] Scroll down \[riffle-scroll-up] Scroll one line up \[riffle-scroll-down] Scroll one line down \[riffle-contents-to-summary] Summary \[riffle-contents-goto-next-item] Next item \[riffle-contents-goto-previous-item] Previous item \[howm-view-filter] Filter (by date, contents, etc.) \[howm-view-filter-by-contents] Search (= filter by contents) \[howm-view-sort] Sort \[howm-view-sort-reverse] Reverse order \[howm-view-dired] Invoke Dired-X \[describe-mode] This help \[riffle-kill-buffer] Quit In addition to any hooks its parent mode `riffle-contents-mode' might have run, this mode runs the hook `howm-view-contents-mode-hook', as the final step during initialization. (defalias 'howm-view-contents-mode #[nil "\306 \210\306\307N\203\310\311\307\312#\210\311\313\314\n!\204\315\n\316 \"\210\317 !\211\203.\f\320 =\2034\321 \322 \"\210) \203>\323\324 \"\210\325\n!\210\326 !\210\"\327\330!\210\327\331!\210\327\332!\210\333#!\210$\334BC\335 \206f%&'\336&'()$\210\312*\337 \210*\340\341!\207" [major-mode mode-name howm-view-contents-mode-map howm-view-contents-mode-syntax-table parent local-abbrev-table riffle-contents-mode special put howm-view-contents-mode t "HowmC" keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table mapatoms #[(symbol) "\302\303! \"\206\304 \303!JK$\207" [symbol howm-view-contents-mode-abbrev-table intern-soft symbol-name define-abbrev] 5] use-local-map set-syntax-table make-local-variable font-lock-keywords font-lock-keywords-only font-lock-keywords-case-fold-search cheat-font-lock-mode ((0 howm-view-hilit-face)) howm-view-font-lock-keywords cheat-font-lock-merge-keywords howm-fontify run-hooks howm-view-contents-mode-hook howm-view-contents-mode-abbrev-table howm-view-font-lock-silent howm-view-header-regexp *howm-view-font-lock-keywords* sk ck howm-user-font-lock-keywords howm-view-contents-font-lock-keywords howm-view-grep-ignore-case-option] 6 (#$ . 8914) nil]) (defalias 'howm-view-font-lock-keywords #[nil "r\301 q\210)\207" [howm-view-font-lock-keywords riffle-summary-buffer] 1]) (defalias 'howm-view-define-common-key #[(keymap) "\302 \303\304#\210\302 \305\306#\210\302 \307\310#\210\302 \311\312#\210\302 \313\314#\210\302 \315\316#)\207" [keymap m define-key "f" howm-view-filter "G" howm-view-filter-by-contents "S" howm-view-sort "R" howm-view-sort-reverse "q" howm-view-kill-buffer "X" howm-view-dired] 4]) (byte-code "\303 \304\305#\210\303 \306\305#\210\303 \307\310#\210\303 \311\312#\210\303 \313\314#\210\303 \315\316#\210\303 \317\320#\210\303 \321\316#\210\303 \322\320#\210\323 !\210)\n\303 \304\324#\210\303 \306\324#\210\323 !\210)\303\207" [howm-view-summary-mode-map m howm-view-contents-mode-map define-key " " howm-view-summary-open "\n" "u" howm-view-filter-uniq "!" howm-view-summary-shell-command "T" howm-list-title " " howm-view-summary-next-section "\211" howm-view-summary-previous-section [tab] [(meta tab)] howm-view-define-common-key howm-view-contents-open] 4) (defalias 'howm-view-summary #[(&optional name item-list) "\303 \304\305 $\211\204\306\307!\210\n)\207" [name item-list r riffle-summary :howm howm-view-in-background-p message "No match"] 6]) (defalias 'howm-view-summary-open #[(&optional reverse-delete-p) "\203 \305\306 !\204\307\310!\210\311 ! \203\n?\202\n\312 \210\313\f?!*\207" [howm-view-summary-keep-cursor howm-view-summary-persistent p reverse-delete-p persistent get-buffer-window riffle-contents-buffer riffle-summary-check t riffle-persistent-p howm-record-view-window-configuration howm-view-summary-open-sub] 2 nil "P"]) (defalias 'howm-view-summary-open-sub #[(&optional kill) "\305 \306`\307 \"\310 \n\"\210\311\312\f!\210)\311\210\313\314 \315#\204$\316 \210\317\303!*\207" [looking-at-str b howm-view-summary-window-size howm-view-open-hook kill riffle-contents-buffer buffer-substring-no-properties line-end-position riffle-pop-to-buffer nil howm-view-contents-open-sub search-backward line-beginning-position t beginning-of-line run-hooks] 4 nil "P"]) #@18 for internal use (defvar howm-view-summary-item-previous-name nil (#$ . 13200)) (defalias 'howm-view-summary-item #[(item) "`e=\203\306\307 \310\" \203\n\230\203\306\202\n\211\311 \f\"\211 \312 !P+\207" [howm-view-summary-item-previous-name item f howm-view-summary-omit-same-name name howm-view-summary-format "" howm-view-item-basename t format howm-view-item-summary h] 4]) (defalias 'howm-view-summary-next-section #[(&optional n) "\206\303\304!\305Y\203\303\202\306\211\305V\205)\307 !\205)\nS\211\202*\207" [n step i 1 abs 0 -1 howm-view-summary-next-section-sub] 4 nil "P"]) (defalias 'howm-view-summary-previous-section #[(&optional n) "\206\301\302[!\207" [n 1 howm-view-summary-next-section] 2 nil "P"]) (defalias 'howm-view-summary-next-section-sub #[(step) "\302\303 !\302\303 !\230\205 y\304U\205\202)\207" [orig step howm-view-item-filename riffle-summary-current-item 0] 3]) (defalias 'howm-view-contents-open #[(&optional reverse-delete-p) "\304!\n\203 ?\202 \305 \210\306 ?!*\207" [howm-view-contents-persistent p reverse-delete-p persistent riffle-persistent-p howm-record-view-window-configuration howm-view-contents-open-sub] 2 nil "P"]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list *howm-view-item-privilege* boundp nil] 2) (defalias 'howm-view-contents-open-sub #[(&optional kill) "\306 \307!\310!`\nZ\311 ! \203\312 \210\313!\203#\314 \210\313!\315\316!\210\f\2038\317\f \"\210\202>\320\321\322#\210\315\323!-\207" [item page offset pos viewer kill riffle-contents-current-item howm-item-page howm-view-item-offset howm-view-external-viewer riffle-kill-buffer howm-view-item-privilege riffle-restore-window-configuration run-hooks howm-view-before-open-hook howm-view-call-external-viewer howm-view-open-item #[nil "eW\204\fdX\203~\210b\207" [pos] 2] t howm-view-open-hook *howm-view-item-privilege*] 4]) (defalias 'howm-view-open-item #[(item &optional position-setter merely) "\304\305!!\210\306 \210 \203 \210\202\307\310!!\210\311\n!\210 ?\205$\312 \207" [item position-setter howm-view-open-recenter merely howm-page-open howm-item-page howm-view-set-mark-command howm-view-set-place howm-item-place recenter howm-view-open-postprocess] 3]) (defalias 'howm-view-open-postprocess #[nil "\300\301!\207" [run-hooks howm-view-open-hook] 2]) #@18 For internal use (defvar howm-view-previous-section-page nil (#$ . 15577)) #@18 For internal use (defvar howm-view-previous-section-beg nil (#$ . 15658)) #@18 For internal use (defvar howm-view-previous-section-end nil (#$ . 15738)) (defalias 'howm-view-contents-item #[(item) "\306 \203 \307\310\310\311 !\312 !\313\f\" \203.\2050 X\2050 \nX\2020\211\203:\307\202`\314\315\f!\"\316!\317\f!\320 \f `\\&P+,\207" [howm-view-previous-section-page howm-view-previous-section-beg howm-view-previous-section-end item page place howm-buffer-empty-p "" nil howm-item-page howm-view-item-place howm-page= format howm-page-abbreviate-name howm-view-string-point-count howm-view-external-viewer howm-view-contents-item-sub peq done-p howm-view-header-format header header-length viewer] 10]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list howm-view-string-point-count-strict boundp nil] 2) #@271 Count points of string STR. Namely, it is the difference between start position and end position of STR if STR is inserted to a buffer. It looks to be simply equal to (length STR) on emacs-21.1.1. But I'm not sure for multi-byte characters on other versions of emacsen. (defalias 'howm-view-string-point-count #[(str) "\203\303\304\305!!\306\216r q\210\nc\210`eZ+\207\nG\207" [howm-view-string-point-count-strict #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))] 3 (#$ . 16528)]) (defalias 'howm-view-contents-item-sub #[(item page place header viewer c) "\306\307\310!!\311\216rq\210\312\211\211\f\203\313\f \"\210\202\"\314 !\210\203C\315!\210`\316 !\211@\211A@))\202Ied \317 Z\"\210\320 [\\ \\\"\210 \321 !\321\n!\322 \n\".\207" [#1=#:temp-buffer h e b viewer page get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil howm-view-contents-indicator howm-page-insert riffle-set-place howm-view-contents-region howm-view-item-set-offset howm-view-item-set-home riffle-get-place buffer-substring-no-properties place r x item c howm-view-previous-section-page howm-view-previous-section-beg howm-view-previous-section-end] 5]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list howm-view-preview-narrow boundp t] 2) (defalias 'howm-view-contents-region #[(filename) "\203\302!\210 \204\303 \204\304 \207edD\207" [filename howm-view-preview-narrow howm-page-set-configuration riffle-preview-p howm-view-paragraph-region] 2]) (defalias 'howm-view-contents-indicator #[(viewer fname) "\302 \"c\207" [viewer fname howm-viewer-indicator] 3]) (defalias 'howm-view-paragraph-region #[(&optional include-following-blank-p) "\212\305\210\306\305\307#\210\310 )\212\305\210\311\305\307#\n\203( \203$\312\224\202Fd\202F \2032\313y\210\2025db\210\314\315!\203B\313y\312U\2045\305\210`*\211 *D\207" [howm-view-title-regexp found include-following-blank-p e b nil re-search-backward to-limit line-beginning-position re-search-forward 0 -1 looking-at "^$"] 6]) (defalias 'howm-view-set-mark-command #[nil "\300\301!\210\302 \207" [set-mark-command nil howm-deactivate-mark] 2]) (defalias 'howm-view-file-list #[(&optional item-list) "\301\302\303\206 \304 \"\305\306#\207" [item-list howm-cl-remove-duplicates mapcar howm-view-item-filename howm-view-item-list :test howm-page=] 4]) (defalias 'howm-view-xtime #[(file x) "\302=\203\f\303\304 !!\207\305\306\"\207" [x file m howm-view-time-to-string howm-page-mtime error "Not supported: %stime"] 3]) (defalias 'howm-view-time-to-string #[(ti) "\301\302\"\207" [ti format-time-string "%Y%m%d-%H%M%S"] 3]) (defalias 'howm-view-string> #[(a b) " \231\207" [b a] 2]) (defalias 'howm-view-string<= #[(a b) " \231?\207" [b a] 2]) #@115 Non nil if ruby-mode.el is old and has a bug around font-lock; global value of font-lock-keywords is set wrongly. (custom-declare-variable 'howm-ruby-mode-bug 'nil '(#$ . 19476) :type 'boolean :group 'howm-experimental) (defalias 'howm-view-directory #[(dir &optional recursive-p) "\304\305\306 \"\"\210\n\205\307\211\207" [dir recursive-p howm-ruby-mode-bug font-lock-keywords howm-view-summary "" howm-view-directory-items nil] 5]) (defalias 'howm-view-filter #[(&optional remove-p) "\304\n\203 \305\202\f\306 \307\310$\311\312 \"A!*\207" [howm-view-filter-methods table remove-p command completing-read "(Reject) filter by: " "filter by: " nil t call-interactively assoc] 5 nil "P"]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list howm-view-filter-uniq-prev boundp ""] 2) (defalias 'howm-view-filter-uniq #[nil "\203\n\302\303B\202 \302\304\305!\207" [howm-view-search-in-result-correctly howm-view-filter-uniq-prev "" nil howm-view-filter-general #[(item) "\203C\306 !\307 !\310 !\n@\nA \f\311\f\f\"\205; \205; \205; @ X\205; \211 A@)X?\f B-\207\312 !\311\n\"?)\207" [howm-view-search-in-result-correctly item howm-view-filter-uniq-prev p-range p-page range howm-item-page howm-item-place howm-item-range howm-page= howm-view-item-filename place page x f] 6]] 2 nil nil]) (defalias 'howm-view-filter-by-name #[(&optional remove-p regexp) "\302\303 #\207" [remove-p regexp howm-view-filter-by-name/summary howm-view-item-basename] 4 nil "P"]) (defalias 'howm-view-filter-by-summary #[(&optional remove-p regexp) "\302\303 #\207" [remove-p regexp howm-view-filter-by-name/summary howm-view-item-summary] 4 nil "P"]) (defalias 'howm-view-filter-by-name/summary #[(accessor remove-p regexp) "\206\303\304 \"\305\306 \")\207" [regexp remove-p r howm-view-filter-read-from-minibuffer "Regexp: " howm-view-filter-general #[(item) "\303 \n!\"\207" [r accessor item string-match] 4]] 3]) (defalias 'howm-view-filter-by-date #[(&optional remove-p) "\306!\211@ \211A@)\307 \310\311\n\fD\"\211\f@ \f\211A@)\312\313\".\207" [remove-p r from x to form howm-view-ask-time-range howm-view-file-name-format mapcar #[(x) "\302\303 \"!\207" [form x file-name-nondirectory format-time-string] 4] howm-view-filter-general #[(item) "\304!\305\n \"\205\305 \")\207" [item cs fs ts howm-view-item-basename howm-view-string<=] 3] fts fs ts] 5 nil "P"]) (defalias 'howm-view-filter-by-reminder #[(&optional remove-p) "\306!\211@ \211A@)\307 \n\" \307 \f\"\f\310 !\311\312\".\207" [remove-p r from x to howm-date-format howm-view-ask-time-range format-time-string howm-reminder-regexp howm-view-filter-general #[(item) "\306!\307\n \"\205*\310\311 \"\307\f \"\205\310\311 \"\312 \"\205)\312 \f\"*)\207" [item s reg x howm-date-regexp d howm-view-item-summary string-match match-string-no-properties 0 howm-view-string<= from-str to-str] 3] from-str to-str howm-reminder-types reg] 4 nil "P"]) (defalias 'howm-view-file-name-format #[nil "\207" [howm-file-name-format] 1]) (defalias 'howm-view-filter-by-mtime #[(&optional remove-p range) "\302\303 #\207" [remove-p range howm-view-filter-by-xtime m] 4 nil "P"]) (defalias 'howm-view-filter-by-xtime #[(x remove-p &optional range) "\206\306 !\211@\n\211A@)\307 !\n\307 ! \310\311 \"-\207" [range remove-p r from x to howm-view-ask-time-range howm-view-time-to-string howm-view-filter-general #[(item) "\305\306! \"\307 \n\"\205\307\n\f\")\207" [item x cs fs ts howm-view-xtime howm-view-item-filename howm-view-string<=] 3] fs ts] 4]) (defalias 'howm-view-ask-time-range #[(&optional remove-p) "\304 \305\306\307 $\305\310\n\311 $\n +D\207" [now remove-p from to current-time howm-view-ask-time "From" t "To" nil] 5]) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\305\301\207" [current-load-list howm-view-min-year howm-view-max-year boundp 1950 2030] 2) (defalias 'howm-view-ask-time #[(prompt default &optional from-p remove-p) "\306!\307 8\310 8\311 8\312\211\211\211\211\211\203;\313\313\314\314\314\202M\315\316\317\314\314\320\321\n$\211\204l\322 &\202\252\320\323 $\211 \204\213\322 &\202\251\320\324\f$\206\230!\322 ! &)). \207" [default z yd md dd sec0 decode-time 5 4 3 nil 1 0 12 last-day-of-month 24 howm-ask-time-sub "year" howm-view-encode-time "month" "date" min0 hour0 d0 m0 y0 from-p howm-view-min-year howm-view-max-year prompt remove-p y m d] 8]) (defalias 'howm-ask-time-sub #[(prompt ymd default remove-p) "\306\307 \n$\310 \f\"\211\311\230\203\n\202\312 !\211\f\313U?\205$\f+\207" [prompt ymd default message remove-p raw format "%s %s (* = no limit) [%d]: " howm-view-filter-read-from-minibuffer "" string-to-number 0 n] 6]) (defalias 'howm-view-encode-time #[(sec min hour d m y) "\306=\203 T\307\310\n \f &\207" [d m sec min hour y last-day-of-month -1 encode-time] 7]) (defalias 'howm-view-filter-by-region #[(beg end) "\304\305 D\"\306\n@\n\211A@)\")\207" [beg end r x mapcar howm-view-line-number howm-view-filter-by-line-range] 5 nil "r"]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list howm-view-filter-by-around-default boundp 10] 2) (defalias 'howm-view-filter-by-around #[(&optional distance) "\206 \304 \305 \nZ \n\\\"*\207" [distance howm-view-filter-by-around-default d c howm-view-line-number howm-view-filter-by-line-range] 4 nil "P"]) (defalias 'howm-view-filter-by-line-range #[(beg end) " \304\305\306\307#*\207" [beg end howm-view-filter-by-line-range-end howm-view-filter-by-line-range-beg howm-view-filter-general #[(item-count) "\211A@)T  \f\nX\205\nX+\207" [item-count x line howm-view-filter-by-line-range-beg b howm-view-filter-by-line-range-end e] 3] nil t] 4]) (defalias 'howm-view-filter-general #[(pred &optional remove-p with-index) "\306  \203\307\310\"\202 \203\311\f\n\"\202\312\f\n\" \203+\313\314 \"\202, \315!,\207" [item-list with-index s remove-p pred r howm-view-item-list howm-map-with-index list howm-cl-remove-if howm-cl-remove-if-not mapcar car howm-view-summary-rebuild filtered] 3]) (defalias 'howm-view-filter-read-from-minibuffer #[(message &optional remove-p) "\302\203 \303 P\202\f !\207" [remove-p message read-from-minibuffer "(Reject) "] 3]) (defalias 'howm-view-summary-rebuild #[(item-list) "\301\302 \"\207" [item-list howm-view-summary howm-view-name] 3]) (defalias 'howm-view-filter-by-contents #[(&optional remove-p regexp) "\206\303\304 \" \203\305\n!\202\306\n!)\207" [regexp remove-p r howm-view-filter-read-from-minibuffer "Search in result (grep): " howm-view-remove-by-contents howm-view-search-in-result] 3 nil "P"]) #@60 *Non nil if search-in-result should be aware of paragraph. (custom-declare-variable 'howm-view-search-in-result-correctly 'nil '(#$ . -26254) :type 'boolean :group 'howm-experimental) (defalias 'howm-view-search-in-result #[(regexp) "\306 \211\307\230\203 \202\310\311 #\312 \313 !\314 !\210\315 \f\n#\210 \205/\316\317\312 \"!,\207" [orig regexp name orig-item-list folder howm-view-search-in-result-correctly howm-view-name "" format "%s&%s" howm-view-item-list howm-make-folder-from-items howm-write-history howm-view-search-folder howm-view-summary-rebuild howm-item-list-filter] 5]) (defalias 'howm-view-remove-by-contents #[(regexp) "\305 \306!\n\203\307 \"\310\311\f\312#!)\202*\313\314\315\307 \"\"!\316\317\312\")*\207" [orig folder howm-view-search-in-result-correctly regexp rejects howm-view-item-list howm-make-folder-from-items howm-view-search-folder-items howm-view-summary-rebuild howm-item-list-filter t howm-cl-remove-duplicates mapcar howm-item-name howm-view-filter-general #[(item) "\302! \235\207" [item rejects howm-item-name] 2]] 6]) #@263 *Regular expression for lines which should not be titles. If the original title matches this regexp, the first non-matched line is shown as title instead. Nil disables this feature. This feature does not work when `howm-view-search-in-result-correctly' is nil. (custom-declare-variable 'howm-view-title-skip-regexp 'nil '(#$ . -27343) :type '(radio (const :tag "Off" nil) (const :tag "Skip \"= \"" "^=? *$") (const :tag "Skip \"= \" and \"[xxxx-xx-xx xx:xx]\"" "\\(^=? *$\\)\\|\\(^\\[[-: 0-9]+\\]\\)") regexp) :group 'howm-experimental) #@226 *Type of showing title in summary buffer. Value 1 means "show title instead of summary". Value 2 means "show title before summary". You may want to set `howm-view-summary-format' to be "" if you never need to see file names. (custom-declare-variable 'howm-view-list-title-type '1 '(#$ . -27888) :type '(radio (const :tag "title instead of summary" 1) (const :tag "title before summary" 2)) :group 'howm-experimental) (defalias 'howm-view-list-title #[(title-regexp) "\302U\203\n\303 !\207\304 !\207" [howm-view-list-title-type title-regexp 1 howm-view-list-title1 howm-view-list-title2] 2]) #@32 Show title instead of summary. (defalias 'howm-view-list-title1 #[(title-regexp) "\306\307 !\310 \"  \203E\311\n\307 \"\311\307 \n\312#\211\204(\202.\313\"\203;\314\315\"\210\f\316!,\202y\317\314\320\307 \"!\314\320\n\"\321\322\"\314\323\"\211\204j\n\202o\313\n\"\f\316!.+\207" [folder title-regexp items *howm-view-font-lock-keywords* kw howm-view-search-in-result-correctly howm-make-folder-from-items howm-view-item-list howm-view-search-folder-items howm-item-list-filter t append mapcar howm-view-change-title howm-view-summary-rebuild howm-cl-remove-duplicates howm-item-page howm-cl-remove-if #[(p) "\302 \303\304$\207" [p hit-pages howm-cl-member* :test howm-page=] 5] howm-make-item hit-items nohit-items all-items howm-view-title-skip-regexp pages hit-pages nohit-pages] 5 (#$ . 28487)]) #@28 Show title before summary. (defalias 'howm-view-list-title2 #[(title-regexp) "\301 \302\303\"\210\304!)\207" [item-list howm-view-item-list mapc #[(item) "\303!\304! \205\305\306\307 @\n#\"*\207" [item titles orig howm-item-summary howm-item-titles howm-item-set-summary format "%-13s | %s"] 6] howm-view-summary-rebuild] 3 (#$ . 29342)]) (defalias 'howm-item-with-temp-buffer #[(item proc) "\306\307\310!!\311\216rq\210\312\313 !!\210\314 !\211\204 edD\202&\315\n!\210\316 \211@ \211A@)}\210 !-\207" [#1=#:temp-buffer item p r x proc get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) howm-page-insert howm-item-page howm-item-place riffle-set-place howm-view-paragraph-region] 4]) #@147 List of titles of ITEM. When place (see `howm-item-place') is specified, ITEM has at most one title. Otherwise, ITEM can have two or more titles. (defalias 'howm-item-titles #[(item) "\301\302\"\207" [item howm-item-with-temp-buffer #[(i) "\301eb\210\302\303 \301\304#\203\305\306\224\307 \"B\202\310!)\207" [titles nil re-search-forward howm-list-title-regexp t buffer-substring-no-properties 0 line-end-position reverse] 4]] 3 (#$ . 30132)]) #@75 List of beginning-place and end-place of paragraph to which ITEM belongs. (defalias 'howm-item-range #[(item) "\301\302\"\207" [item howm-item-with-temp-buffer #[(i) "edD~\210@b\210\302 \211A@)b\210\302 )D\207" [r x riffle-get-place] 3]] 3 (#$ . 30591)]) #@233 Make assoc list of page to rangeset. ITEM-LIST is list of items. Return value is assoc list; each element of it is a cons pair of page and rangeset which indicates ranges of places of paragraphs to which items in ITEM-LIST belongs. (defalias 'howm-item-list-rangeset #[(item-list) "\302\303\304 \"\210)\207" [alist item-list nil mapc #[(item) "\305!\306!\307 \"A\211\204 \310\311!!B B\211\2021\312\n\f\"\203+\313\2021\314\f\311!\"+\207" [item page place alist rs howm-item-page howm-item-place assoc howm-make-rangeset howm-item-range howm-rangeset-belong-p nil howm-rangeset-add!] 5]] 3 (#$ . 30858)]) #@391 Select items in ITEM-LIST according to REFERENCE-ITEM-LIST. When REMOVE-MATCH is nil, return value is list of items i in ITEM-LIST which satisfy the condition "there exists i' in REFERENCE-ITEM-LIST such that i and i' belong to same paragraph". When REMOVE-MATCH is non-nil, return value is complement of the above list; list of items in ITEM-LIST which do not satisfy the above condition. (defalias 'howm-item-list-filter #[(item-list reference-item-list &optional remove-match) "\305\306\"\307 !\310\f\203\311 \"\202\312 \"*\207" [item-list reference-item-list alist matcher remove-match howm-cl-mapcan #[(item) "\302!\203 C\207\303C!\304\305 \"\206C)\207" [item f howm-item-place howm-make-folder-from-items howm-view-search-folder-items howm-view-title-regexp-grep] 3] howm-item-list-rangeset #[(item) "\305!\306!\307 \"A\211\204\310\202\"\n\204\311\202\"\312\n\f\"+\207" [item page place alist rs howm-item-page howm-item-place assoc nil t howm-rangeset-belong-p] 4] howm-cl-remove-if howm-cl-remove-if-not] 3 (#$ . 31484)]) (defalias 'howm-make-rangeset #[(&optional beg-end) "\204\302\303B\207\304 \305 \")\207" [beg-end rs *rangeset* nil howm-make-rangeset howm-rangeset-add!] 3]) (defalias 'howm-rangeset-belong-p #[(point rs) "\301\302A\"\207" [rs howm-cl-member-if #[(pair) "@ X\205 AX\207" [pair point] 2]] 3]) (defalias 'howm-rangeset-add! #[(rs beg-end) " @ \211A@) A\203Z\f\203Z \211A@) @W\2033 \f B AB\241\210\306\202VA\fW\203A A\202V\f@^ A] \211\211AA)\241\210)\202\f\f\203e \f BC\241\210+\207" [rs beg-end x end beg c nil p] 4]) (byte-code "\305\306\307\300!\211\205\300K\310\216\300\311M\210\312\313 \"\210-\314\315\316\f\"\203U\315\317\f\"\203U\315\320\f\"\203U\315\321\f\"\203U\315\322\f\"\204U\315\323\f\"\204U\315\324\f\"\204U\315\325\f\"\203Y\326\327!\210)\306\207" [check tests #1=#:--letf-bound--13326 #2=#:--letf-save--13325 rs ((nil nil) (((3 . 5)) ((3 . 5))) (((3 . 5) (0 . 1)) ((0 . 1) (3 . 5))) (((3 . 5) (6 . 8)) ((3 . 5) (6 . 8))) (((3 . 5) (1 . 4)) ((1 . 5))) (((3 . 5) (4 . 7)) ((3 . 7))) (((3 . 5) (1 . 9)) ((1 . 9))) (((3 . 1) (4 . 1) (5 . 9)) ((1 . 4) (5 . 9))) (((3 . 1) (4 . 1) (5 . 9) (2 . 6) (5 . 3)) ((1 . 9)))) nil fboundp ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#1# #2# check fmakunbound] 2)) #[(ans result) "\204 ?\207@ @\232\204\303\207\nA A\"\207" [ans result check nil] 3] mapc #[(z) "\301\302\"\207" [z apply #[(prob ans) "\303 \304\305 \"\210A\n\232?\205\306\307 #)\207" [rs prob ans howm-make-rangeset mapc #[(pair) "@A\304 \n ^\n ]D\"*\207" [pair b a rs howm-rangeset-add!] 5] error "howm-rangeset-add: %s ==> %s"] 4]] 3] (*rangeset* (1 . 4) (5 . 6) (8 . 14)) howm-rangeset-belong-p 1 3 4 5 0 4.5 7 15 error "howm-rangeset-belong-p: wrong result"] 4) (defalias 'howm-view-change-title #[(item) "\304\305 !\"\205*\306\307\310!!\311\216r\nq\210\312\313 !!\210\314\315 !!\210\316 +\317 \")\207" [howm-view-title-skip-regexp item #1=#:temp-buffer title-line string-match howm-item-summary get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) howm-page-insert howm-item-page howm-view-set-place howm-item-place howm-view-get-title-line howm-item-set-summary] 4]) (defalias 'howm-view-get-title-line #[nil "\301!\203 \302y\303U\204\304\305 \306 \"\207" [howm-view-title-skip-regexp looking-at 1 0 buffer-substring-no-properties line-beginning-position line-end-position] 3]) (defalias 'howm-view-search #[(str file-list &optional name summarizer fixed-p hilit-keywords) "\306\307 !\n \f &\207" [str file-list name summarizer fixed-p hilit-keywords howm-view-search-folder howm-make-folder:files] 7]) (defalias 'howm-view-search-items #[(str file-list &optional summarizer fixed-p) "\304\305 !\n $\207" [str file-list summarizer fixed-p howm-view-search-folder-items howm-make-folder:files] 5]) (defalias 'howm-view-search-folder #[(str folder &optional name summarizer fixed-p hilit-keywords) "\211<\203 \202 C <\203 @\202 \211\f\206! \203-\306?\"\210\307 $\206C\310\n!\311BC\312!\313!\203e\314!\315\316\"\210B))\317\f\".\207" [str str-orig str-list str-principal name howm-view-update-search-ring isearch-update-ring howm-view-search-folder-items regexp-opt howm-view-hilit-face expand-file-name file-exists-p howm-view-make-item howm-view-item-set-privilege t howm-view-summary fixed-p folder summarizer items hilit-keywords kw f fi *howm-view-font-lock-keywords*] 6]) (defalias 'howm-view-search-folder-items #[(str folder &optional summarizer fixed-p) "\305 \n# \206\n\306\307\310\f\"\210\f*\207" [folder str fixed-p summarizer found howm-folder-grep #[(file place content) "\301\302\"\210\303\304\"\207" [content string-match "^ *\\(.*\\)" match-string-no-properties 1] 3] mapc #[(i) "\305\306!!\307!\310!\311\f \n #\"+\207" [i content place file summarizer howm-page-name howm-item-page howm-item-place howm-item-summary howm-item-set-summary] 6]] 4]) (defalias 'howm-view-sort #[nil "\303\304 \305\306$\307\310\n \"A!*\207" [howm-view-sort-methods table command completing-read "sort by: " nil t call-interactively assoc] 5 nil nil]) (defalias 'howm-view-sort-by-random #[(&optional reverse-p) "\301\302\303#\207" [reverse-p howm-view-sort-general #[(dummy) "\300 \207" [random] 1] <] 4 nil "P"]) (defalias 'howm-view-sort-by-name #[(&optional reverse-p) "\301\302\303#\207" [reverse-p howm-view-sort-general howm-view-item-basename string<] 4 nil "P"]) (defalias 'howm-view-sort-by-numerical-name #[(&optional reverse-p) "\301\302\303#\207" [reverse-p howm-view-sort-general #[(i) "\303!\304\305 \"\203\306 !\202\n)\207" [i b howm-infinity howm-view-item-basename string-match "^[0-9]+$" string-to-number] 3] <] 4 nil "P"]) (defalias 'howm-view-sort-by-name-match #[(&optional reverse-p regexp path-p) "\303\203 \304\202\n\305 \n#\207" [path-p reverse-p regexp howm-view-sort-by-general-match howm-item-name howm-view-item-basename] 4 nil "P"]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list howm-view-sort-by-date-ignore-regexp boundp "^[a-zA-Z]"] 2) (defalias 'howm-view-sort-by-date #[(&optional reverse-p) "\302\303\304#\210\305\303\306 #\207" [reverse-p howm-view-sort-by-date-ignore-regexp howm-view-sort-general howm-view-item-basename string< howm-view-sort-by-general-match t] 4 nil "P"]) (defalias 'howm-view-sort-by-reverse-date #[(&optional reverse-p) "\301?!\207" [reverse-p howm-view-sort-by-date] 2 nil "P"]) (defalias 'howm-view-sort-by-summary #[(&optional reverse-p) "\301\302\303#\207" [reverse-p howm-view-sort-general howm-view-item-summary string<] 4 nil "P"]) (defalias 'howm-view-sort-by-summary-match #[(&optional reverse-p regexp) "\302\303 #\207" [reverse-p regexp howm-view-sort-by-general-match howm-view-item-summary] 4 nil "P"]) (defalias 'howm-view-sort-by-general-match #[(picker &optional reverse-p regexp) "\206\304\305!\306\307\310\311 #\210 *\207" [regexp howm-view-s-b-g-m-matched r reverse-p read-from-minibuffer "Regexp: " nil howm-view-sort-general #[(item) "\304 \n!\"\203 \305\306\207\307\207" [r picker item howm-view-s-b-g-m-matched string-match t 1 0] 4] >] 4]) (defalias 'howm-view-sort-by-reminder #[(&optional reverse-p) "\301\302\303#\207" [reverse-p howm-view-sort-general #[(item) "\306!\307 !\310\n\311\312\211\313\314\315 &\"\316 \"\203&\317\320\"\202'\f+\207" [item howm-reminder-types howm-reminder-today-format howm-view-max-year max-str r howm-view-item-summary howm-reminder-regexp format-time-string encode-time 59 23 31 12 string-match match-string-no-properties 0 s] 11] string<] 4 nil "P"]) (defalias 'howm-view-sort-by-mtime #[(&optional reverse-p) "\301\302\"\207" [reverse-p howm-view-sort-by-xtime m] 3 nil "P"]) (defalias 'howm-view-sort-by-xtime #[(x reverse-p) "\301\302\303#\207" [reverse-p howm-view-sort-general #[(item) "\302\303! \"\207" [item x howm-view-xtime howm-view-item-filename] 3] howm-view-string>] 4]) (defalias 'howm-view-sort-general #[(evaluator comparer &optional reverse-p) "\n\203\n\306\202 \307\f \310 #\311\312 \"+\207" [comparer howm-view-s-g-comparer reverse-p cmp evaluator sorted #[(a b) " \n\"\207" [howm-view-s-g-comparer b a] 3] howm-sort howm-view-item-list howm-view-summary howm-view-name] 4]) (defalias 'howm-view-sort-reverse #[nil "\300\301 \302\303 !\"\207" [howm-view-summary howm-view-name reverse howm-view-item-list] 4 nil nil]) (byte-code "\301B\304\301!\204\f\305\302B\304\302!\204\306\303B\304\303!\204$\307\301\207" [current-load-list howm-view-dired-buffer-name howm-view-dired-ls-command howm-view-dired-ls-options boundp "*howm-dired*" "ls" ("-l")] 2) (defalias 'dired-virtual #[(dir) "\300 \207" [howm-inhibit-warning-in-compilation] 1]) (defalias 'howm-view-dired #[nil "\306\307 \203\n\310\202 \311!\210\312\235\204\313\314!\210\315\315\316 !\317\320 \321 \"\322\323#\324\f \"\325#B\326$BD%\327\330%\"A!\211&\203L\331 \210\202O\332 \210\333\334'!!\210\335(\336 \210\337) \"\210\340\335!\210\341*!\210+\205s\342\n!.\207" [major-mode i2f current-file files howm-view-dired-ls-options args require howm-xemacsp dired-vir dired-x (howm-view-summary-mode howm-view-contents-mode) error "Invalid mode for this command." #[(item) "\301\302!!\207" [item file-relative-name howm-view-item-filename] 3] riffle-summary-current-item howm-cl-remove-duplicates mapcar howm-view-item-list :test equal append howm-view-summary-mode howm-view-contents-mode howm-view-persistent-p assoc howm-view-restore-window-configuration howm-view-kill-buffer switch-to-buffer get-buffer-create nil erase-buffer howm-call-process-here set-buffer-modified-p dired-virtual howm-view-dired-goto howm-view-summary-persistent howm-view-contents-persistent a p howm-view-dired-buffer-name buffer-read-only howm-view-dired-ls-command default-directory howm-view-dired-keep-cursor] 5 nil nil]) #@109 In dired buffer, search file name RNAME and move cursor to corresponding line. RNAME must be relative name. (defalias 'howm-view-dired-goto #[(rname) "eb\210\303\304!\205\304\304\305\306\")\211\205\307 !\n\232)?\205/\303\310!\203\310\310\311!\210)\202\207" [howm-funcall-if-defined-f c rname fboundp dired-get-filename no-dir t file-relative-name dired-next-line 1] 4 (#$ . 41522)]) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\305\301\207" [current-load-list howm-view-summary-shell-hist howm-view-summary-shell-last-file boundp ("ls -l FILE" "FILE") "FILE"] 2) (defalias 'howm-view-summary-shell-command #[nil "\306\235\204\n\307\310!\210\311 \211S\312 8\313\314\n!!\315\f!\316\317$\"$ $@%\320\321%\322B\323#&\324&!\210*\325\326\312 \"'\327(\330\331 '\"\210\332 !\210\333 )\334\216\335\336!*\337*!\204i\340*!\202z\n\341 =\203t\327\202z\342(\343\342!.\207" [major-mode n item file howm-view-summary-shell-last-file last-reg (howm-view-summary-mode) error "Invalid mode for this command." howm-view-line-number howm-view-item-list howm-page-abbreviate-name howm-view-item-filename regexp-quote mapcar #[(h) "\303 \n\304$\207" [last-reg file h replace-regexp-in-string t] 5] read-string "command: " 0 (howm-view-summary-shell-hist . 1) shell-command howm-cl-remove-if #[(item) "\301\302!!?\207" [item file-exists-p howm-view-item-filename] 3] nil howm-view-summary howm-view-name goto-line selected-window ((byte-code "\301!\203\n\302!\210\301\207" [save-selected-window-window window-live-p select-window] 2)) get-buffer "*Shell Command Output*" howm-buffer-empty-p switch-to-buffer-other-window riffle-summary-current-item t howm-view-summary-check howm-view-summary-shell-hist default c item-list *riffle-summary-check* save-selected-window-window b] 5 nil nil]) (provide 'howm-view)