emma/Dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Configure ranger and ORG-Agenda

Browse source
This commit is contained in:
Emma Nora Theuer 2024-09-05 23:31:04 +02:00
parent 3037eac489
commit 4a63adcfd0
1 changed files with 43 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
.doom.d/config.el
View file

@ -15,14 +15,14 @@
;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable) ;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable)
;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for ;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for
;; presentations or streaming. ;; presentations or streaming.
;; - `doom-unicode-font' -- for unicode glyphs ;; - `doom-symbol-font' -- for symbols
;; - `doom-serif-font' -- for the `fixed-pitch-serif' face ;; - `doom-serif-font' -- for the `fixed-pitch-serif' face
;; ;;
;; See 'C-h v doom-font' for documentation and more examples of what they ;; See 'C-h v doom-font' for documentation and more examples of what they
;; accept. For example: ;; accept. For example:
;; ;;
;;(setq doom-font (font-spec :family "Fira Code" :size 12 :weight 'semi-light) (setq doom-font (font-spec :family "Comic Code Ligatures" :size 14)
;; doom-variable-pitch-font (font-spec :family "Fira Code" :size 13)) 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 ;; 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 ;; 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 ;; 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 ;; available. You can either set `doom-theme' or manually load a theme with the
;; `load-theme' function. This is the default: ;; `load-theme' function. This is the default:
(setq doom-theme 'doom-one (setq doom-theme 'doom-one)
doom-font (font-spec :family "Comic Code Ligatures" :size 14))
;; This determines the style of line numbers in effect. If set to `nil', line ;; 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'. ;; 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, ;; 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! ;; change `org-directory'. It must be set before org loads!
(setq org-directory "~/org/") (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 ;; 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 ;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
;; they are implemented. ;; they are implemented.
;; This defines the audio backend for eradio and the list of available channels ;; Because I'm evil
(use-package eradio (use-package! ranger
:init
(setq eradio-player '("mpv" "--no-video" "--no-terminal"))
:config :config
(setq eradio-channels '( (setq ranger-show-hidden t) ;; Show hidden files
("R/a/dio" . "https://relay0.r-a-d.io/main.mp3") (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
) )
)
)
;; 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))