Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;; org-bullets.el --- Show bullets in org-mode as UTF-8 characters
- ;;; Version: 0.2.4
- ;;; Author: sabof
- ;;; URL: https://github.com/sabof/org-bullets
- ;; This file is NOT part of GNU Emacs.
- ;;
- ;; This program 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 program 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.
- ;;
- ;; You should have received a copy of the GNU General Public License
- ;; along with this program ; see the file COPYING. If not, write to
- ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- ;; Boston, MA 02111-1307, USA.
- ;;; Commentary:
- ;; The project is hosted at https://github.com/sabof/org-bullets
- ;; The latest version, and all the relevant information can be found there.
- ;;; Code:
- (eval-when-compile (require 'cl))
- (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
- "▶" ;;
- "»" ;;
- "+"
- ;; ♥ ● ◇ ✚ ✜ ☯ ◆ ♠ ♣ ♦ ☢ ❀ ◆ ◖ ▶ ;; not in Terminus?
- ;;; Small
- ;; ► • ★ ▸
- )
- "This variable contains the list of bullets.
- It can contain any number of symbols, which will be repeated."
- :group 'org-bullets
- :type '(repeat (string :tag "Bullet character")))
- ;; ◈ ⚪⬭⧖▷⏵ ▶▷ ◾
- (defcustom org-bullets-bullet-expanded-list '("▼" ">" "-")
- ""
- :group 'org-bullets
- :type '(repeat (string :tag "Bullet character")))
- (defcustom org-bullets-face-name nil
- "This variable allows the org-mode bullets face to be
- overridden. If set to a name of a face, that face will be
- used. Otherwise the face of the heading level will be used."
- :group 'org-bullets
- :type 'symbol)
- (defcustom org-bullets-face-name-collapsed nil
- "This variable allows the org-mode bullets face to be
- overridden. If set to a name of a face, that face will be
- used. Otherwise the face of the heading level will be used."
- :group 'org-bullets
- :type 'symbol)
- (defface org-bullets-expanded-bullets-face
- ;; You MUST modify the overlay face call in fastnav.el
- '((t :foreground "#555555"))
- "face for fastnap-zap-up-to-char..."
- :group 'is-this-important)
- (defface org-bullets-collapsed-bullets-face
- ;; You MUST modify the overlay face call in fastnav.el
- '((t :foreground "#80C0F0"))
- "face for fastnap-zap-up-to-char..."
- :group 'is-this-important)
- (setq org-bullets-face-name 'org-bullets-expanded-bullets-face)
- (setq org-bullets-face-name-collapsed 'org-bullets-collapsed-bullets-face)
- (defvar org-bullets-bullet-map
- '(keymap
- (mouse-1 . org-cycle)
- (mouse-2
- . (lambda (e)
- (interactive "e")
- (mouse-set-point e)
- (org-cycle))))
- "Mouse events for bullets.
- Should this be undesirable, one can remove them with
- \(setcdr org-bullets-bullet-map nil\)")
- ;; org-cycle-hook wants functions taking one arg
- (defun org-bullets-toggle-arrows (&optional arg)
- (when org-bullets-mode
- (font-lock-flush)
- (font-lock-ensure)))
- (add-hook 'org-cycle-hook 'org-bullets-toggle-arrows)
- (defun org-bullets-level-char (level)
- (string-to-char
- (nth (mod (1- level)
- (length org-bullets-bullet-list))
- org-bullets-bullet-list)))
- (defun org-bullets-level-char (level hidden)
- (let* ((list (if hidden
- org-bullets-bullet-list
- org-bullets-bullet-expanded-list)))
- (string-to-char (nth (mod (1- level) (length list)) list))))
- ;;;###autoload
- (define-minor-mode org-bullets-mode
- "UTF8 Bullets for org-mode"
- nil nil nil
- (let* (( keyword
- `(("^\\*+ "
- (0 (let* (( level (- (match-end 0) (match-beginning 0) 1))
- ( is-inline-task
- (and (boundp 'org-inlinetask-min-level)
- (>= level org-inlinetask-min-level)))
- ( block-hidden
- (save-match-data (outline-end-of-heading)
- (outline-invisible-p))))
- (compose-region (- (match-end 0) 2)
- (- (match-end 0) 1)
- (org-bullets-level-char level block-hidden))
- (when is-inline-task
- (compose-region (- (match-end 0) 3)
- (- (match-end 0) 2)
- (org-bullets-level-char level block-hidden)))
- (when (facep org-bullets-face-name)
- (put-text-property (- (match-end 0)
- (if is-inline-task 3 2))
- (- (match-end 0) 1)
- 'face
- (if block-hidden
- org-bullets-face-name-collapsed
- 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))))))
- (if org-bullets-mode
- (progn
- (font-lock-add-keywords nil keyword)
- (font-lock-fontify-buffer))
- (save-excursion
- (goto-char (point-min))
- (font-lock-remove-keywords nil keyword)
- (while (re-search-forward "^\\*+ " nil t)
- (decompose-region (match-beginning 0) (match-end 0)))
- (font-lock-fontify-buffer))
- )))
- (provide 'org-bullets)
- ;;; org-bullets.el ends here
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement