;ELC ;;; Compiled ;;; in Emacs version 30.2 ;;; with all optimizations. #@32 Face for the Org-roam overlay. (require 'org-roam) (custom-declare-face 'org-roam-overlay '((((class color) (background light)) :background "grey90" :box (:line-width -1 :color "black")) (((class color) (background dark)) :background "grey10" :box (:line-width -1 :color "white"))) '(#$ . 83) :group 'org-roam-faces)#@63 Make an overlay from L to R with PROPS. (fn L R &rest PROPS) (defalias 'org-roam-overlay--make #[642 "\300\206\"\301\302\303#\210\203%\301\211A\262\242\211A\262\242#\210\202\207" [make-overlay overlay-put category org-roam] 9 (#$ . 405)])#@37 Create overlay for LINK. (fn LINK) (defalias 'org-roam-overlay-make-link-overlay #[257 "\212\301 \302\303\"\216\304\305\306\211$\304\307\306\211$\310!\211\311\267\202'\210\306\202A\210\306\202AA@@\312=\2039\210A@A@\202A\313A@\312\"\262\211\203U\211\314H\211\315=?\205P\211\266\202\202x\310!\211\316\267\202o\266\306\202x\317\320\321#\266\202\202x\313A@\321\"\266\202\310!\211\322\267\202\213\210\306\202\246\210\306\202\246A@@\312=\203\235\210A@A@\202\246\313A@\312\"\262\211\203\272\211\323H\211\315=?\205\265\211\266\202\202\336\310!\211\324\267\202\325\266\306\202\336\317\320\325 #\266\202\202\336\313A@\325\"\266\202\306\326\230\205\327!\211\262\205?\205\330\211\331\332\333\334\335!>\204 \336\337\340\nD\"\210\341H\342\343#\"$*\207" [cl-struct-org-roam-node-tags match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] org-element--property :type nil :path org-element-type #s(hash-table test eq purecopy t data (nil 29 plain-text 34)) :standard-properties plist-get 4 org-element-ast--nil #s(hash-table test eq purecopy t data (nil 94 plain-text 100)) get-text-property 0 :end #s(hash-table test eq purecopy t data (nil 129 plain-text 134)) 2 #s(hash-table test eq purecopy t data (nil 196 plain-text 202)) :contents-begin "id" org-roam-node-from-id org-roam-overlay--make after-string format "%s " propertize type-of signal wrong-type-argument org-roam-node 13 face org-roam-overlay] 18 (#$ . 665)])#@27 Enable Org-roam overlays. (defalias 'org-roam-overlay-enable #[0 "\300\301C!\207" [org-roam-db-map-links org-roam-overlay-make-link-overlay] 2 (#$ . 2163)])#@28 Disable Org-roam overlays. (defalias 'org-roam-overlay-disable #[0 "\300\301\211\302\303$\207" [remove-overlays nil category org-roam] 5 (#$ . 2325)])#@30 Redisplay Org-roam overlays. (defalias 'org-roam-overlay-redisplay #[0 "\300 \210\301 \207" [org-roam-overlay-disable org-roam-overlay-enable] 1 (#$ . 2481)])#@111 Non-nil if org-roam-overlay mode is enabled. Use the command `org-roam-overlay-mode' to change this variable. (defvar org-roam-overlay-mode nil (#$ . 2646))#@718 Overlays for Org-roam ID links. Org-roam overlay mode is a minor mode. When enabled, overlay displaying the node's title is displayed. This is a minor mode. If called interactively, toggle the `org-roam-overlay 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 the variable `org-roam-overlay-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (make-variable-buffer-local 'org-roam-overlay-mode) (defalias 'org-roam-overlay-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\203B\311 \210\312\313\314\305\306$\210\202K\315 \210\316\313\314\306#\210\317\320\203U\321\202V\322\"\210\323\324!\203y\302 \203j\211\302 \232\203y\325\326\327\203u\330\202v\331\332$\210\210\333 \207" [org-roam-overlay-mode local-minor-modes current-message toggle 1 nil t boundp delq org-roam-overlay-enable add-hook after-save-hook org-roam-overlay-redisplay org-roam-overlay-disable remove-hook run-hooks org-roam-overlay-mode-hook org-roam-overlay-mode-on-hook org-roam-overlay-mode-off-hook called-interactively-p any message "%s %sabled%s" "org-roam-overlay mode" "en" "dis" " in current buffer" force-mode-line-update] 8 (#$ . 2809) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar org-roam-overlay-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\313\314\300!\205#\310\211%\210\315\316!\207" [org-roam-overlay-mode-map org-roam-overlay-mode-hook variable-documentation put "Hook run after entering or leaving `org-roam-overlay-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 org-roam-overlay-mode " org-roam-overlay" boundp provide org-roam-overlay] 6)