emacs: Add org-modern configuration

1 files changed, 35 insertions, 5 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index f75bf18..5ef949f 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -773,6 +773,40 @@ you have the correctly set the OPENAI_API_KEY variable"
 		      :height 1.0
 		      :foreground "#A66CFF"))
 
+(modify-all-frames-parameters
+ '((right-divider-width . 5)
+   (internal-border-width . 5)))
+(dolist (face '(window-divider
+                window-divider-first-pixel
+                window-divider-last-pixel))
+  (face-spec-reset-face face)
+  (set-face-foreground face (face-attribute 'default :background)))
+(set-face-background 'fringe (face-attribute 'default :background))
+
+(setq
+ ;; Edit settings
+ org-auto-align-tags nil
+ org-tags-column 0
+ org-catch-invisible-edits 'show-and-error
+ org-special-ctrl-a/e t
+ org-insert-heading-respect-content t
+
+ ;; Org styling, hide markup etc.
+ org-hide-emphasis-markers t
+ org-pretty-entities t
+
+ ;; Agenda styling
+ org-agenda-tags-column 0
+ org-agenda-block-separator ?─
+ org-agenda-time-grid
+ '((daily today require-timed)
+   (800 1000 1200 1400 1600 1800 2000)
+   " ┄┄┄┄┄ " "┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄")
+ org-agenda-current-time-string
+ "⭠ now ─────────────────────────────────────────────────")
+
+(global-org-modern-mode)
+
 (require 'ox-md nil t)
 
 (setq org-directory "~/org/"
@@ -800,7 +834,6 @@ you have the correctly set the OPENAI_API_KEY variable"
 
 ;; Hooks
 (add-hook 'org-mode-hook 'apollo/org-theme-gruvbox)
-(add-hook 'org-mode-hook 'org-superstar-mode)
 (add-hook 'org-mode-hook 'flyspell-mode)
 (add-hook 'org-mode-hook 'toc-org-mode)
 
@@ -967,7 +1000,7 @@ you have the correctly set the OPENAI_API_KEY variable"
 
 (defun elfeed-v-mpv (url)
   "Watch a video from URL in MPV" 
-  (async-shell-command (format "mpv %s" url)))
+  (async-shell-command (format "mpv \"%s\"" url)))
 
 (defun elfeed-view-mpv (&optional use-generic-p)
   "Youtube-feed link"
@@ -993,9 +1026,6 @@ you have the correctly set the OPENAI_API_KEY variable"
 (add-hook 'pdf-view-mode-hook 'pdf-view-midnight-minor-mode)
 (add-to-list 'auto-mode-alist '("\\.pdf\\'" . pdf-view-mode))
 
-(use-package telega
-  :ensure nil)
-
 ;; Check if we have mu4e available
 ;; if t load mu4e settings
 (when (require 'mu4e nil 'noerror)