Compare commits

..

2 commits

2 changed files with 29 additions and 21 deletions

View file

@ -88,12 +88,17 @@
;; Disable startup screen ;; Disable startup screen
(setq inhibit-startup-screen t) (setq inhibit-startup-screen t)
;; Start in `fundamental-mode' instead of `lisp-interaction-mode' to avoid ;; Start in `fundamental-mode' to prevent loading of non-essential packages
;; loading unnecessary packages via hooks
(setq initial-major-mode 'fundamental-mode) (setq initial-major-mode 'fundamental-mode)
;; Visible bell only ;; Visible bell in mode-line only
(setq visible-bell t) (setq ring-bell-function
(lambda ()
(let ((orig_fg (face-foreground 'mode-line)))
(set-face-foreground 'mode-line "#F2804F")
(run-with-idle-timer 0.1 nil
(lambda (fg) (set-face-foreground 'mode-line fg))
orig_fg))))
;; Fonts ;; Fonts
{{- if eq .chezmoi.hostname "helix" }} {{- if eq .chezmoi.hostname "helix" }}
@ -102,18 +107,21 @@
(set-face-font 'fixed-pitch "Hack-24") (set-face-font 'fixed-pitch "Hack-24")
(set-face-font 'variable-pitch "DejaVu Sans-24") (set-face-font 'variable-pitch "DejaVu Sans-24")
{{- else }} {{- else }}
(push '(font . "Hack-12") default-frame-alist) (push '(font . "Hack-11") default-frame-alist)
(set-face-font 'default "Hack-12") (set-face-font 'default "Hack-11")
(set-face-font 'fixed-pitch "Hack-12") (set-face-font 'fixed-pitch "Hack-11")
(set-face-font 'variable-pitch "DejaVu Sans-12") (set-face-font 'variable-pitch "DejaVu Sans-11")
{{- end }} {{- end }}
;; Some GUI options ;; Some GUI options
(push '(menu-bar-lines . 0) default-frame-alist) (let ((options '((undecorated . t)
(push '(tool-bar-lines . 0) default-frame-alist) (menu-bar-lines . 0)
(push '(vertical-scroll-bars) default-frame-alist) (tool-bar-lines . 0)
(push '(background-color . "#282828") default-frame-alist) (vertical-scroll-bars)
(push '(foreground-color . "#c6c6c6") default-frame-alist) (background-color . "#282828")
(foreground-color . "#c6c6c6"))))
(dolist (option options)
(push option default-frame-alist)))
;; Make lsp-mode use plists ;; Make lsp-mode use plists
(setenv "LSP_USE_PLISTS" "true") (setenv "LSP_USE_PLISTS" "true")

View file

@ -91,7 +91,7 @@
("mt" "Todo" ("mt" "Todo"
entry (file+headline ,(concat org-directory "/inbox.org") "You can do it!") entry (file+headline ,(concat org-directory "/inbox.org") "You can do it!")
"** TODO [#B] %?\n:Created: %U\n " "** TODO [#B] %?\n:CREATED: %U\n "
:empty-lines 1) :empty-lines 1)
("p" "Projects") ("p" "Projects")
@ -102,7 +102,7 @@
("pt" "Todo" ("pt" "Todo"
entry (file+headline ,(concat org-directory "/inbox.org") "Project Tasks") entry (file+headline ,(concat org-directory "/inbox.org") "Project Tasks")
"** TODO [#B] %?\n:Created: %U\n%i\n%a\nNotes: " "** TODO [#B] %?\n:CREATED: %U\n%i\n%a\nNotes: "
:empty-lines 1) :empty-lines 1)
("w" "Work") ("w" "Work")
@ -113,7 +113,7 @@
("wt" "Todo" ("wt" "Todo"
entry (file+headline ,(concat org-directory "/inbox.org") "Work Tasks") entry (file+headline ,(concat org-directory "/inbox.org") "Work Tasks")
"** TODO [#B] %?\n:Created: %U\n%i\n%a\nNotes: " "** TODO [#B] %?\n:CREATED: %U\n%i\n%a\nNotes: "
:empty-lines 1))) :empty-lines 1)))
;; Headline appearance ;; Headline appearance
@ -162,7 +162,7 @@
;; (org-agenda-prefix-format " %-20:c%?-12t %s") ;; (org-agenda-prefix-format " %-20:c%?-12t %s")
(org-agenda-remove-tags t) (org-agenda-remove-tags t)
(org-agenda-skip-function '(org-agenda-skip-entry-if (org-agenda-skip-function '(org-agenda-skip-entry-if
'todo '("WONT-DO"))) 'todo '("DONE" "WONT-DO")))
(org-agenda-span 5))) (org-agenda-span 5)))
(alltodo "" ((org-agenda-overriding-header "") (alltodo "" ((org-agenda-overriding-header "")