a/dotfiles
1
0
Fork 0
mirror of https://codeberg.org/andyscott/dotfiles.git synced 2024-12-22 01:43:10 -05:00
Code Issues Projects Releases Packages Wiki Activity

Compare commits

base: a:b10d23a892641850044634ef03b3b3d32cc26c2a
Branches Tags
a:main
a:xorg-archive
...
compare: a:ff0e775e0d734d602a09e92ee8cb263e908d694d
Branches Tags
a:main
a:xorg-archive

2 commits
b10d23a892 ... ff0e775e0d

Author SHA1 Message Date
Andrew Scott
ff0e775e0d
Emacs: add DONE to org-agenda-skip-function 2024-09-05 11:41:12 -04:00
Andrew Scott
654defc583
Emacs: move bell to mode-line 2024-09-05 11:39:59 -04:00
2 changed files with 29 additions and 21 deletions
Show stats Expand all files Collapse all files

34
dot_config/emacs/early-init.el.tmpl
View file

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

8
dot_config/emacs/lisp/init-org.el
View file

@ -91,7 +91,7 @@
("mt" "Todo"
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)
("p" "Projects")
@ -102,7 +102,7 @@
("pt" "Todo"
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)
("w" "Work")
@ -113,7 +113,7 @@
("wt" "Todo"
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)))
;; Headline appearance
@ -162,7 +162,7 @@
;; (org-agenda-prefix-format " %-20:c%?-12t %s")
(org-agenda-remove-tags t)
(org-agenda-skip-function '(org-agenda-skip-entry-if
'todo '("WONT-DO")))
'todo '("DONE" "WONT-DO")))
(org-agenda-span 5)))
(alltodo "" ((org-agenda-overriding-header "")