refactor(wpcarro/emacs): Simplify fonts.el
- Drop `cycle` and all associated methods - Fix call-sites depedencies Change-Id: I35304424c0c3925f5bf7771dec33e75d326d0961 Reviewed-on: https://cl.tvl.fyi/c/depot/+/7315 Tested-by: BuildkiteCI Reviewed-by: wpcarro <wpcarro@gmail.com>
This commit is contained in:
parent
878dc6c227
commit
c537cc6fce
2 changed files with 13 additions and 15 deletions
|
@ -9,15 +9,10 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; TODO: `defcustom' font-size.
|
||||
;; TODO: `defcustom' fonts.
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Dependencies
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(require 'prelude)
|
||||
(require 'cycle)
|
||||
(require 'maybe)
|
||||
(require 'cl-lib)
|
||||
|
||||
|
@ -25,15 +20,16 @@
|
|||
;; Constants
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;; TODO: Troubleshoot why "8" appears so large on my desktop.
|
||||
(defgroup fonts nil
|
||||
"Customize group for fonts configuration.")
|
||||
|
||||
;; TODO: Consider having a different font size when I'm using my 4K monitor.
|
||||
(defcustom fonts-size "10"
|
||||
"My preferred default font-size."
|
||||
:group 'fonts)
|
||||
|
||||
(defconst fonts-size "10"
|
||||
"My preferred default font-size.")
|
||||
|
||||
(defconst fonts-size-step 10
|
||||
"The amount (%) by which to increase or decrease a font.")
|
||||
(defcustom fonts-size-step 10
|
||||
"The amount (%) by which to increase or decrease a font."
|
||||
:group 'fonts)
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Functions
|
||||
|
@ -45,6 +41,10 @@
|
|||
(set-frame-font (string-format "%s %s" font size) nil t)
|
||||
(set-frame-font font nil t)))
|
||||
|
||||
(defun fonts-current ()
|
||||
"Return the currently enabled font."
|
||||
(symbol-name (font-get (face-attribute 'default :font) :family)))
|
||||
|
||||
(defun fonts-increase-size ()
|
||||
"Increase font size."
|
||||
(interactive)
|
||||
|
|
|
@ -166,9 +166,7 @@
|
|||
(when window-system
|
||||
;; On OSX, JetBrainsMono is installed as "JetBrains Mono", and I'm
|
||||
;; not sure how to change that.
|
||||
(let ((font (if (memq window-system '(ns))
|
||||
"JetBrains Mono"
|
||||
"JetBrainsMono")))
|
||||
(let ((font (if (memq window-system '(ns)) "JetBrains Mono" "JetBrainsMono")))
|
||||
(fonts-set font)
|
||||
;; Some themes (e.g. doom-acario-*) change the font for comments. This
|
||||
;; should prevent that.
|
||||
|
|
Loading…
Reference in a new issue