52 lines
1.9 KiB
EmacsLisp
52 lines
1.9 KiB
EmacsLisp
;;; private/hlissner/init.el -*- lexical-binding: t; -*-
|
|
|
|
;; An extra measure to prevent the flash of unstyled mode-line while Emacs is
|
|
;; booting up (when Doom is byte-compiled).
|
|
(setq-default mode-line-format nil)
|
|
|
|
;; I've swapped these keys on my keyboard
|
|
(setq x-super-keysym 'alt
|
|
x-alt-keysym 'meta)
|
|
|
|
(setq user-mail-address "henrik@lissner.net"
|
|
user-full-name "Henrik Lissner")
|
|
|
|
(setq doom-big-font (font-spec :family "Fira Mono" :size 19))
|
|
|
|
(pcase (system-name)
|
|
("proteus"
|
|
;; My 13" laptop has very little screen estate, so we use a bitmap font
|
|
;; there. For Doom, that means we need to take up less space!
|
|
(setq-default line-spacing 1)
|
|
|
|
(setq doom-font (font-spec :family "kakwa kakwafont" :size 12)
|
|
doom-variable-pitch-font (font-spec :family "kakwa kakwafont")
|
|
doom-unicode-font (font-spec :family "UT Ttyp0")
|
|
;; ui/doom-modeline
|
|
+doom-modeline-height 23
|
|
;; `doom-themes'
|
|
doom-neotree-enable-variable-pitch nil
|
|
doom-neotree-project-size 1.2
|
|
doom-neotree-line-spacing 0
|
|
doom-neotree-folder-size 1.0
|
|
doom-neotree-chevron-size 0.6)
|
|
(add-hook! doom-big-font-mode
|
|
(setq +doom-modeline-height (if doom-big-font-mode 37 23)))
|
|
|
|
;; No highlighted bar in the mode-line
|
|
(setq +doom-modeline-bar-width 1)
|
|
(custom-set-faces '(doom-modeline-bar ((t (:background nil))))))
|
|
|
|
(_
|
|
;; Everywhere else, I have big displays and plenty of space, so use it!
|
|
(setq doom-font (font-spec :family "Fira Mono" :size 12)
|
|
doom-variable-pitch-font (font-spec :family "Fira Sans")
|
|
doom-unicode-font (font-spec :family "DejaVu Sans Mono")
|
|
org-ellipsis " ")
|
|
|
|
;; Fira Mono doesn't have italics, so we highlight it instead.
|
|
(add-hook! doom-post-init
|
|
(set-face-attribute 'italic nil :weight 'ultra-light :foreground "#ffffff"))
|
|
|
|
(add-hook! doom-big-font-mode
|
|
(setq +doom-modeline-height (if doom-big-font-mode 37 29)))))
|