daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

clean up

Browse Source
This commit is contained in:
Daniel Weschke
2025-07-03 17:03:03 +02:00
parent 904dd985ea
commit 35dfd6ecde
2 changed files with 38 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
settings/gui-settings.el
View File

@@ -16,32 +16,41 @@
;;; 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
(visual-line-mode "Vl") ;; " Wrap" "\u21A9"
(whitespace-mode "Ws") ;; "\u2423 \u005F ws"
(auto-fill-function "Fa") ;; "\u21B5"
(compilation-shell-minor-mode "Csh") ;; "\u24B8\uFF53"
(eldoc-mode "Ed") ;; "\u24BA" e
(visual-line-mode "Vl") ;; " Wrap" "\u21A9"
(whitespace-mode "Ws") ;; "\u2423 \u005F ws"
;; major modes
(calendar-mode "Ca") ;; "Calendar" "\u01F4C6" "\u01F152\uFF41\uFF4C"
(css-mode "Css") ;; "CSS"" "\u01F152ss
(emacs-lisp-mode "El") ;; "EL" "\u01F15B\uFF45"
(eshell-mode "Esh") ;; "Esh" "\u01F162\uFF45
(fundamental-mode "Fu") ;; "F " "\u01F155" ;; not working
(help-mode "H") ;; "H " "\u01F157"
(Info-mode "I") ;; "I " "\u01F158" ;; not working
(latex-mode "La") ;; "LaTeX " "\u01F15B\uFF41"
(lisp-interaction-mode "Lii") ;; "LI \u01F15B\u24A4" "\u01F15B\uFF49
(messages-mode "M") ;; "M " "\u01F15C" ;; not working
(messages-buffer-mode "M") ;; "M " "\u01F15C" ;; not working
(inferior-python-mode "Pyi") ;; "IPy \u01F15F\u24A4" "\u01F15F\uFF49"
(calendar-mode "Ca") ;; "Calendar" "\u01F4C6" "\u01F152\uFF41\uFF4C"
(css-mode "Css") ;; "CSS"" "\u01F152ss
(emacs-lisp-mode "El") ;; "EL" "\u01F15B\uFF45"
(eshell-mode "Esh") ;; "Esh" "\u01F162\uFF45
(fundamental-mode "Fu") ;; "F " "\u01F155" ;; not working
(help-mode "H") ;; "H " "\u01F157"
(Info-mode "I") ;; "I " "\u01F158" ;; not working
(latex-mode "La") ;; "LaTeX " "\u01F15B\uFF41"
(lisp-interaction-mode "Lii") ;; "LI \u01F15B\u24A4" "\u01F15B\uFF49
(messages-mode "M") ;; "M " "\u01F15C" ;; not working
(messages-buffer-mode "M") ;; "M " "\u01F15C" ;; not working
(inferior-python-mode "Pyi") ;; "IPy \u01F15F\u24A4" "\u01F15F\uFF49"
:hook
(prog-mode . display-fill-column-indicator-mode)
(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

14
settings/theme-settings.el
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