pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Hopefully this is the proper way to setup heights

Browse source
This commit is contained in:
Benson Chu 2022-10-15 11:40:14 -05:00
parent cc011b41a0
commit d34642ed6d
2 changed files with 20 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
config-min.org
View file

@ -828,13 +828,18 @@
(height-px (fifth (assoc 'geometry attrs)))
(size 10)) ;; default for first screen at work
(when (eq height-px 2880)
(setq size 14))
(unless (and (gethash frame frame-font-size-cache)
(= size (gethash frame frame-font-size-cache)))
(puthash frame size frame-font-size-cache)
(set-frame-font (format "RobotoMono %s" size))
(exwm-randr-refresh))))
(remove-hook 'window-size-change-functions #'hoagie-adjust-font-size)
(let ((f (selected-frame)))
(set-face-attribute 'default f :height 130)
(set-face-attribute 'mode-line f :height 130)
(set-face-attribute 'mode-line-inactive f :height 130)
(setq doom-modeline-height 30))
(exwm-randr-refresh))
;; (unless (and (gethash frame frame-font-size-cache)
;; (= size (gethash frame frame-font-size-cache)))
;; (puthash frame size frame-font-size-cache))
))
;; (remove-hook 'window-size-change-functions #'hoagie-adjust-font-size)
#+end_src
* time zones
#+begin_src emacs-lisp
@ -869,11 +874,7 @@
(setq doom-modeline-project-detection 'project)
(when (not my-ec/at-ti)
(setq doom-modeline-height 30)
(let ((mode-line-size 93))
(set-face-attribute 'mode-line nil :height mode-line-size)
(set-face-attribute 'mode-line-inactive nil :height mode-line-size))))
(setq doom-modeline-height 24)))
;; Modeline display useful information
(setq global-mode-string '(" "))

12
lisp/themes/same-defaults-theme.el
View file

@ -26,17 +26,19 @@
(deftheme same-defaults)
;; (defvar my/fixed-pitch-height 100)
;; (defvar my/variable-pitch-height 130)
(defvar my/fixed-pitch-height 100)
(defvar my/variable-pitch-height 130)
(custom-theme-set-faces
'same-defaults
`(default ((t (:family "Roboto Mono" ;; :height ,my/fixed-pitch-height
`(default ((t (:family "Roboto Mono" :height ,my/fixed-pitch-height
))))
`(fixed-pitch ((t (:family "Roboto Mono" ;; :height ,my/fixed-pitch-height
`(fixed-pitch ((t (:family "Roboto Mono" :height ,my/fixed-pitch-height
))))
`(variable-pitch ((t (:family "Linux Libertine" ;; :height ,my/variable-pitch-height
`(variable-pitch ((t (:family "Linux Libertine" :height ,my/variable-pitch-height
))))
`(mode-line ((t (:family "Roboto Mono" :height ,my/fixed-pitch-height))))
`(mode-line-inactive ((t (:family "Roboto Mono" :height ,my/fixed-pitch-height))))
;; '(org-todo ((((class color) (min-colors 16) (background light)) (:foreground "Red1" :bold t :inherit fixed-pitch))
;; (((class color) (min-colors 16) (background dark)) (:foreground "Pink" :bold t :inherit fixed-pitch))
;; (((class color) (min-colors 8) (background light)) (:foreground "red" :bold t :inherit fixed-pitch))