;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'outline) #@41 Move ARG times up by outline. (fn ARG) (defalias 'zo-up #[257 "\300\301\3021T\211\262X\205\303\304!\210\305\262\2020\210\207\210\207" [0 nil (error) outline-backward-same-level 1 t] 5 (#$ . 106) "p"]) #@106 Move ARG times down by outline. Return the amount of times moved. Return nil if moved 0 times. (fn ARG) (defalias 'zo-down #[257 "n\204\300 \210\301\211\302\211\2034T\211\262X\2034`V\2034`\262\3031-\304\305!0\210\202\n\210\306\262\202\nS\262\301U?\205@\207" [outline-back-to-heading 0 t (error) outline-forward-same-level 1 nil] 6 (#$ . 325) "p"]) (defvar zo-lvl-re [nil "\n\\* " "\n\\*\\{2\\} " "\n\\*\\{3\\} " "\n\\*\\{4\\} " "\n\\*\\{5\\} " "\n\\*\\{6\\} " "\n\\*\\{7\\} "]) #@53 Move ARG times down by outline. (fn &optional ARG) (defalias 'zo-down-visible #[256 "\211\206\302\262 \303\302U\203\304 H\303\305$\262\202?\212\304 SH\303\305#\206+d)\304 H\305$\211\262\203>\306 \210\210\211\205G\307 \210`\207" [outline-level zo-lvl-re 1 nil re-search-forward t reveal-post-command beginning-of-line] 9 (#$ . 829) "p"]) #@12 (fn ARG) (defalias 'zo-left #[257 "\300!\207" [outline-up-heading] 3 (#$ . 1194)]) (defalias 'zo-right-once #[0 "` \301\302 \203 \211\262\203\211V\203\303\207b\210\301\207" [outline-level nil outline-next-heading 1] 5]) #@110 Try to move right ARG times. Return the actual amount of times moved. Return nil if moved 0 times. (fn ARG) (defalias 'zo-right #[257 "\300\211W\203\301 \203\211T\262\202\211\300U?\205\211\207" [0 zo-right-once] 4 (#$ . 1435)]) (defalias 'zo-add-outline-title #[0 "\212\302\303!\210\304\305P!\203\306\307!\202'\310\311\"\210\306\303\"\211\312 T\313\"\314Q\262)\207" [outline-regexp outline-level outline-previous-visible-heading 1 looking-at " ?:$" match-string-no-properties 0 string-match "\\(.*\\)\\(?:[\\](\\)\\|\\([\\]\\*\\+\\)" make-string 42 " :"] 5]) (defalias 'zo-insert-outline-below #[0 "n\203l\204!\301\302!\203\303c\210\304u\210\202!db\210n\204!\305c\210`\306 \305\307x\210`|\210\303\305\261\210\310\311 )\207" [inhibit-message outline-next-visible-heading 1 "\n\n" -2 "\n" zo-add-outline-title nil t save-buffer] 5 nil nil]) #@31 Goto to the end of a subtree. (defalias 'zo-end-of-subtree #[0 "\301\302!\210\302 m\204\204 V\203\303\262\304 \210\202\266`\207" [outline-level outline-back-to-heading t nil outline-next-heading] 4 (#$ . 2310)]) #@47 Return a cons of heading end and subtree end. (defalias 'zo-bnd-subtree #[0 "\212\3001 \301 \210\212\302 \210`)\212\303 \210n\203\304u\210`)B0\202$\210edB)\207" [(error) outline-back-to-heading outline-end-of-heading zo-end-of-subtree -1] 2 (#$ . 2542)]) (provide 'zoutline)