summary refs log tree commit diff
path: root/emacs/site-lisp/fixed-pitch.el
diff options
context:
space:
mode:
authornoa@gaiwan.org2024-06-19 07:44:22 +0000
committernoa@gaiwan.org2024-06-19 07:44:22 +0000
commit3c10944651bc941149ae987ee8a4ea0c88378322 (patch)
tree3073bbe34b39ef127c29ea4ee7a9286a367e0c2b /emacs/site-lisp/fixed-pitch.el
parent2bec8ba46383685c28c55bd7969ee696aa31a528 (diff)
Initial commit
Diffstat (limited to 'emacs/site-lisp/fixed-pitch.el')
-rw-r--r--emacs/site-lisp/fixed-pitch.el53
1 files changed, 0 insertions, 53 deletions
diff --git a/emacs/site-lisp/fixed-pitch.el b/emacs/site-lisp/fixed-pitch.el
deleted file mode 100644
index 411a547..0000000
--- a/emacs/site-lisp/fixed-pitch.el
+++ /dev/null
@@ -1,53 +0,0 @@
-;;; fixed-pitch.el --- Use fixed-pitch only in sensible buffers -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2020, Carl Steib
-;; Author: Carl Steib
-;; URL: https://github.com/cstby/fixed-pitch
-;; Version: 0.0.0
-;; Package-Requires: ((emacs "27.1"))
-
-;; 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 <https://www.gnu.org/licenses/>.
-
-;; This file is not part of Emacs.
-
-;;; Commentary:
-
-;; Provides a minor mode for using the fixed-pitch face.  Allows users to use a
-;; variable-pitch font as the default while still using fixed-pitch for code.
-
-;;; Code:
-
-(defun fixed-pitch-update-hooks (list)
-  "Adds `fixed-pitch-mode' to every hook in LIST."
-  (dolist (hook list)
-    (add-hook hook 'fixed-pitch-mode)))
-
-(defcustom fixed-pitch-whitelist-hooks '()
-  "List of hooks that should activate `fixed-pitch-mode'."
-  :type '(repeat symbol)
-  :group 'fixed-pitch
-  :set (lambda (var val)
-         (set-default var val)
-         (fixed-pitch-update-hooks val)))
-
-;;;###autoload
-(define-minor-mode fixed-pitch-mode
-  "Use monospace typeface in the appropriate context."
-  :lighter " fxd"
-  (if fixed-pitch-mode
-      (progn (buffer-face-set 'fixed-pitch))
-    (buffer-face-set)))
-
-(provide 'fixed-pitch)
-;;; fixed-pitch.el ends here