+++ /dev/null
-;;; outline-minor-faces-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-\f
-;;;### (autoloads nil "outline-minor-faces" "outline-minor-faces.el"
-;;;;;; (0 0 0 0))
-;;; Generated autoloads from outline-minor-faces.el
-
-(autoload 'outline-minor-faces-mode "outline-minor-faces" "\
-Minor mode that adds heading faces for `outline-minor-mode'.
-
-This is a minor mode. If called interactively, toggle the
-`Outline minor-Faces mode' mode. If the prefix argument is
-positive, enable the mode, and if it is zero or negative, disable
-the mode.
-
-If called from Lisp, toggle the mode if ARG is `toggle'. Enable
-the mode if ARG is nil, omitted, or is a positive number.
-Disable the mode if ARG is a negative number.
-
-To check whether the minor mode is enabled in the current buffer,
-evaluate `outline-minor-faces-mode'.
-
-The mode's hook is called both when the mode is enabled and when
-it is disabled.
-
-\(fn &optional ARG)" t nil)
-
-(register-definition-prefixes "outline-minor-faces" '("outline-minor-faces"))
-
-;;;***
-\f
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; outline-minor-faces-autoloads.el ends here
+++ /dev/null
-;;; Generated package description from outline-minor-faces.el -*- no-byte-compile: t -*-
-(define-package "outline-minor-faces" "20230407.1051" "Headings faces for outline-minor-mode" '((emacs "25.1") (compat "29.1.3.4")) :commit "0e7cd26d4ebe9a1c842645bd3535fc835d16fdf4" :authors '(("Jonas Bernoulli" . "jonasNOSPAMbernoul.li")) :maintainers '(("Jonas Bernoulli" . "jonasNOSPAMbernoul.li")) :maintainer '("Jonas Bernoulli" . "jonasNOSPAMbernoul.li") :keywords '("faces" "outlines") :url "https://github.com/tarsius/outline-minor-faces")
+++ /dev/null
-;;; outline-minor-faces.el --- Headings faces for outline-minor-mode -*- lexical-binding:t -*-
-
-;; Copyright (C) 2018-2023 Jonas Bernoulli
-
-;; Author: Jonas Bernoulli <jonasNOSPAMbernoul.li>
-;; Homepage: https://github.com/tarsius/outline-minor-faces
-;; Keywords: faces outlines
-;; Package-Version: 20230407.1051
-;; Package-Commit: 0e7cd26d4ebe9a1c842645bd3535fc835d16fdf4
-
-;; Package-Requires: ((emacs "25.1") (compat "29.1.3.4"))
-
-;; SPDX-License-Identifier: GPL-3.0-or-later
-
-;; 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 of the License,
-;; 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.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this file. If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Unlike `outline-mode', `outline-minor-mode' does not change
-;; the appearance of headings to look different from comments.
-
-;; This package defines the faces `outline-minor-N', which inherit
-;; from the respective `outline-N' faces used in `outline-mode'
-;; and arranges for them to be used in `outline-minor-mode'.
-
-;; Usage:
-
-;; (use-package outline-minor-faces
-;; :after outline
-;; :config (add-hook 'outline-minor-mode-hook
-;; #'outline-minor-faces-mode))
-
-;; If you want to only enable these faces in certain major-modes,
-;; then add `outline-minor-faces-mode' to their hooks instead of
-;; to the above hook, but make sure `outline-minor-mode' is
-;; enabled first.
-
-;;; Code:
-
-(require 'compat)
-(require 'outline)
-
-(defface outline-minor-0
- `((((class color) (background light))
- ,@(and (>= emacs-major-version 27) '(:extend t))
- :weight bold
- :background "light grey")
- (((class color) (background dark))
- ,@(and (>= emacs-major-version 27) '(:extend t))
- :weight bold
- :background "grey20"))
- "Face that other `outline-minor-N' faces inherit from."
- :group 'outlines)
-
-(defface outline-minor-1
- '((t (:inherit (outline-minor-0 outline-1))))
- "Level 1 headings in `outline-minor-mode'."
- :group 'outlines)
-
-(defface outline-minor-2
- '((t (:inherit (outline-minor-0 outline-2))))
- "Level 2 headings in `outline-minor-mode'."
- :group 'outlines)
-
-(defface outline-minor-3
- '((t (:inherit (outline-minor-0 outline-3))))
- "Level 3 headings in `outline-minor-mode'."
- :group 'outlines)
-
-(defface outline-minor-4
- '((t (:inherit (outline-minor-0 outline-4))))
- "Level 4 headings in `outline-minor-mode'."
- :group 'outlines)
-
-(defface outline-minor-5
- '((t (:inherit (outline-minor-0 outline-5))))
- "Level 5 headings in `outline-minor-mode'."
- :group 'outlines)
-
-(defface outline-minor-6
- '((t (:inherit (outline-minor-0 outline-6))))
- "Level 6 headings in `outline-minor-mode'."
- :group 'outlines)
-
-(defface outline-minor-7
- '((t (:inherit (outline-minor-0 outline-7))))
- "Level 7 headings in `outline-minor-mode'."
- :group 'outlines)
-
-(defface outline-minor-8
- '((t (:inherit (outline-minor-0 outline-8))))
- "Level 8 headings in `outline-minor-mode'."
- :group 'outlines)
-
-(defface outline-minor-file-local-prop-line
- '((t (:inherit (font-lock-comment-face outline-minor-1) :weight normal)))
- "Face used for file-local variables settings on the -*- line."
- :group 'outlines)
-
-(defvar outline-minor-faces
- [outline-minor-1 outline-minor-2 outline-minor-3 outline-minor-4
- outline-minor-5 outline-minor-6 outline-minor-7 outline-minor-8])
-
-(defvar outline-minor-faces--lisp-modes
- '(lisp-data-mode lisp-mode emacs-lisp-mode
- clojure-mode
- scheme-mode))
-
-(defvar-local outline-minor-faces--top-level nil)
-
-(defvar-local outline-minor-faces-regexp nil
- "Regular expression to match the complete line of a heading.
-If this is nil, then a regular expression based on
-`outline-regexp' is used. The value of that variable cannot
-be used directly because it is only supposed to match the
-beginning of a heading.")
-
-(defun outline-minor-faces--syntactic-matcher (regexp)
- "Return a matcher that matches REGEXP only outside of strings.
-
-Returns REGEXP directly for modes where `font-lock-keywords-only'
-is non-nil because Font Lock does not mark strings and comments
-for those modes, and the matcher will not know what is/is not a
-string."
- (if font-lock-keywords-only
- regexp
- (lambda (limit)
- (and (re-search-forward regexp limit t)
- (not (nth 3 (syntax-ppss (match-beginning 0))))))))
-
-(defvar outline-minor-faces--font-lock-keywords
- '((eval . (list (outline-minor-faces--syntactic-matcher
- (or outline-minor-faces-regexp
- (concat
- "^\\(?:"
- (cond
- ((not (apply #'derived-mode-p
- outline-minor-faces--lisp-modes))
- outline-regexp)
- ;; `emacs-lisp-mode' Emacs >= 29
- ((string-suffix-p "\\(autoload\\)\\)" outline-regexp)
- ";;;\\(;* [^ \t\n]\\)")
- ;; `emacs-lisp-mode' Emacs <= 28
- ((string-suffix-p "\|###autoload\\)\\|(" outline-regexp)
- (concat (substring outline-regexp 0 -18) "\\)"))
- ;; `scheme-mode'
- ((string-suffix-p "\\|(...." outline-regexp)
- (substring outline-regexp 0 -7))
- ;; `lisp-data-mode', `lisp-mode' et al.
- ((string-suffix-p "\\|(" outline-regexp)
- (substring outline-regexp 0 -3))
- (t outline-regexp))
- "\\).*\n?")))
- 0 '(outline-minor-faces--get-face) t))
- ("-\\*-.*-\\*-" 0 'outline-minor-file-local-prop-line t)))
-
-;;;###autoload
-(define-minor-mode outline-minor-faces-mode
- "Minor mode that adds heading faces for `outline-minor-mode'."
- :lighter ""
- (unless arg
- ;; Toggle both modes together due to
- ;; (add-hook 'outline-minor-mode-hook 'outline-minor-faces-mode).
- (setq outline-minor-faces-mode outline-minor-mode))
- (if outline-minor-faces-mode
- (font-lock-add-keywords nil outline-minor-faces--font-lock-keywords t)
- (font-lock-remove-keywords nil outline-minor-faces--font-lock-keywords))
- (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)))))
-
-(defun outline-minor-faces--get-face ()
- (save-excursion
- (goto-char (match-beginning 0))
- (let* ((level (outline-minor-faces--level))
- (index (- level (outline-minor-faces--top-level))))
- (when (< index 0)
- (setq outline-minor-faces--top-level nil)
- (setq index (- level (outline-minor-faces--top-level))))
- (aref outline-minor-faces
- (% index (length outline-minor-faces))))))
-
-(defun outline-minor-faces--level ()
- (save-excursion
- (beginning-of-line)
- (and (looking-at outline-regexp)
- (funcall outline-level))))
-
-(defun outline-minor-faces--top-level ()
- (or outline-minor-faces--top-level
- (save-excursion
- (save-restriction
- (widen)
- (goto-char (point-min))
- (let ((min (or (outline-minor-faces--level) 1000)))
- (while (outline-next-heading)
- (setq min (min min (outline-minor-faces--level))))
- (setq outline-minor-faces--top-level min))))))
-
-;;; _
-(provide 'outline-minor-faces)
-;; Local Variables:
-;; indent-tabs-mode: nil
-;; End:
-;;; outline-minor-faces.el ends here
--- /dev/null
+;;; outline-minor-faces-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
+;;
+;;; Code:
+
+(add-to-list 'load-path (directory-file-name
+ (or (file-name-directory #$) (car load-path))))
+
+\f
+;;;### (autoloads nil "outline-minor-faces" "outline-minor-faces.el"
+;;;;;; (0 0 0 0))
+;;; Generated autoloads from outline-minor-faces.el
+
+(autoload 'outline-minor-faces-mode "outline-minor-faces" "\
+Minor mode that adds heading faces for `outline-minor-mode'.
+
+This is a minor mode. If called interactively, toggle the
+`Outline minor-Faces mode' mode. If the prefix argument is
+positive, enable the mode, and if it is zero or negative, disable
+the mode.
+
+If called from Lisp, toggle the mode if ARG is `toggle'. Enable
+the mode if ARG is nil, omitted, or is a positive number.
+Disable the mode if ARG is a negative number.
+
+To check whether the minor mode is enabled in the current buffer,
+evaluate `outline-minor-faces-mode'.
+
+The mode's hook is called both when the mode is enabled and when
+it is disabled.
+
+\(fn &optional ARG)" t nil)
+
+(register-definition-prefixes "outline-minor-faces" '("outline-minor-faces"))
+
+;;;***
+\f
+;;;### (autoloads nil nil ("outline-minor-faces-pkg.el") (0 0 0 0))
+
+;;;***
+\f
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; outline-minor-faces-autoloads.el ends here
--- /dev/null
+(define-package "outline-minor-faces" "20230514.1801" "Highlight only section headings"
+ '((emacs "25.1")
+ (compat "29.1.4.1"))
+ :commit "57c4a0fac36a26cfa8d1296e76afbcf7a5b87a57" :authors
+ '(("Jonas Bernoulli" . "jonasNOSPAMbernoul.li"))
+ :maintainers
+ '(("Jonas Bernoulli" . "jonasNOSPAMbernoul.li"))
+ :maintainer
+ '("Jonas Bernoulli" . "jonasNOSPAMbernoul.li")
+ :keywords
+ '("faces" "outlines")
+ :url "https://github.com/tarsius/outline-minor-faces")
+;; Local Variables:
+;; no-byte-compile: t
+;; End:
--- /dev/null
+;;; outline-minor-faces.el --- Highlight only section headings -*- lexical-binding:t -*-
+
+;; Copyright (C) 2018-2023 Jonas Bernoulli
+
+;; Author: Jonas Bernoulli <jonasNOSPAMbernoul.li>
+;; Homepage: https://github.com/tarsius/outline-minor-faces
+;; Keywords: faces outlines
+
+;; Package-Requires: ((emacs "25.1") (compat "29.1.4.1"))
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;; 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 of the License,
+;; 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.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this file. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This package teaches `outline-minor-mode' to highlight section
+;; headings, *without* also highlighting top-level s-expressions.
+
+;; To highlight only section headings forgo setting the built-in
+;; `outline-minor-mode-highlight' to `append', or another non-nil
+;; value. Instead enable the equivalent feature provided by this
+;; package:
+;;
+;; (use-package outline-minor-faces
+;; :after outline
+;; :config (add-hook 'outline-minor-mode-hook
+;; #'outline-minor-faces-mode))
+
+;; For non-lisp major modes the highlighting provided by this package
+;; and by the built-in support is essentiall the same, i.e., the first
+;; lines of top-level expressions *are* highlighted.
+
+;; This package also defines separate faces for use in the minor mode.
+;; These faces are what gave this package its name, but nowadays they
+;; inherit from the built-in faces by default, and are preserved mostly
+;; for historic reasons, i.e., to avoid having to rename this package.
+
+;; To further improve the appearance of collapsed sections, check out
+;; the `backline' package.
+
+;;; Code:
+
+(require 'compat)
+(require 'outline)
+
+(defface outline-minor-0
+ `((((class color) (background light))
+ ,@(and (>= emacs-major-version 27) '(:extend t))
+ :weight bold
+ :background "light grey")
+ (((class color) (background dark))
+ ,@(and (>= emacs-major-version 27) '(:extend t))
+ :weight bold
+ :background "grey20"))
+ "Face that other `outline-minor-N' faces inherit from."
+ :group 'outlines)
+
+(defface outline-minor-1
+ '((t (:inherit (outline-minor-0 outline-1))))
+ "Level 1 headings in `outline-minor-mode'."
+ :group 'outlines)
+
+(defface outline-minor-2
+ '((t (:inherit (outline-minor-0 outline-2))))
+ "Level 2 headings in `outline-minor-mode'."
+ :group 'outlines)
+
+(defface outline-minor-3
+ '((t (:inherit (outline-minor-0 outline-3))))
+ "Level 3 headings in `outline-minor-mode'."
+ :group 'outlines)
+
+(defface outline-minor-4
+ '((t (:inherit (outline-minor-0 outline-4))))
+ "Level 4 headings in `outline-minor-mode'."
+ :group 'outlines)
+
+(defface outline-minor-5
+ '((t (:inherit (outline-minor-0 outline-5))))
+ "Level 5 headings in `outline-minor-mode'."
+ :group 'outlines)
+
+(defface outline-minor-6
+ '((t (:inherit (outline-minor-0 outline-6))))
+ "Level 6 headings in `outline-minor-mode'."
+ :group 'outlines)
+
+(defface outline-minor-7
+ '((t (:inherit (outline-minor-0 outline-7))))
+ "Level 7 headings in `outline-minor-mode'."
+ :group 'outlines)
+
+(defface outline-minor-8
+ '((t (:inherit (outline-minor-0 outline-8))))
+ "Level 8 headings in `outline-minor-mode'."
+ :group 'outlines)
+
+(defface outline-minor-file-local-prop-line
+ '((t (:inherit (font-lock-comment-face outline-minor-1) :weight normal)))
+ "Face used for file-local variables settings on the -*- line."
+ :group 'outlines)
+
+(defvar outline-minor-faces
+ [outline-minor-1 outline-minor-2 outline-minor-3 outline-minor-4
+ outline-minor-5 outline-minor-6 outline-minor-7 outline-minor-8])
+
+(defvar outline-minor-faces--lisp-modes
+ '(lisp-data-mode lisp-mode emacs-lisp-mode
+ clojure-mode
+ scheme-mode))
+
+(defvar-local outline-minor-faces--top-level nil)
+
+(defvar-local outline-minor-faces-regexp nil
+ "Regular expression to match the complete line of a heading.
+If this is nil, then a regular expression based on
+`outline-regexp' is used. The value of that variable cannot
+be used directly because it is only supposed to match the
+beginning of a heading.")
+
+(defun outline-minor-faces--syntactic-matcher (regexp)
+ "Return a matcher that matches REGEXP only outside of strings.
+
+Returns REGEXP directly for modes where `font-lock-keywords-only'
+is non-nil because Font Lock does not mark strings and comments
+for those modes, and the matcher will not know what is/is not a
+string."
+ (if font-lock-keywords-only
+ regexp
+ (lambda (limit)
+ (and (re-search-forward regexp limit t)
+ (not (nth 3 (syntax-ppss (match-beginning 0))))))))
+
+(defvar outline-minor-faces--font-lock-keywords
+ '((eval . (list (outline-minor-faces--syntactic-matcher
+ (or outline-minor-faces-regexp
+ (concat
+ "^\\(?:"
+ (cond
+ ((not (apply #'derived-mode-p
+ outline-minor-faces--lisp-modes))
+ outline-regexp)
+ ;; `emacs-lisp-mode' Emacs >= 29
+ ((string-suffix-p "\\(autoload\\)\\)" outline-regexp)
+ ";;;\\(;* [^ \t\n]\\)")
+ ;; `emacs-lisp-mode' Emacs <= 28
+ ((string-suffix-p "\|###autoload\\)\\|(" outline-regexp)
+ (concat (substring outline-regexp 0 -18) "\\)"))
+ ;; `scheme-mode'
+ ((string-suffix-p "\\|(...." outline-regexp)
+ (substring outline-regexp 0 -7))
+ ;; `lisp-data-mode', `lisp-mode' et al.
+ ((string-suffix-p "\\|(" outline-regexp)
+ (substring outline-regexp 0 -3))
+ (t outline-regexp))
+ "\\).*\n?")))
+ 0 '(outline-minor-faces--get-face) t))
+ ("-\\*-.*-\\*-" 0 'outline-minor-file-local-prop-line t)))
+
+;;;###autoload
+(define-minor-mode outline-minor-faces-mode
+ "Minor mode that adds heading faces for `outline-minor-mode'."
+ :lighter ""
+ (unless arg
+ ;; Toggle both modes together due to
+ ;; (add-hook 'outline-minor-mode-hook 'outline-minor-faces-mode).
+ (setq outline-minor-faces-mode outline-minor-mode))
+ (if outline-minor-faces-mode
+ (font-lock-add-keywords nil outline-minor-faces--font-lock-keywords t)
+ (font-lock-remove-keywords nil outline-minor-faces--font-lock-keywords))
+ (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)))))
+
+(defun outline-minor-faces--get-face ()
+ (save-excursion
+ (goto-char (match-beginning 0))
+ (let* ((level (outline-minor-faces--level))
+ (index (- level (outline-minor-faces--top-level))))
+ (when (< index 0)
+ (setq outline-minor-faces--top-level nil)
+ (setq index (- level (outline-minor-faces--top-level))))
+ (aref outline-minor-faces
+ (% index (length outline-minor-faces))))))
+
+(defun outline-minor-faces--level ()
+ (save-excursion
+ (beginning-of-line)
+ (and (looking-at outline-regexp)
+ (funcall outline-level))))
+
+(defun outline-minor-faces--top-level ()
+ (or outline-minor-faces--top-level
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (let ((min (or (outline-minor-faces--level) 1000)))
+ (while (outline-next-heading)
+ (setq min (min min (outline-minor-faces--level))))
+ (setq outline-minor-faces--top-level min))))))
+
+;;; _
+(provide 'outline-minor-faces)
+;; Local Variables:
+;; indent-tabs-mode: nil
+;; End:
+;;; outline-minor-faces.el ends here
projects / emacsconfig.git / commitdiff