acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Coupla small changes

This commit is contained in:
Case Duckworth 2022-01-12 17:40:43 -06:00
parent 2a119625e6
commit 125a82251c
3 changed files with 46 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
early-init.el
View File

@ -77,6 +77,7 @@ See `no-littering' for examples.")
;;; Fonts ;;; Fonts
(progn (progn
;; Set default faces ;; Set default faces
(+with-message "Setting default faces"
(let ((font-name system-default-font) (let ((font-name system-default-font)
(font-size system-default-height) (font-size system-default-height)
(variable-font-name system-variable-pitch-font) (variable-font-name system-variable-pitch-font)
@ -86,9 +87,10 @@ See `no-littering' for examples.")
(set-face-attribute 'italic nil :family font-name (set-face-attribute 'italic nil :family font-name
:height font-size :slant 'italic) :height font-size :slant 'italic)
(set-face-attribute 'variable-pitch nil :family variable-font-name (set-face-attribute 'variable-pitch nil :family variable-font-name
:height variable-font-size)) :height variable-font-size)))
;; Emoji fonts ;; Emoji fonts
(+with-message "Adding emoji fonts"
(let ((ffl (font-family-list))) (let ((ffl (font-family-list)))
(dolist (font '("Noto Color Emoji" (dolist (font '("Noto Color Emoji"
"Noto Emoji" "Noto Emoji"
@ -100,7 +102,8 @@ See `no-littering' for examples.")
"Unifont" "Unifont"
"Symbola")) "Symbola"))
(when (member font ffl) (when (member font ffl)
(set-fontset-font t 'symbol (font-spec :family font) nil :append))))) (message "Found font: %s" font)
(set-fontset-font t 'symbol (font-spec :family font) nil :append))))))
;;; Packages ;;; Packages
@ -118,6 +121,7 @@ See `no-littering' for examples.")
;; Bootstrap straight.el ;; Bootstrap straight.el
;; https://github.com/raxod502/straight.el ;; https://github.com/raxod502/straight.el
(+with-message "Bootstrapping straight"
(defvar bootstrap-version) (defvar bootstrap-version)
(let ((bootstrap-file (let ((bootstrap-file
(expand-file-name (expand-file-name
@ -132,7 +136,7 @@ See `no-littering' for examples.")
'silent 'inhibit-cookies) 'silent 'inhibit-cookies)
(goto-char (point-max)) (goto-char (point-max))
(eval-print-last-sexp))) (eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage)) (load bootstrap-file nil 'nomessage)))
;; Early-loaded packages -- those that, for some reason or another, ;; Early-loaded packages -- those that, for some reason or another,
;; need to be ensured to be loaded first. ;; need to be ensured to be loaded first.

4
init.el
View File

@ -1266,9 +1266,11 @@ See also `crux-reopen-as-root-mode'."
) )
(setup (:straight org-visibility) (setup (:straight org-visibility)
;; I think this is causing hangups on Windows .. ?
(:option org-visibility-state-file (.etc "org-visibility") (:option org-visibility-state-file (.etc "org-visibility")
org-visibility-include-regexps '("\\.org\\'")) org-visibility-include-regexps '("\\.org\\'"))
(org-visibility-enable-hooks)) ;; (org-visibility-enable-hooks)
)
(setup (:straight orglink) (setup (:straight orglink)
(global-orglink-mode +1)) (global-orglink-mode +1))

2
lisp/reading.el
View File

@ -58,9 +58,7 @@ FUNC should be a function with the signature (THING REMEMBERED-SETTING)."
;;;###autoload ;;;###autoload
(define-minor-mode reading-mode (define-minor-mode reading-mode
"A mode for reading." "A mode for reading."
:init-value nil
:lighter " Read" :lighter " Read"
:keymap (make-sparse-keymap)
(if reading-mode (if reading-mode
;; turn on ;; turn on
(progn (progn