;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\306\303\314\315&\210\310\316\304\317\306\303\314\320&\207" [require org custom-declare-group org-bullets nil "Display bullets as UTF-8 characters." :group org-appearance custom-declare-variable org-bullets-bullet-list '("◉" "○" "✸" "✿") "List of bullets used in Org headings.\nIt can contain any number of symbols, which will be repeated." :type (repeat (string :tag "Bullet character")) org-bullets-face-name "Face used for bullets in Org mode headings.\nIf set to the name of a face, that face is used.\nOtherwise the face of the heading level is used." symbol] 8) (defvar org-bullets-bullet-map (make-sparse-keymap))#@56 Return the desired bullet for the given heading LEVEL. (defalias 'org-bullets-level-char #[(level) "\303\304S \203\f\305\202 \306\245\nG\"\n8!\207" [level org-odd-levels-only org-bullets-bullet-list string-to-char mod 2 1] 4 (#$ . 784)]) (defvar org-bullets--keywords '(("^\\*+ " (0 (let* ((level (- (match-end 0) (match-beginning 0) 1)) (is-inline-task (and (boundp 'org-inlinetask-min-level) (>= level org-inlinetask-min-level)))) (compose-region (- (match-end 0) 2) (- (match-end 0) 1) (org-bullets-level-char level)) (when is-inline-task (compose-region (- (match-end 0) 3) (- (match-end 0) 2) (org-bullets-level-char level))) (when (facep org-bullets-face-name) (put-text-property (- (match-end 0) (if is-inline-task 3 2)) (- (match-end 0) 1) 'face org-bullets-face-name)) (put-text-property (match-beginning 0) (- (match-end 0) 2) 'face 'org-hide) (put-text-property (match-beginning 0) (match-end 0) 'keymap org-bullets-bullet-map) nil)))))#@101 Non-nil if Org-Bullets mode is enabled. Use the command `org-bullets-mode' to change this variable. (defvar org-bullets-mode nil (#$ . 1741)) (make-variable-buffer-local 'org-bullets-mode)#@576 Use UTF8 bullets in Org mode headings. This is a minor mode. If called interactively, toggle the `Org-Bullets 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 `org-bullets-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'org-bullets-mode #[(&optional arg) "\306  \307=\203\n?\202 \247\203 \310W\203\311\202\312\313\303!\2032\314\302 \"\n\2032\302 B\n\203A\315\311\f\"\210\316 \210\202`\212eb\210\317\311\f\"\210\320\321\311\312#\203\\\322\323\224\323\225\"\210\202J\316 )\210\324\325\n\203j\326\202k\327\"\210\330\331!\203\221\306 \203\306 \232\203\221\332\333\334\335\n\203\214\336\202\215\337 $)\210)\340 \210\n\207" [#1=#:last-message arg org-bullets-mode local-minor-modes org-bullets--keywords local current-message toggle 1 nil t boundp delq font-lock-add-keywords org-bullets--fontify-buffer font-lock-remove-keywords re-search-forward "^\\*+ " decompose-region 0 run-hooks org-bullets-mode-hook org-bullets-mode-on-hook org-bullets-mode-off-hook called-interactively-p any " in current buffer" message "%s %sabled%s" "Org-Bullets mode" "en" "dis" force-mode-line-update] 5 (#$ . 1936) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar org-bullets-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" [org-bullets-mode-map org-bullets-mode-hook variable-documentation put "Hook run after entering or leaving `org-bullets-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-bullets-mode boundp] 6)#@29 Fontify the current buffer. (defalias 'org-bullets--fontify-buffer #[nil "\205\301\302!\203\301\303!\203\214~\210\302 \210\303 )\207\304 \207" [font-lock-mode fboundp font-lock-flush font-lock-ensure font-lock-fontify-buffer] 2 (#$ . 4016)]) (provide 'org-bullets)