;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@54 Format for time view. Same as `format-time-string'. (custom-declare-variable 'epoch-view-time-format "%F %T" '(#$ . 408) :type '(choice :tag "Time format" (string :tag "Choose your own `format-time-string' format") (const :tag "YYYY-MM-DD HH:MM:SS" "%F %T")) :group 'epoch-view) #@41 Font-lock keywords of epoch timestamps. (defvar epoch-view-font-lock-keywords '(("\\<[0-9]\\{8,11\\}\\>" (0 (epoch-view-render)))) (#$ . 694)) #@23 Render a epoch match. (defalias 'epoch-view-render #[nil "\301\302!\303\304\305\306!F)\207" [text match-string-no-properties 0 face font-lock-warning-face display epoch-view--render] 5 (#$ . 843)]) #@54 Render the time portion of an epoch match from TEXT. (defalias 'epoch-view--render-time #[(text) "\302\303\304 \305P!@!\"\207" [epoch-view-time-format text format-time-string seconds-to-time read-from-string ".0"] 6 (#$ . 1049)]) #@63 Render a epoch match from a number in TEXT, ending with TEXT. (defalias 'epoch-view--render #[(text) "\301\302\303!#\207" [text format "[%s] %s" epoch-view--render-time] 4 (#$ . 1286)]) #@26 Turn on epoch-view-mode. (defalias 'epoch-view-turn-on #[nil "\302\303!\304\305\"\210)\306\307 \"\207" [props epoch-view-font-lock-keywords make-local-variable font-lock-extra-managed-props add-to-list display font-lock-add-keywords nil] 3 (#$ . 1480)]) #@27 Turn off epoch-view-mode. (defalias 'epoch-view-turn-off #[nil "\301\302\"\207" [epoch-view-font-lock-keywords font-lock-remove-keywords nil] 3 (#$ . 1742)]) #@99 Non-nil if Epoch-View mode is enabled. Use the command `epoch-view-mode' to change this variable. (defvar epoch-view-mode nil (#$ . 1907)) (make-variable-buffer-local 'epoch-view-mode) #@36 Visualize epoch (Unix) timestamps. (defalias 'epoch-view-mode #[(&optional arg) "\304  \305=\203\n?\202\306 !\307V\211\203\310 \210\202!\311 \210\312\313!\210\314\315\n\203/\316\2020\317\"\210\320\321!\203U\304 \203D\304 \232\203U\322\323\324\n\203P\325\202Q\326 #\210))\327 \210\n\207" [#1=#:last-message arg epoch-view-mode local current-message toggle prefix-numeric-value 0 epoch-view-turn-on epoch-view-turn-off font-lock-mode 1 run-hooks epoch-view-mode-hook epoch-view-mode-on-hook epoch-view-mode-off-hook called-interactively-p any " in current buffer" message "Epoch-View mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 2098) (list (or current-prefix-arg 'toggle))]) (defvar epoch-view-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\210\312\313!\210\314\315!\207" [epoch-view-mode-map epoch-view-mode-hook variable-documentation put "Hook run after entering or leaving `epoch-view-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode epoch-view-mode " EpochVw" boundp nil provide epoch-view run-hooks epoch-view-load-hook] 6)