From e47650852b8aa4da6d0b0cea3b5421955795cc64 Mon Sep 17 00:00:00 2001 From: Blendoit Date: Sat, 1 Aug 2020 15:24:03 -0700 Subject: Definitely /not/ including elpa/, that would be chaos. --- elpa/mixed-pitch-20200511.2052/mixed-pitch.el | 182 -------------------------- 1 file changed, 182 deletions(-) delete mode 100644 elpa/mixed-pitch-20200511.2052/mixed-pitch.el (limited to 'elpa/mixed-pitch-20200511.2052/mixed-pitch.el') diff --git a/elpa/mixed-pitch-20200511.2052/mixed-pitch.el b/elpa/mixed-pitch-20200511.2052/mixed-pitch.el deleted file mode 100644 index c0dbf6f..0000000 --- a/elpa/mixed-pitch-20200511.2052/mixed-pitch.el +++ /dev/null @@ -1,182 +0,0 @@ -;;; mixed-pitch.el --- Use a variable pitch, keeping fixed pitch where it's sensible -*- lexical-binding: t; -*- - -;;; Copyright (C) 2017, 2018 by J. Alexander Branham - -;; Author: J. Alexander Branham -;; Maintainer: J. Alexander Branham -;; URL: https://gitlab.com/jabranham/mixed-pitch -;; Package-Version: 20200511.2052 -;; Package-Commit: 1cad46fddf741ed7ec5fc477d70e079e908e9ce6 -;; Version: 1.1.0 -;; Package-Requires: ((emacs "24.3")) - -;; This file is not part of GNU Emacs. - -;;; License: -;; -;; 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 of the License, 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. If not, see -;; - - -;;; Commentary: - -;; `mixed-pitch-mode' is a minor mode that enables mixing variable-pitch and -;; fixed-pitch fonts in the same buffer. The list -;; `mixed-pitch-fixed-pitch-faces' defines the faces that are kept fixed-pitch, -;; everything else becomes variable-pitch. - -;; Original idea came from https://ogbe.net/blog/toggle-serif.html -;; Shared with permission. - -;; Usage: -;; (require 'mixed-pitch) -;; (mixed-pitch-mode) -;; Or, to apply mixed-pitch-mode in all text modes: -;; (add-hook 'text-mode-hook #'mixed-pitch-mode) - -;;; Code: - -(require 'face-remap) - -(defgroup mixed-pitch nil - "Mix variable and fixed pitch in a single buffer." - :tag "Mixed pitch" - :prefix "mixed-pitch" - :group 'mixed-pitch) - -(defcustom mixed-pitch-fixed-pitch-faces - '(diff-added - diff-context - diff-file-header - diff-function - diff-header - diff-hunk-header - diff-removed - font-latex-math-face - font-latex-sedate-face - font-latex-warning-face - font-latex-sectioning-5-face - font-lock-builtin-face - font-lock-comment-delimiter-face - font-lock-constant-face - font-lock-doc-face - font-lock-function-name-face - font-lock-keyword-face - font-lock-negation-char-face - font-lock-preprocessor-face - font-lock-regexp-grouping-backslash - font-lock-regexp-grouping-construct - font-lock-string-face - font-lock-type-face - font-lock-variable-name-face - markdown-code-face - markdown-gfm-checkbox-face - markdown-inline-code-face - markdown-language-info-face - markdown-language-keyword-face - markdown-math-face - message-header-name - message-header-to - message-header-cc - message-header-newsgroups - message-header-xheader - message-header-subject - message-header-other - mu4e-header-key-face - mu4e-header-value-face - mu4e-link-face - mu4e-contact-face - mu4e-compose-separator-face - mu4e-compose-header-face - org-block - org-block-begin-line - org-block-end-line - org-document-info-keyword - org-code - org-indent - org-latex-and-related - org-checkbox - org-formula - org-meta-line - org-table - org-verbatim) - "This is a list holding names of faces that will not be variable pitch when function `mixed-pitch-mode' is enabled." - :type '(repeat face) - :package-version '(mixed-pitch . "1.1.1") - :group 'mixed-pitch) - -(defcustom mixed-pitch-variable-pitch-cursor 'bar - "If non-nil, function `mixed-pitch-mode' changes the cursor. -When disabled, switch back to what it was before. - -See `cursor-type' for a list of acceptable types." - :type 'symbol - :group 'mixed-pitch) - -(defcustom mixed-pitch-set-height nil - "If non-nil, set the height of the face. - -When nil, only set the family." - :type 'boolean - :package-version '(mixed-pitch . "1.1.0") - :group 'mixed-pitch) - -(defvar-local mixed-pitch-fixed-cookie nil) -(defvar-local mixed-pitch-variable-cookie nil) -(defvar-local mixed-pitch-cursor-type nil) - -;;;###autoload -(define-minor-mode mixed-pitch-mode - "Change the default face of the current buffer to a variable pitch, while keeping some faces fixed pitch. - -See the variable `mixed-pitch-fixed-pitch-faces' for a list of -which faces remain fixed pitch. The height and pitch of faces is -inherited from `variable-pitch' and `default'." - :lighter " MPM" - (let ((var-pitch (face-attribute 'variable-pitch :family)) - (var-height (face-attribute 'variable-pitch :height)) - (fix-pitch (face-attribute 'default :family)) - (fix-height (face-attribute 'default :height))) - ;; Turn mixed-pitch-mode on: - (if mixed-pitch-mode - (progn - ;; remember cursor type - (when mixed-pitch-variable-pitch-cursor - (setq mixed-pitch-cursor-type cursor-type)) - ;; remap default face to variable pitch - (setq mixed-pitch-variable-cookie - (if mixed-pitch-set-height - (face-remap-add-relative - 'default :family var-pitch :height var-height) - (face-remap-add-relative 'default :family var-pitch))) - (setq mixed-pitch-fixed-cookie nil) - ;; keep fonts in `mixed-pitch-fixed-pitch-faces' as fixed-pitch. - (dolist (face mixed-pitch-fixed-pitch-faces) - (add-to-list 'mixed-pitch-fixed-cookie - (if mixed-pitch-set-height - (face-remap-add-relative - face :family fix-pitch :height fix-height) - (face-remap-add-relative face :family fix-pitch)))) - ;; Change the cursor if the user requested: - (when mixed-pitch-variable-pitch-cursor (setq cursor-type mixed-pitch-variable-pitch-cursor))) - ;; Turn mixed-pitch-mode off: - (progn (face-remap-remove-relative mixed-pitch-variable-cookie) - (dolist (cookie mixed-pitch-fixed-cookie) - (face-remap-remove-relative cookie)) - ;; Restore the cursor if we changed it: - (when mixed-pitch-variable-pitch-cursor - (setq cursor-type mixed-pitch-cursor-type)))))) - -(provide 'mixed-pitch) -;;; mixed-pitch.el ends here -- cgit v1.2.3