chris/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixing some templates and adding supporting insert functions

Browse source
This commit is contained in:
Chris Cochrun 2026-03-18 06:59:14 -05:00
parent ea68aeca49
commit 7c94522d93
5 changed files with 247 additions and 118 deletions
Download patch file Download diff file Expand all files Collapse all files

65
init.el
View file

@ -1698,7 +1698,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
:ensure nil
:after org
:config
(setq org-re-reveal-root "file:///home/chris/docs/presentations/reveal.js/"
;; org-re-reveal-theme "serif"
@ -1707,32 +1707,48 @@ All my (performant) foldings needs are met between this and `org-show-subtree'
org-re-reveal-width "90%")
(add-to-list 'org-re-reveal-plugin-config '(audio-slideshow "RevealAudioSlideshow" "plugin/audio-slideshow/plugin.js"))
(defun chris/org-re-reveal-export-to-html
(&optional async subtreep visible-only body-only ext-plist backend)
"Export current buffer to a reveal.js HTML file with a different name
(defun chris/insert-reveal-music-video ()
"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"))))
(chosen-video (completing-read "Music Video: " videos)))
(insert "**
:PROPERTIES:
:reveal_background:
:reveal_extra_attr: data-background-video=\"/home/chris/nc/tfc/presentations/music-videos/" chosen-video "\" data-background-size=\"contain\"
:END:
")))
(defun chris/org-re-reveal-export-to-html
(&optional async subtreep visible-only body-only ext-plist backend)
"Export current buffer to a reveal.js HTML file with a different name
so that it can exists within a static site showing the file as a document
as well as a presentation.
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"))
(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)
(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)))
;; 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))
:general
('normal org-mode-map
"gm" 'chris/insert-reveal-music-video))
(use-package ox-hugo)
@ -1773,9 +1789,10 @@ Also see `chris/window-delete-popup-frame'." command)
:host "ai.tfcconnection.org"
:protocol "https"
:stream t
:models '("deepseek-r1" "qwen3.5:latest" "qwen3:latest" "gemma3:latest" "granite4:7b-a1b-h" "functiongemma:latest" "gemma3n:latest"))
:models '("deepseek-r1" "qwen3.5:4b" "qwen3.5:latest" "qwen3:latest" "gemma3:latest" "granite4:latest" "functiongemma:latest" "gemma3n:latest"))
gptel-default-mode #'org-mode)
(add-hook 'gptel-post-response-functions 'gptel-end-of-response)
(add-hook 'gptel-post-response-functions 'gptel-end-of-response)
(set-face-attribute 'gptel-context-highlight-face nil :background nil)
@ -1796,6 +1813,8 @@ Describe everything that follows in the present tense, in response to what I typ
(mapcar (apply-partially #'apply #'gptel-make-tool)
(llm-tool-collection-get-all))
;; (gptel-make-tool )
(load-file "./vesper.el")
:general
(chris/leader-keys
@ -1813,8 +1832,8 @@ Describe everything that follows in the present tense, in response to what I typ
:after gptel
:config
(add-to-list 'gptel-agent-dirs (concat user-emacs-directory "agents/"))
(mapc (lambda (agent) (apply #'gptel-make-preset agent))
(gptel-agent-update))
(mapc (lambda (agent) (apply #'gptel-make-preset agent))
(gptel-agent-update))
(gptel-agent-update)
:general
(chris/leader-keys