;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file contains utf-8 non-ASCII characters,
|
;;; and so cannot be loaded into Emacs 22 or earlier.
|
(and (boundp 'emacs-version)
|
(< (aref emacs-version (1- (length emacs-version))) ?A)
|
(string-lessp emacs-version "23")
|
(error "`%s' was compiled for Emacs 23 or later" #$))
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\304\301\312\313&\210\306\314\302\315\304\301\312\316&\207" [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))
|
(defalias 'org-bullets-level-char #[(level) "\302\303S G\" 8!\207" [level org-bullets-bullet-list string-to-char mod] 4])
|
(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 (list :foreground (face-attribute 'default :background))) (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 (#$ . 1965))
|
(make-variable-buffer-local 'org-bullets-mode)
|
#@40 Use UTF8 bullets in Org mode headings.
|
(defalias 'org-bullets-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\203# \311\312 \"\210\313 \210\202B \212eb\210\314\312 \"\210\315\316\312\317#\203> \320\310\224\310\225\"\210\202, \313 \210)\321\322\n\203L \323\202M \324\"\210\325\326!\203r \305 \203a \305 \232\203r \327 \330\331\n\203m \332\202n \333\f#\210))\334 \210\n\207" [#1=#:last-message arg org-bullets-mode org-bullets--keywords local current-message toggle prefix-numeric-value 0 font-lock-add-keywords nil org-bullets--fontify-buffer font-lock-remove-keywords re-search-forward "^\\*+ " t decompose-region run-hooks org-bullets-mode-hook org-bullets-mode-on-hook org-bullets-mode-off-hook called-interactively-p any " in current buffer" message "Org-Bullets mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 2160) (list (or current-prefix-arg 'toggle))])
|
(defvar org-bullets-mode-hook nil)
|
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode org-bullets-mode nil boundp] 6)
|
(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])
|
(provide 'org-bullets)
|
