| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file contains utf-8 non-ASCII characters, | |
| 7 | ;;; and so cannot be loaded into Emacs 22 or earlier. | |
| 8 | (and (boundp 'emacs-version) | |
| 9 | (< (aref emacs-version (1- (length emacs-version))) ?A) | |
| 10 | (string-lessp emacs-version "23") | |
| 11 | (error "`%s' was compiled for Emacs 23 or later" #$)) | |
| 12 | ||
| 13 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 14 | ||
| 15 | ||
| 16 | (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) | |
| 17 | (defvar org-bullets-bullet-map (make-sparse-keymap)) | |
| 18 | (defalias 'org-bullets-level-char #[(level) "\302\303S G\" 8!\207" [level org-bullets-bullet-list string-to-char mod] 4]) | |
| 19 | (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))))) | |
| 20 | #@101 Non-nil if Org-Bullets mode is enabled. | |
| 21 | Use the command `org-bullets-mode' to change this variable. | |
| 22 | (defvar org-bullets-mode nil (#$ . 1965)) | |
| 23 | (make-variable-buffer-local 'org-bullets-mode) | |
| 24 | #@40 Use UTF8 bullets in Org mode headings. | |
| 25 | (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))]) | |
| 26 | (defvar org-bullets-mode-hook nil) | |
| 27 | (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) | |
| 28 | (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]) | |
| 29 | (provide 'org-bullets) | |
