diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/org-bullets-20171127.526/org-bullets.el')
| -rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/org-bullets-20171127.526/org-bullets.el | 143 |
1 files changed, 143 insertions, 0 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/org-bullets-20171127.526/org-bullets.el b/configs/shared/emacs/.emacs.d/elpa/org-bullets-20171127.526/org-bullets.el new file mode 100644 index 000000000000..7238e8160689 --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/org-bullets-20171127.526/org-bullets.el @@ -0,0 +1,143 @@ +;;; org-bullets.el --- Show bullets in org-mode as UTF-8 characters + +;; Version: 0.2.4 +;; Package-Version: 20171127.526 +;; 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 + (let ((map (make-sparse-keymap))) + (define-key map [mouse-1] 'org-cycle) + (define-key map [mouse-2] 'org-bullets-set-point-and-cycle) + map) + "Mouse events for bullets. +Should this be undesirable, one can remove them with + +\(setcdr org-bullets-bullet-map nil\)") + +(defun org-bullets-set-point-and-cycle (event) + "Set `point' and where the user clicked and call `org-cycle'." + (interactive "e") + (mouse-set-point e) + (org-cycle)) + +(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 |