diff --git a/README.org b/README.org index 026cc5e7..dbbf8ade 100644 --- a/README.org +++ b/README.org @@ -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) diff --git a/init.el b/init.el index 15d2fd41..f0264d4a 100644 --- a/init.el +++ b/init.el @@ -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-" '+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)