diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/org-bullets-20180208.2343/org-bullets.el')
| -rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/org-bullets-20180208.2343/org-bullets.el | 129 |
1 files changed, 0 insertions, 129 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/org-bullets-20180208.2343/org-bullets.el b/configs/shared/emacs/.emacs.d/elpa/org-bullets-20180208.2343/org-bullets.el deleted file mode 100644 index fe7ffee970e5..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/org-bullets-20180208.2343/org-bullets.el +++ /dev/null @@ -1,129 +0,0 @@ -;;; org-bullets.el --- Show bullets in org-mode as UTF-8 characters - -;; Version: 0.2.4 -;; Package-Version: 20180208.2343 -;; Author: sabof -;; Maintainer: Jonas Bernoulli <jonas@bernoul.li> -;; Homepage: https://github.com/emacsorphanage/org-bullets - -;; This file is NOT part of GNU Emacs. - -;; This file is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 3, or (at your option) -;; any later version. - -;; This file is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; For a full copy of the GNU General Public License -;; see <http://www.gnu.org/licenses/>. - -;;; Commentary: - -;; Show org-mode bullets as UTF-8 characters. - -;; Because the author is inactive, this package is currenlty being -;; maintained at https://github.com/emacsorphanage/org-bullets. - -;;; Code: - -(defgroup org-bullets nil - "Display bullets as UTF-8 characters." - :group 'org-appearance) - -;; A nice collection of unicode bullets: -;; http://nadeausoftware.com/articles/2007/11/latency_friendly_customized_bullets_using_unicode_characters -(defcustom org-bullets-bullet-list - '(;;; Large - "◉" - "○" - "✸" - "✿" - ;; ♥ ● ◇ ✚ ✜ ☯ ◆ ♠ ♣ ♦ ☢ ❀ ◆ ◖ ▶ - ;;; Small - ;; ► • ★ ▸ - ) - "List of bullets used in Org headings. -It can contain any number of symbols, which will be repeated." - :group 'org-bullets - :type '(repeat (string :tag "Bullet character"))) - -(defcustom org-bullets-face-name nil - "Face used for bullets in Org mode headings. -If set to the name of a face, that face is used. -Otherwise the face of the heading level is used." - :group 'org-bullets - :type 'symbol) - -(defvar org-bullets-bullet-map (make-sparse-keymap)) - -(defun org-bullets-level-char (level) - (string-to-char - (nth (mod (1- level) - (length org-bullets-bullet-list)) - org-bullets-bullet-list))) - -(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))))) - -;;;###autoload -(define-minor-mode org-bullets-mode - "Use UTF8 bullets in Org mode headings." - nil nil nil - (if org-bullets-mode - (progn - (font-lock-add-keywords nil org-bullets--keywords) - (org-bullets--fontify-buffer)) - (save-excursion - (goto-char (point-min)) - (font-lock-remove-keywords nil org-bullets--keywords) - (while (re-search-forward "^\\*+ " nil t) - (decompose-region (match-beginning 0) (match-end 0))) - (org-bullets--fontify-buffer)))) - -(defun org-bullets--fontify-buffer () - (when font-lock-mode - (if (and (fboundp 'font-lock-flush) - (fboundp 'font-lock-ensure)) - (save-restriction - (widen) - (font-lock-flush) - (font-lock-ensure)) - (with-no-warnings - (font-lock-fontify-buffer))))) - -(provide 'org-bullets) -;; Local Variables: -;; indent-tabs-mode: nil -;; End: -;;; org-bullets.el ends here |