caranmegil/whompmacs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updates

Browse Source
This commit is contained in:
William Moore 2024-12-21 22:05:52 -06:00
parent 519104a0bb
commit f2e4470aaa
2 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
init.el
View File

@ -32,13 +32,13 @@
(setq browse-url-browser-function 'browse-url)
(setq custom-init "~/.emacs.d/custom-init.el")
(setq custom-init (locate-user-emacs-file "custom-init.el"))
(unless (file-exists-p custom-init)
(whomp/ensure-file-exists custom-init))
(load-file custom-init)
(setq custom-file "~/.emacs.d/custom-config.el")
(setq custom-file (locate-user-emacs-file "custom-config.el"))
(unless (file-exists-p custom-file)
(whomp/ensure-file-exists custom-file))

26
whomp/whomp-orgmode.el
View File

@ -13,7 +13,8 @@
(const :tag "Org-Download" orgdownload)
(const :tag "Org-Transclusion" orgtransclusion)
(const :tag "Org-Roam" orgroam)
(const :tag "Org-Publish" orgpublish))
(const :tag "Org-Publish" orgpublish)
(const :tag "Org-Present" orgpresent))
:group 'whomp-config)
;; org-babel extras
@ -194,6 +195,29 @@
(add-to-list 'org-babel-load-languages '(mermaid . t))
(message "ob-mermaid loaded"))
;; org-present
(when (and (memq 'orgmode whomp-orgmode) (memq 'orgpresent whomp-orgmode))
(use-package org-present
:straight t
:defer t)
(use-package visual-fill-column
:straight t
:defer t)
(setq visual-fill-column-width 110
visual-fill-column-center-text t)
;; Center the presentation and wrap
(defun whomp/org-present-start()
(visual-fill-column-mode 1)
(visual-line-mode 1))
;; Stop centering and wrapping
(defun whomp/org-present-end()
(visual-fill-column-mode 0)
(visual-line-mode 0))
(add-hook 'org-present-mode-hook 'whomp/org-present-start)
(add-hook 'org-present-mode-quit-hook 'whomp/org-present-end))
(message "W.H.O.M.P. Org-Mode settings loaded")
(provide 'whomp-orgmode)
;; whomp-orgmode.el ends here