talexander/machine_setup
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Add pixel precision to plainmacs.

Browse Source
This commit is contained in:
Tom Alexander 2023-09-14 14:33:38 -04:00
parent 35709eb06a
commit 971ed7e75d
Signed by: talexander
GPG Key ID: D3A179C9A53C0EDE
2 changed files with 25 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
ansible/roles/emacs/files/plainmacs
View File

@ -3,24 +3,27 @@
INIT_SCRIPT=$(cat <<EOF INIT_SCRIPT=$(cat <<EOF
(progn (progn
(setq make-backup-files nil auto-save-default nil create-lockfiles nil) (setq make-backup-files nil auto-save-default nil create-lockfiles nil)
(load-theme 'tango-dark t) (load-theme 'tango-dark t)
(set-face-attribute 'default nil :background "black") (set-face-attribute 'default nil :background "black")
;; Bright yellow highlighting for selected region ;; Bright yellow highlighting for selected region
(set-face-attribute 'region nil :background "#ffff50" :foreground "black") (set-face-attribute 'region nil :background "#ffff50" :foreground "black")
;; Bright green cursor to distinguish from yellow region ;; Bright green cursor to distinguish from yellow region
(set-cursor-color "#ccff66") (set-cursor-color "#ccff66")
;; Hightlight the current line ;; Hightlight the current line
(set-face-attribute 'line-number-current-line nil :foreground "white") (set-face-attribute 'line-number-current-line nil :foreground "white")
;; Set default font ;; Set default font
(set-face-attribute 'default nil :height 100 :width 'regular :weight 'regular :family "Cascadia Mono") (set-face-attribute 'default nil :height 100 :width 'regular :weight 'regular :family "Cascadia Mono")
;; Set fallback font for unicode glyphs ;; Set fallback font for unicode glyphs
(set-fontset-font "fontset-default" nil (font-spec :name "Noto Color Emoji")) (set-fontset-font "fontset-default" nil (font-spec :name "Noto Color Emoji"))
(menu-bar-mode -1) (menu-bar-mode -1)
(when (fboundp 'tool-bar-mode) (when (fboundp 'tool-bar-mode)
(tool-bar-mode -1)) (tool-bar-mode -1))
(when ( fboundp 'scroll-bar-mode) (when ( fboundp 'scroll-bar-mode)
(scroll-bar-mode -1))) (scroll-bar-mode -1))
(pixel-scroll-precision-mode)
(setq frame-resize-pixelwise t)
)
EOF EOF
) )

5
ansible/roles/emacs/files/plainmacs_init.el
View File

@ -16,4 +16,7 @@
(when (fboundp 'tool-bar-mode) (when (fboundp 'tool-bar-mode)
(tool-bar-mode -1)) (tool-bar-mode -1))
(when ( fboundp 'scroll-bar-mode) (when ( fboundp 'scroll-bar-mode)
(scroll-bar-mode -1))) (scroll-bar-mode -1))
(pixel-scroll-precision-mode)
(setq frame-resize-pixelwise t)
)