colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Emacs] Small tweaks

Browse Source
This commit is contained in:
Ivan Malison 2023-08-26 12:33:44 -06:00
parent f1dab3c777
commit f449015374
1 changed files with 18 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
dotfiles/emacs.d/org-config.org
View File

@ -16,16 +16,16 @@ We're going to use this to write separate parts of our config to different secti
#+end_src #+end_src
* use-package * use-package
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defmacro imalison:org-config () (defmacro imalison:org-config ()
`(use-package org `(use-package org
:commands (org-mode org org-mobile-push org-mobile-pull org-agenda) :commands (org-mode org org-mobile-push org-mobile-pull org-agenda)
:mode ("\\.org\\'" . org-mode) :mode ("\\.org\\'" . org-mode)
:preface (progn ,@(imalison:include-file-as-forms (imalison:join-paths user-emacs-directory "org-config-preface.el"))) :preface (progn ,@(imalison:include-file-as-forms (imalison:join-paths user-emacs-directory "org-config-preface.el")))
:custom ,(imalison:include-file-as-forms (imalison:join-paths user-emacs-directory "org-config-custom.el")) :custom ,(imalison:include-file-as-forms (imalison:join-paths user-emacs-directory "org-config-custom.el"))
:config (progn ,@(imalison:include-file-as-forms (imalison:join-paths user-emacs-directory "org-config-config.el"))) :config (progn ,@(imalison:include-file-as-forms (imalison:join-paths user-emacs-directory "org-config-config.el")))
:bind ,(imalison:include-file-as-forms (imalison:join-paths user-emacs-directory "org-config-bind.el")))) :bind ,(imalison:include-file-as-forms (imalison:join-paths user-emacs-directory "org-config-bind.el"))))
(imalison:org-config) (imalison:org-config)
#+end_src #+end_src
* My Customization Variables * My Customization Variables
#+begin_src emacs-lisp :tangle org-config-preface.el #+begin_src emacs-lisp :tangle org-config-preface.el
@ -182,11 +182,10 @@ We're going to use this to write separate parts of our config to different secti
** Hooks ** Hooks
#+begin_src emacs-lisp :tangle org-config-config.el #+begin_src emacs-lisp :tangle org-config-config.el
(add-hook 'org-mode-hook 'imalison:disable-linum-mode) (add-hook 'org-mode-hook 'imalison:disable-linum-mode)
;; TODO why is this set
(add-hook 'org-mode-hook (lambda () (setq org-todo-key-trigger t))) (add-hook 'org-mode-hook (lambda () (setq org-todo-key-trigger t)))
(add-hook 'org-mode-hook 'imalison:set-display-custom-times)
(add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode) (add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode)
(add-hook 'org-agenda-mode-hook 'imalison:set-display-custom-times) (add-hook 'org-agenda-mode-hook 'imalison:set-display-custom-times)
(add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode)
#+end_src #+end_src
** Modules ** Modules
#+begin_src emacs-lisp :tangle org-config-config.el #+begin_src emacs-lisp :tangle org-config-config.el
@ -664,9 +663,9 @@ alphanumeric characters only."
:after org) :after org)
#+end_src #+end_src
* Packages * Packages
** org-present :tangle org-config-config.el ** org-present
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package org-present (use-package org-present :tangle org-config-config.el
:after org :after org
:commands org-present) :commands org-present)
#+end_src #+end_src
@ -698,6 +697,7 @@ alphanumeric characters only."
** org-project-capture ** org-project-capture
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package org-project-capture (use-package org-project-capture
:after org
:bind ("C-c o p" . org-project-capture-project-todo-completing-read) :bind ("C-c o p" . org-project-capture-project-todo-completing-read)
;; We want this to load somewhat quickly because we need to update the list of agenda files ;; We want this to load somewhat quickly because we need to update the list of agenda files
:defer 2 :defer 2
@ -734,6 +734,7 @@ alphanumeric characters only."
** org-roam ** org-roam
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package org-roam (use-package org-roam
:after org
:defer 1 :defer 1
:bind :bind
(:map org-mode-map (:map org-mode-map
@ -802,18 +803,17 @@ alphanumeric characters only."
** org-notify ** org-notify
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package org-notify (use-package org-notify
:disabled t
:after org :after org
:config :config
(progn (progn
(defun imalison:org-notify-notification-handler (plist) (defun imalison:org-notify-notification-handler (plist)
(sauron-add-event 'org-notify 4 (format "%s, %s.\n" (plist-get plist :heading) (imalison:notify-send (plist-get plist :heading) (org-notify-body-text plist)))
(org-notify-body-text plist))))
(setq org-show-notification-handler 'imalison:org-notify-notification-handler) (setq org-show-notification-handler 'imalison:org-notify-notification-handler)
(org-notify-add 'default '(:time "1h" :actions imalison:org-notify-notification-handler (org-notify-add 'default
:period "2m" :duration 60)) '(:time "1h" :actions imalison:org-notify-notification-handler
:period "2m" :duration 60))
(org-notify-add 'default '(:time "100m" :actions imalison:org-notify-notification-handler (org-notify-add 'default '(:time "100m" :actions imalison:org-notify-notification-handler
:period "2m" :duration 60)) :period "2m" :duration 60))
(org-notify-add 'urgent-second '(:time "3m" :actions (-notify/window -ding) (org-notify-add 'urgent-second '(:time "3m" :actions (-notify/window -ding)
@ -834,25 +834,6 @@ alphanumeric characters only."
:period "15m" :duration 100) :period "15m" :duration 100)
'(:time "5d" :actions -notify/window '(:time "5d" :actions -notify/window
:period "2h" :duration 200)) :period "2h" :duration 200))
(org-notify-add 'long-20days
'(:time "2d" :actions -notify/window
:period "15m" :duration 60)
'(:time "5d" :actions -notify/window
:period "2h" :duration 60)
'(:time "20d" :actions -email :period "2d" :audible nil))
(org-notify-add 'long-50days
'(:time "4d" :actions -notify/window
:period "30m" :duration 100)
'(:time "10d" :actions -notify/window
:period "4h" :duration 200)
'(:time "50d" :actions -email :period "3d" :audible nil))
(org-notify-add 'long-100days
'(:time "2d" :actions -notify/window
:period "1h" :duration 200)
'(:time "10d" :actions -notify/window
:period "10h" :duration 300)
'(:time "50d" :actions -email :period "3d" :audible nil)
'(:time "100d" :actions -email :period "5d" :audible nil))
(org-notify-start 10))) (org-notify-start 10)))
#+END_SRC #+END_SRC
** org-reveal ** org-reveal