ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

pop-os: Add org-journal package to Emacs

Browse source
This commit is contained in:
Tom Willemse 2025-01-06 11:59:56 -08:00
parent 2ece27f359
commit d921598f32
3 changed files with 44 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
oni/home/config/pop-os.scm
View file

@ -20,7 +20,8 @@
#:select (home-emacs-service-type #:select (home-emacs-service-type
home-emacs-configuration home-emacs-configuration
home-wakatime-service-type home-wakatime-service-type
home-wakatime-configuration)) home-wakatime-configuration
home-emacs-org-journal-service-type))
#:use-module ((oni home services environment) #:use-module ((oni home services environment)
#:select (home-environment-service)) #:select (home-environment-service))
#:use-module ((oni packages emacs-config) #:use-module ((oni packages emacs-config)
@ -96,6 +97,7 @@
"(require 'oni-gui)\n" "(require 'oni-gui)\n"
"(provide 'oni-gnus)\n" "(provide 'oni-gnus)\n"
"(add-to-list 'auto-mode-alist '(\"\\.vue$\" . web-mode))\n"))))) "(add-to-list 'auto-mode-alist '(\"\\.vue$\" . web-mode))\n")))))
(service home-emacs-org-journal-service-type)
(service home-wakatime-service-type (service home-wakatime-service-type
(home-wakatime-configuration (home-wakatime-configuration
(api-url "https://waka.ryuslash.org/api") (api-url "https://waka.ryuslash.org/api")

42
oni/home/services/emacs.scm
View file

@ -17,7 +17,8 @@
emacs-pinentry emacs-pinentry
emacs-vterm emacs-vterm
emacs-org-modern emacs-org-modern
emacs-org-caldav)) emacs-org-caldav
emacs-org-journal))
#:use-module ((gnu home services) #:use-module ((gnu home services)
#:select (service-type #:select (service-type
service-extension service-extension
@ -84,7 +85,10 @@
home-wakatime-configuration home-wakatime-configuration
home-emacs-org-caldav-service-type home-emacs-org-caldav-service-type
home-emacs-org-caldav-configration)) home-emacs-org-caldav-configration
home-emacs-org-journal-service-type
home-emacs-org-journal-configuration))
(define-maybe string) (define-maybe string)
@ -716,3 +720,37 @@
(compose identity) (compose identity)
(default-value (home-emacs-org-caldav-configuration)) (default-value (home-emacs-org-caldav-configuration))
(description "Install and configure emacs-org-caldav"))) (description "Install and configure emacs-org-caldav")))
;;; Org journal
(define-configuration/no-serialization home-emacs-org-journal-configuration
(package
(package emacs-org-journal)
"Package to install and configure for org-journal.")
(extra-content
(text-config '())
"Extra content for emacs-org-journal configuration."))
(define (add-emacs-org-journal-configuration config)
(home-emacs-extension
(configurations
(append
(list (local-file "emacs/org-journal.el"))
(home-emacs-org-journal-configuration-extra-content config)))))
(define (add-emacs-org-journal-packages config)
(list (home-emacs-org-journal-configuration-package config)))
(define home-emacs-org-journal-service-type
(service-type
(name 'home-emacs-org-journal)
(extensions
(list (service-extension
home-emacs-service-type
add-emacs-org-journal-configuration)
(service-extension
home-profile-service-type
add-emacs-org-journal-packages)))
(compose identity)
(default-value (home-emacs-org-journal-configuration))
(description "Install and configure emacs-org-journal")))

1
oni/home/services/emacs/org-journal.el Normal file
View file

@ -0,0 +1 @@
(setq org-journal-dir "~/documents/exocortex-novus/journal/")