This commit is contained in:
2025-07-03 17:03:03 +02:00
parent 904dd985ea
commit 35dfd6ecde
2 changed files with 38 additions and 22 deletions

View File

@@ -16,11 +16,18 @@
;;; Code:
;; defining characters, e.g. vertical bar │:
;; - 9474 as decimal
;; - #o22402 as octal
;; - #x2502 as unicode
;; using characters inside string:
;; - "\u2502"
(use-package emacs
:delight
(auto-fill-function "Fa") ;; "\u21B5"
(compilation-shell-minor-mode "Csh") ;; "\u24B8\uFF53"
(eldoc-mode "Ed") ;; \u24BA e
(eldoc-mode "Ed") ;; "\u24BA" e
(visual-line-mode "Vl") ;; " Wrap" "\u21A9"
(whitespace-mode "Ws") ;; "\u2423 \u005F ws"
;; major modes
@@ -41,7 +48,9 @@
(help-mode . visual-line-mode)
(messages-buffer-mode . visual-line-mode)
:config
(set-face-attribute 'fill-column-indicator nil :foreground "DarkSlateGray")) ;; inherit shadow
;; display-fill-column-indicator
;; (setq display-fill-column-indicator-character 9474) ;; 9474 is default
(set-face-attribute 'fill-column-indicator nil :foreground "DarkSlateGray"))
;; ┌────────────── Frame width ───────────────┐
@@ -80,6 +89,7 @@
(window-divider-mode 1))
(use-package scroll-bar
;; built-in
:defer t
:config
;; `scroll-bar-mode' sets for all frames and all windows

View File

@@ -36,19 +36,25 @@
;; ✈↵#↹⏎⇤⇥␣↑↓←→ ☐☑
;; :rage::hamburger:
;; see M-x describe-char
;; (set-frame-font "DejaVu Sans Mono-10")
;; (set-frame-font "DejaVu Sans Mono:pixelsize=13")
;; (set-frame-font (font-spec :name "DejaVu Sans Mono" :size 13))
(cond
((find-font (font-spec :name "DejaVu Sans Mono"))
(set-frame-font "DejaVu Sans Mono-10"))
(set-frame-font (font-spec :name "DejaVu Sans Mono" :size 13)))
((find-font (font-spec :name "Noto Sans Mono")) ;; parentheses moving
(set-frame-font (font-spec :name "Noto Sans Mono" :size 13)))
((find-font (font-spec :name "Source Han Mono"))
(set-frame-font "Source Han Mono-9"))
((find-font (font-spec :name "inconsolata"))
(set-frame-font "inconsolata-10"))
(set-frame-font (font-spec :name "inconsolata" :size 16)))
((find-font (font-spec :name "Source Code Pro"))
(set-frame-font "Source Code Pro-10"))
((find-font (font-spec :name "Lucida Console"))
(set-frame-font "Lucida Console-10"))
((find-font (font-spec :name "courier"))
(set-frame-font "courier-10")))
((find-font (font-spec :name "courier")) ;; is breathing if underline is displayed dynamically
(set-frame-font (font-spec :name "courier" :size 14))))
(use-package emojify
:if window-system