updates to org exprot stuff

This commit is contained in:
Chris Cochrun 2026-04-02 12:58:35 -05:00
parent d4b060503c
commit 5d4a36f520
2 changed files with 40 additions and 40 deletions

View file

@ -1015,6 +1015,7 @@ Part of this config includes some special capture templates for my work as a you
(org-export-preserve-breaks t)
(org-directory "~/docs/notes")
(org-pretty-entities t)
(org-export-exclude-tags '("noexport" "revealonly"))
(org-refile-targets
'((org-agenda-files :maxlevel . 6)
("/home/chris/docs/todo/archive.org" :maxlevel . 6)))
@ -2152,7 +2153,7 @@ Org reveal allows me to create beautiful and powerful slideshows using the incre
So, how do we use this? Well, let's try like this.
#+begin_src emacs-lisp
(use-package org-re-reveal
:after org
;; :after org
:config
(setq org-re-reveal-root "file:///home/chris/docs/presentations/reveal.js/"
;; org-re-reveal-theme "serif"
@ -2165,7 +2166,7 @@ So, how do we use this? Well, let's try like this.
"Insert a re-reveal video that uses completion for my music-videos directory"
(interactive)
(let* ((videos (remove ".." (remove "."
(directory-files "/home/chris/nc/tfc/presentations/music-videos"))))
(directory-files "/home/chris/nc/tfc/presentations/music-videos"))))
(chosen-video (completing-read "Music Video: " videos)))
(insert "**
:PROPERTIES:
@ -2183,24 +2184,23 @@ Optional ASYNC, SUBTREEP, VISIBLE-ONLY, BODY-ONLY, EXT-PLIST are passed
to `org-export-to-file'.
Optional BACKEND must be `re-reveal' or a backend derived from it."
(interactive)
(let* ((backend (or backend 're-reveal))
(extension (concat "-presentation" "." org-html-extension))
(client-ext (concat org-re-reveal-multiplex-client-ext extension))
(file (org-export-output-file-name extension subtreep))
(clientfile (org-export-output-file-name client-ext subtreep))
(org-html-container-element "div"))
(setq org-re-reveal-client-multiplex nil)
(org-export-to-file backend file
async subtreep visible-only body-only ext-plist)
;; Export the client HTML file if org-re-reveal-client-multiplex is set true
;; by previous call to org-export-to-file
(if org-re-reveal-client-multiplex
(org-export-to-file backend clientfile
async subtreep visible-only body-only ext-plist))
file))
(save-excursion
(save-restriction
(let ((org-export-exclude-tags '("noexport")))
(goto-char (point-min))
(re-search-forward "* PLAN")
(org-fold-hide-subtree)
(next-line)
(org-re-reveal-export-to-html nil t)
(goto-char (point-min))
(re-search-forward "* PLAN")
(org-fold-show-subtree)))))
:general
(chris/leader-keys
:states '(normal visual)
:keymaps 'org-mode-map
"er" 'chris/org-re-reveal-export-to-html)
('normal org-mode-map
"gm" 'chris/insert-reveal-music-video))
#+end_src
@ -2257,7 +2257,7 @@ GPTEL is a package that uses chatGPT to get some text generation in org-mode
:host "ai.tfcconnection.org"
:protocol "https"
:stream t
:models '("deepseek-r1" "qwen3.5:4b" "qwen3.5:latest" "qwen3:latest" "gemma3:latest" "granite4:latest" "functiongemma:latest" "gemma3n:latest"))
:models '("deepseek-r1" "qwen3.5:4b" "qwen3.5:latest" "qwen3:latest" "gemma3:latest" "granite4:latest" "functiongemma:latest" "gemma3n:latest" "hf.co/Jackrong/Qwopus3.5-9B-v3-GGUF:Q5_K_S"))
gptel-default-mode #'org-mode)
(add-hook 'gptel-post-response-functions 'gptel-end-of-response)

40
init.el
View file

@ -714,6 +714,7 @@ much faster. The hope is to also make this a faster version of imenu."
(org-export-preserve-breaks t)
(org-directory "~/docs/notes")
(org-pretty-entities t)
(org-export-exclude-tags '("noexport" "revealonly"))
(org-refile-targets
'((org-agenda-files :maxlevel . 6)
("/home/chris/docs/todo/archive.org" :maxlevel . 6)))
@ -1633,7 +1634,7 @@ All my (performant) foldings needs are met between this and `org-show-subtree'
"C-<return>" '+org/insert-item-below)
(use-package org-re-reveal
:after org
;; :after org
:config
(setq org-re-reveal-root "file:///home/chris/docs/presentations/reveal.js/"
;; org-re-reveal-theme "serif"
@ -1646,7 +1647,7 @@ All my (performant) foldings needs are met between this and `org-show-subtree'
"Insert a re-reveal video that uses completion for my music-videos directory"
(interactive)
(let* ((videos (remove ".." (remove "."
(directory-files "/home/chris/nc/tfc/presentations/music-videos"))))
(directory-files "/home/chris/nc/tfc/presentations/music-videos"))))
(chosen-video (completing-read "Music Video: " videos)))
(insert "**
:PROPERTIES:
@ -1664,24 +1665,23 @@ Optional ASYNC, SUBTREEP, VISIBLE-ONLY, BODY-ONLY, EXT-PLIST are passed
to `org-export-to-file'.
Optional BACKEND must be `re-reveal' or a backend derived from it."
(interactive)
(let* ((backend (or backend 're-reveal))
(extension (concat "-presentation" "." org-html-extension))
(client-ext (concat org-re-reveal-multiplex-client-ext extension))
(file (org-export-output-file-name extension subtreep))
(clientfile (org-export-output-file-name client-ext subtreep))
(org-html-container-element "div"))
(setq org-re-reveal-client-multiplex nil)
(org-export-to-file backend file
async subtreep visible-only body-only ext-plist)
;; Export the client HTML file if org-re-reveal-client-multiplex is set true
;; by previous call to org-export-to-file
(if org-re-reveal-client-multiplex
(org-export-to-file backend clientfile
async subtreep visible-only body-only ext-plist))
file))
(save-excursion
(save-restriction
(let ((org-export-exclude-tags '("noexport")))
(goto-char (point-min))
(re-search-forward "* PLAN")
(org-fold-hide-subtree)
(next-line)
(org-re-reveal-export-to-html nil t)
(goto-char (point-min))
(re-search-forward "* PLAN")
(org-fold-show-subtree)))))
:general
(chris/leader-keys
:states '(normal visual)
:keymaps 'org-mode-map
"er" 'chris/org-re-reveal-export-to-html)
('normal org-mode-map
"gm" 'chris/insert-reveal-music-video))
@ -1724,7 +1724,7 @@ Also see `chris/window-delete-popup-frame'." command)
:host "ai.tfcconnection.org"
:protocol "https"
:stream t
:models '("deepseek-r1" "qwen3.5:4b" "qwen3.5:latest" "qwen3:latest" "gemma3:latest" "granite4:latest" "functiongemma:latest" "gemma3n:latest"))
:models '("deepseek-r1" "qwen3.5:4b" "qwen3.5:latest" "qwen3:latest" "gemma3:latest" "granite4:latest" "functiongemma:latest" "gemma3n:latest" "hf.co/Jackrong/Qwopus3.5-9B-v3-GGUF:Q5_K_S"))
gptel-default-mode #'org-mode)
(add-hook 'gptel-post-response-functions 'gptel-end-of-response)