;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require sx sx-inbox] 2) #@2  (defconst sx-notify--mode-line '((sx-inbox--unread-inbox (sx-inbox--unread-notifications " [")) (sx-inbox--unread-inbox (:propertize (:eval (format "i:%s" (length sx-inbox--unread-inbox))) face mode-line-buffer-id mouse-face mode-line-highlight)) (sx-inbox--unread-inbox (sx-inbox--unread-notifications " ")) (sx-inbox--unread-notifications (:propertize (:eval (format "n:%s" (length sx-inbox--unread-notifications))) mouse-face mode-line-highlight)) (sx-inbox--unread-inbox (sx-notify--unread-notifications "]"))) (#$ . 151)) (byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\207" [put sx-notify--mode-line risky-local-variable t custom-declare-variable sx-notify-timer-delay funcall function #[0 "\300\207" [300] 1] "Idle time, in seconds, before querying for inbox items." :type integer :group sx-notify] 8) #@40 Timer used for fetching notifications. (defvar sx-notify--timer nil (#$ . 997)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable sx-notify-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Sx-Notify mode is enabled.\nSee the `sx-notify-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `sx-notify-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10) #@626 Toggle Sx-Notify mode on or off. This is a minor mode. If called interactively, toggle the `Sx-Notify mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'sx-notify-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. \{sx-notify-mode-map} (fn &optional ARG) (defalias 'sx-notify-mode #[256 "\305 \306\301\307=\203\310\301!?\202!\247\203 \311W\203 \312\202!\313\"\210\314\300!\2038\315\301\"\310\301!\2038\301B \203K\316\304\317\320#\210\321\n\322\323#\202\\\324 !\203W\325 !\210\312\326\327\f\"\330\331\310\301!\203h\332\202i\333\"\210\334\335!\203\221\336\301!\210\305 \203\201\211\305 \232\203\221\337\340\310\301!\203\215\341\202\216\342\343#\210\210\344 \210\310\301!\207" [global-minor-modes sx-notify-mode sx-notify-timer-delay sx-notify--timer global-mode-string current-message set-default toggle default-value 1 nil t boundp delq add-to-list (t sx-notify--mode-line) append run-with-idle-timer repeat sx-notify--update-unread timerp cancel-timer delete (t sx-notify--mode-line) run-hooks sx-notify-mode-hook sx-notify-mode-on-hook sx-notify-mode-off-hook called-interactively-p any customize-mark-as-set message "Sx-Notify mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 1588) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar sx-notify-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [sx-notify-mode-map sx-notify-mode-hook variable-documentation put "Hook run after entering or leaving `sx-notify-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode sx-notify-mode boundp] 6) #@43 Update the lists of unread notifications. (defalias 'sx-notify--update-unread #[0 "\302\303\304 \"\302\305\304\306!\"\211\207" [sx-inbox--unread-inbox sx-inbox--unread-notifications cl-remove-if #[257 "\301\236A\235\207" [sx-inbox--read-inbox link] 3 "\n\n(fn X)"] sx-inbox-get #[257 "\301\236A\235\207" [sx-inbox--read-notifications link] 3 "\n\n(fn X)"] t] 4 (#$ . 3780)]) (provide 'sx-notify)