diff --git a/.doom.d/config.el b/.doom.d/config.el index 7d62325..beb5842 100644 --- a/.doom.d/config.el +++ b/.doom.d/config.el @@ -6,8 +6,8 @@ ;; Some functionality uses this to identify you, e.g. GPG configuration, email ;; clients, file templates and snippets. It is optional. -(setq user-full-name "Emma Nora Theuer" - user-mail-address "kontakt@entheuer.de") + (setq user-full-name "Emma Nora Theuer" + user-mail-address "kontakt@entheuer.de") ;; Doom exposes five (optional) variables for controlling fonts in Doom: ;; @@ -15,14 +15,14 @@ ;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable) ;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for ;; presentations or streaming. -;; - `doom-unicode-font' -- for unicode glyphs +;; - `doom-symbol-font' -- for symbols ;; - `doom-serif-font' -- for the `fixed-pitch-serif' face ;; ;; See 'C-h v doom-font' for documentation and more examples of what they ;; accept. For example: ;; -;;(setq doom-font (font-spec :family "Fira Code" :size 12 :weight 'semi-light) -;; doom-variable-pitch-font (font-spec :family "Fira Code" :size 13)) +(setq doom-font (font-spec :family "Comic Code Ligatures" :size 14) + doom-variable-pitch-font (font-spec :family "Comic Code Ligatures" :size 16)) ;; ;; If you or Emacs can't find your font, use 'M-x describe-font' to look them ;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to @@ -32,9 +32,7 @@ ;; There are two ways to load a theme. Both assume the theme is installed and ;; available. You can either set `doom-theme' or manually load a theme with the ;; `load-theme' function. This is the default: -(setq doom-theme 'doom-one - doom-font (font-spec :family "Comic Code Ligatures" :size 14)) - +(setq doom-theme 'doom-one) ;; This determines the style of line numbers in effect. If set to `nil', line ;; numbers are disabled. For relative line numbers, set this to `relative'. @@ -43,6 +41,35 @@ ;; If you use `org' and don't want your org files in the default location below, ;; change `org-directory'. It must be set before org loads! (setq org-directory "~/org/") +(after! org + (setq org-agenda-files '("~/org/agenda.org"))) + +(setq + ;; org-fancy-priorities-list '("[A]" "[B]" "[C]") + org-fancy-priorities-list '("❗" "❕" "🟩") + org-priority-faces + '((?A :foreground "#ff6c6b" :weight bold) + (?B :foreground "#98be65" :weight bold) + (?C :foreground "#c678dd" :weight bold)) + org-agenda-block-separator 8411) + +(setq org-agenda-custom-commands + '(("v" "A better agenda view" + ((tags "PRIORITY=\"A\"" + ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) + (org-agenda-overriding-header "High-priority unfinished tasks:"))) + (tags "PRIORITY=\"B\"" + ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) + (org-agenda-overriding-header "Medium-priority unfinished tasks:"))) + (tags "PRIORITY=\"C\"" + ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) + (org-agenda-overriding-header "Low-priority unfinished tasks:"))) + (tags "customtag" + ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) + (org-agenda-overriding-header "Tasks marked with customtag:"))) + + (agenda "") + (alltodo ""))))) ;; Whenever you reconfigure a package, make sure to wrap your config in an @@ -77,18 +104,12 @@ ;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how ;; they are implemented. -;; This defines the audio backend for eradio and the list of available channels -(use-package eradio - :init - (setq eradio-player '("mpv" "--no-video" "--no-terminal")) +;; Because I'm evil +(use-package! ranger :config - (setq eradio-channels '( - ("R/a/dio" . "https://relay0.r-a-d.io/main.mp3") - ) - ) -) - -;; This defines Keybinds for eradio -(map! :leader (:prefix ("r" . "eradio") :desc "Play a radio channel" "p" 'eradio-play)) -(map! :leader (:prefix ("r" . "eradio") :desc "Stop the radio player" "s" 'eradio-stop)) -(map! :leader (:prefix ("r" . "eradio") :desc "Toggle the radio player" "t" 'eradio-toggle)) + (setq ranger-show-hidden t) ;; Show hidden files + (setq ranger-cleanup-on-disable t) ;; Cleanup buffers when disabled + (setq ranger-modify-header t) ;; Show the header line + (setq ranger-override-dired t) ;; Use ranger instead of dired + (setq ranger-max-preview-size 10) ;; Max size for file previews in MB + )