diff options
author | Blendoit <blendoit@gmail.com> | 2020-08-01 15:18:40 -0700 |
---|---|---|
committer | Blendoit <blendoit@gmail.com> | 2020-08-01 15:18:40 -0700 |
commit | 374ae3de24187512adddf01a56e5eb52c79db65f (patch) | |
tree | 847adf6824b56394f5a040ba45863e2dbdceac70 /elpa/org-bullets-20200317.1740 | |
parent | 54fbf6576cf2dd94ef5af332a6075723a9dfa8b3 (diff) |
Include contents of elpa/ sources + theme update.
Diffstat (limited to 'elpa/org-bullets-20200317.1740')
-rw-r--r-- | elpa/org-bullets-20200317.1740/org-bullets-autoloads.el | 27 | ||||
-rw-r--r-- | elpa/org-bullets-20200317.1740/org-bullets-pkg.el | 2 | ||||
-rw-r--r-- | elpa/org-bullets-20200317.1740/org-bullets.el | 138 |
3 files changed, 167 insertions, 0 deletions
diff --git a/elpa/org-bullets-20200317.1740/org-bullets-autoloads.el b/elpa/org-bullets-20200317.1740/org-bullets-autoloads.el new file mode 100644 index 0000000..127cbf7 --- /dev/null +++ b/elpa/org-bullets-20200317.1740/org-bullets-autoloads.el @@ -0,0 +1,27 @@ +;;; org-bullets-autoloads.el --- automatically extracted autoloads +;; +;;; Code: + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + + +;;;### (autoloads nil "org-bullets" "org-bullets.el" (0 0 0 0)) +;;; Generated autoloads from org-bullets.el + +(autoload 'org-bullets-mode "org-bullets" "\ +Use UTF8 bullets in Org mode headings. + +\(fn &optional ARG)" t nil) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "org-bullets" '("org-bullets-"))) + +;;;*** + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; coding: utf-8 +;; End: +;;; org-bullets-autoloads.el ends here diff --git a/elpa/org-bullets-20200317.1740/org-bullets-pkg.el b/elpa/org-bullets-20200317.1740/org-bullets-pkg.el new file mode 100644 index 0000000..5e8e716 --- /dev/null +++ b/elpa/org-bullets-20200317.1740/org-bullets-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "org-bullets" "20200317.1740" "Show bullets in org-mode as UTF-8 characters" 'nil :commit "767f55feb58b840a5a04eabfc3fbbf0d257c4792" :authors '(("sabof")) :maintainer '("D. Williams" . "d.williams@posteo.net") :url "https://github.com/integral-dw/org-bullets") diff --git a/elpa/org-bullets-20200317.1740/org-bullets.el b/elpa/org-bullets-20200317.1740/org-bullets.el new file mode 100644 index 0000000..44ad4a8 --- /dev/null +++ b/elpa/org-bullets-20200317.1740/org-bullets.el @@ -0,0 +1,138 @@ +;;; org-bullets.el --- Show bullets in org-mode as UTF-8 characters + +;; Version: 0.3.0 +;; Package-Version: 20200317.1740 +;; Package-Commit: 767f55feb58b840a5a04eabfc3fbbf0d257c4792 +;; Author: sabof +;; Maintainer: D. Williams <d.williams@posteo.net> +;; Homepage: https://github.com/integral-dw/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. + +;; This is a legacy package maintained with a focus on preservation. +;; It has an unofficial successor package (org-superstar). This means +;; that new features will no longer be added, and backwards +;; compatibility will be preserved. + +;; It's unofficial successor package is available on MELPA. You can +;; also find it on GitHub: +;; https://github.com/integral-dw/org-superstar-mode + +;;; Code: + +(require 'org) + +(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) + "Return the desired bullet for the given heading LEVEL." + (string-to-char + (nth (mod (/ (1- level) (if org-odd-levels-only 2 1)) + (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 'org-hide) + (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 () + "Fontify the current 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 |