From f1bd7efba96174cdaa197f3ecdccbeacf9235f88 Mon Sep 17 00:00:00 2001 From: blendoit Date: Tue, 3 Sep 2019 17:32:57 -0700 Subject: First commit --- .../org-bullets-autoloads.el | 27 +++++ elpa/org-bullets-20190802.927/org-bullets-pkg.el | 2 + elpa/org-bullets-20190802.927/org-bullets.el | 129 +++++++++++++++++++++ elpa/org-bullets-20190802.927/org-bullets.elc | Bin 0 -> 3767 bytes 4 files changed, 158 insertions(+) create mode 100644 elpa/org-bullets-20190802.927/org-bullets-autoloads.el create mode 100644 elpa/org-bullets-20190802.927/org-bullets-pkg.el create mode 100644 elpa/org-bullets-20190802.927/org-bullets.el create mode 100644 elpa/org-bullets-20190802.927/org-bullets.elc (limited to 'elpa/org-bullets-20190802.927') diff --git a/elpa/org-bullets-20190802.927/org-bullets-autoloads.el b/elpa/org-bullets-20190802.927/org-bullets-autoloads.el new file mode 100644 index 0000000..127cbf7 --- /dev/null +++ b/elpa/org-bullets-20190802.927/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-20190802.927/org-bullets-pkg.el b/elpa/org-bullets-20190802.927/org-bullets-pkg.el new file mode 100644 index 0000000..a87db7f --- /dev/null +++ b/elpa/org-bullets-20190802.927/org-bullets-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "org-bullets" "20190802.927" "Show bullets in org-mode as UTF-8 characters" 'nil :commit "c19b13be00df8d8dc596e4f1aef4a094b08ac801" :authors '(("sabof")) :maintainer '("Jonas Bernoulli" . "jonas@bernoul.li") :url "https://github.com/emacsorphanage/org-bullets") diff --git a/elpa/org-bullets-20190802.927/org-bullets.el b/elpa/org-bullets-20190802.927/org-bullets.el new file mode 100644 index 0000000..8576ace --- /dev/null +++ b/elpa/org-bullets-20190802.927/org-bullets.el @@ -0,0 +1,129 @@ +;;; org-bullets.el --- Show bullets in org-mode as UTF-8 characters + +;; Version: 0.2.4 +;; Package-Version: 20190802.927 +;; Author: sabof +;; Maintainer: Jonas Bernoulli +;; 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 . + +;;; 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) (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 (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 diff --git a/elpa/org-bullets-20190802.927/org-bullets.elc b/elpa/org-bullets-20190802.927/org-bullets.elc new file mode 100644 index 0000000..88bdc5b Binary files /dev/null and b/elpa/org-bullets-20190802.927/org-bullets.elc differ -- cgit v1.2.3