;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-date.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-date.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\301B\304\301!\204\305\305\207" [current-load-list howm-insert-date-pass-through require howm-common boundp nil] 2) (defalias 'howm-insert-date #[nil "\304!\305\n \"c\210\306 \307 #)\207" [howm-date-format date howm-insert-date-format howm-insert-date-future format-time-string format howm-action-lock-date t] 4 nil nil]) (defalias 'howm-insert-dtime #[nil "\301!c\207" [howm-dtime-format format-time-string] 2 nil nil]) (defalias 'howm-action-lock-date #[(date &optional new future-p) "\205 \306 \n#\n\203\307\202\310\311\f \312\n\211%\211\204'\313\202\235\307\230\203<\2036\314\202\235\315 !\202\235\316\317\"\203N\320\321! \"\202\235\316\322\"\203`\323  #\202\235\316\324\"\203s\325\326\327\" \"\202\235\316\330\"\203\204\323\331\332! \"\202\235\316\333\"\203\226\n\203\226c\202\235\334\335\336\"!,\207" [new howm-insert-date-pass-through pass-through date prompt immediate-chars howm-action-lock-date-prompt "" "." howm-read-string "+-~0123456789" nil t howm-action-lock-date-search string-match "^[-+][0-9]+$" howm-action-lock-date-shift string-to-number "^[0-9]+$" howm-action-lock-date-set "^~\\([0-9]+\\)$" howm-action-lock-date-repeat match-string-no-properties 1 "^[.]$" format-time-string "%Y%m%d" "^[-+~]$" error format "Can't understand %s." c future-p] 7]) (defalias 'howm-action-lock-date-prompt #[(date new pass-through) "\306!\307\310\f\203 \203\n\2021\f\203# \204#\311\n Q\2021\f\204.\312\n Q\2021\313\314!\315\316 #,\207" [date dow common-help today-help new pass-through howm-datestr-day-of-week "+num(shift), yymmdd(set), ~yymmdd(repeat)" ", .(today)" "RET(ok), " "RET(list), " error "Can't happen." format "[%s] %s: " help] 4]) (defalias 'howm-action-lock-date-search #[(date) "\301\302!\210\303\304\"\305 \210\207" [date howm-set-command howm-action-lock-date-search howm-search t howm-action-lock-forward-escape] 3]) (defalias 'howm-search-today #[nil "\300\301!\207" [howm-search-past 0] 2 nil nil]) (defalias 'howm-search-past #[(&optional days-before) "\206\305\306\n!\307 \305\211 [$\310\f!+\207" [days-before n howm-date-format today target 0 format-time-string howm-datestr-shift howm-action-lock-date-search] 5 nil "P"]) (defalias 'howm-action-lock-date-shift #[(n date) "\302\303\304\211 $!\207" [date n howm-datestr-replace howm-datestr-shift 0] 6]) (defalias 'howm-action-lock-date-set #[(val date &optional future-p) "\303\304 \n#!\207" [val date future-p howm-datestr-replace howm-datestr-expand] 5]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list howm-action-lock-date-repeat-max boundp 200] 2) (defalias 'howm-action-lock-date-repeat #[(until date) "\306\307!\310 \n\311#\312\230\203\313\202\314\315\230\203\313\202\314\316\317\"A\206,\320!\313]\n\314\311\321\322\215.\207" [every until date offset-d offset-m offset-y read-from-minibuffer "Every? [RET(all), num(days), w(week), m(month), y(year)] " howm-datestr-expand t "y" 1 0 "m" assoc (("y" . 0) ("m" . 0) ("w" . 7)) string-to-number too-many (byte-code "\306 \n $\307\f\"\205= \203.Y\203.\310\311\312\"!\203)\313\202.\314\315\313\"\210\316 \210\317!\210T\202\207" [d offset-y offset-m offset-d max-d check howm-datestr-shift howm-datestr<= y-or-n-p format "More than %d lines. Continue? " nil throw too-many howm-duplicate-line howm-datestr-replace i howm-action-lock-date-repeat-max] 5) max-d check i d] 6]) (defalias 'howm-make-datestr #[(y m d) "\305\306\211\211 \n&\307\f \")\207" [d m y ti howm-date-format encode-time 0 format-time-string] 7]) (defalias 'howm-datestr-parse #[(date) "\305 \"\210\306\307\n \fE\"\207" [howm-date-regexp date howm-date-regexp-year-pos howm-date-regexp-month-pos howm-date-regexp-day-pos string-match mapcar #[(pos) "\302\303 \"!\207" [pos date string-to-number match-string-no-properties] 4]] 5]) (defalias 'howm-datestr-to-time #[(date) "\306!\211@ \211A@) \211AA)@\307\310\211\211 \f\n&,\207" [date ymd y x m d howm-datestr-parse encode-time 0] 8]) (defalias 'howm-datestr-day-of-week #[(date) "\301\302\303!\"\207" [date format-time-string "%a" howm-datestr-to-time] 4]) (defalias 'howm-datestr-expand #[(date base &optional future-p) "\203 \303 \n\"\207\304 \n#\207" [future-p date base howm-datestr-expand-future howm-datestr-expand-general] 4]) (defalias 'howm-datestr-expand-future #[(date base) "\304 \305#\304 \306#\211\n\230\204\307\310!\210\n*\207" [date base future raw howm-datestr-expand-general nil t message "Future date"] 6]) (defalias 'howm-datestr-expand-general #[(date base &optional future-p) "\306!\307\310\n\"\311\312\313\"\211@\f\211A@)\f\211AA)@\314\315 \"\203-\316\311\317 E\"\320\321\322\323 !\323!#\211@\211A@)\211AA)@\324\325X\203o\326\\\202q#.\f\207" [base base-ymd date nval given-ymd-str ys howm-datestr-parse format "%8s" mapcar #[(r) " @ \211A@)O\207" [nval r x] 4] ((0 4) (4 6) (6 8)) string-match "^ +0+$" "2000" string-to-number nil mapcar* #[(ox nx) "\2031 \203\n\304U\203 T\n\304U\203\305\2020\n U\203% \2020\n W\203/\306\2020\305\n\304U\2039 \207\n\207" [future-p carry nx ox 0 nil t] 2] reverse howm-make-datestr 99 2000 x ms ds given-ymd carry dmy d m y] 6]) (defalias 'howm-datestr-shift #[(date y m d) "\306!\211@ \211A@) \211AA)@\307\n\\\f \\ \n\\#,\207" [date ymd oy x om od howm-datestr-parse howm-make-datestr y m d] 6]) (defalias 'howm-datestr<= #[(date1 date2) " \231\206  \230\207" [date1 date2] 2]) (defalias 'howm-datestr-replace #[(date) "`\303 !\204\304u\210\202\305\n\306\211#\210b)\207" [p howm-date-regexp date looking-at -1 replace-match t] 4]) (defalias 'howm-duplicate-line #[nil "i\302 \303 {\304\210\305\261\210\306 !*\207" [s c line-beginning-position line-end-position nil "\n" move-to-column] 3]) (byte-code "\301B\304\301!\204\f\305\306\301!\210\307\310\311\312\305$\210\313\310\305\"\210\302B\304\302!\204(\314\303B\304\303!\2044\315\305\207" [current-load-list howm-date-current howm-date-forward-ymd-msg howm-date-forward-ymd-limit boundp nil make-variable-buffer-local ad-add-advice howm-action-lock-date-search (remember-date nil t (advice lambda (date) ad-do-it (setq howm-date-current date))) around ad-activate "Searching %s..." 35] 5) (defalias 'howm-date-forward-ymd #[(y m d) "\204\306\307!\210\310 \n $p \n\\ \\\311V\203\312\202 \313\311\314\315\215\205<p =\2049r q\210\316 \210)\317\320!,\207" [howm-date-current y m d new-date b error "Not in date search." howm-datestr-shift 0 1 -1 :found (byte-code "\305!\203 \306\307\310\"\210 \nW\203'\311\312\211 $ T\f\203\313\f\"\210\202\314\315\n\"\207" [new-date c howm-date-forward-ymd-limit step howm-date-forward-ymd-msg howm-action-lock-date-search throw :found t howm-datestr-shift 0 format error "Not found within %d days."] 5) howm-view-kill-buffer riffle-summary-check t step c] 5]) (defalias 'howm-date-defun-f/b '(macro . #[(func y m d) "\304\305\306\307\310\311 \n FE\257\207" [func y m d defun (&optional k) (interactive "P") let ((n (or k 1))) howm-date-forward-ymd] 10])) (defalias 'howm-date-forward #[(&optional k) "\206\302\303\304\211 #)\207" [k n 1 howm-date-forward-ymd 0] 4 nil "P"]) (defalias 'howm-date-forward-month #[(&optional k) "\206\302\303\304 \304#)\207" [k n 1 howm-date-forward-ymd 0] 4 nil "P"]) (defalias 'howm-date-forward-year #[(&optional k) "\206\302\303 \304\211#)\207" [k n 1 howm-date-forward-ymd 0] 4 nil "P"]) (defalias 'howm-date-backward #[(&optional k) "\206\302\303\304\211 [#)\207" [k n 1 howm-date-forward-ymd 0] 4 nil "P"]) (defalias 'howm-date-backward-month #[(&optional k) "\206\302\303\304 [\304#)\207" [k n 1 howm-date-forward-ymd 0] 4 nil "P"]) (defalias 'howm-date-backward-year #[(&optional k) "\206\302\303 [\304\211#)\207" [k n 1 howm-date-forward-ymd 0] 4 nil "P"]) (byte-code "\302 \303\304#\210\302 \305\306#\210\302 \307\304#\210\302 \310\306#\210\302 \311\312#\210\302 \313\314#\210\302 \315\316#\210\302 \317\320#\210)\321\322!\207" [howm-view-summary-mode-map m define-key "+" howm-date-forward "-" howm-date-backward ")" "(" "}" howm-date-forward-month "{" howm-date-backward-month "]" howm-date-forward-year "[" howm-date-backward-year provide howm-date] 4)