pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

Ahhhh, that's good shit

Browse source
This commit is contained in:
Benson Chu 2025-08-10 13:24:03 -05:00 committed by Benson Chu
parent 9b8b27ba9d
commit 0b4cac4c54
2 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/org-config/my-org-roam.el
View file

@ -70,12 +70,22 @@
(org-roam-setup)
(setq org-roam-dailies-directory "daily/")
(defvar-keymap org-capture-self-chat-keymap
"C-c C-k" #'(lambda ()
(interactive)
(call-interactively #'org-edit-src-abort)
(call-interactively #'org-cut-special)
(call-interactively #'delete-window)))
(defun self-chat-capture-template-display-src ()
(with-current-buffer (org-capture-get :buffer)
(goto-char (org-capture-get :insertion-point))
(let ((src-buffer (save-window-excursion
(org-edit-special)
(current-buffer))))
(setq-local minor-mode-overriding-map-alist
`((org-src-mode . ,org-capture-self-chat-keymap)))
(current-buffer)
)))
(org-display-buffer-split src-buffer nil))))
(setq org-roam-dailies-capture-templates

10
lisp/self-chat-mode.el
View file

@ -15,6 +15,16 @@
(setq font-lock-defaults '(self-chat-highlights))
(olivetti-mode 1))
(defun self-chat-buffer ()
(interactive)
(--> (let ((org-time-was-given t))
(org-read-date t nil ""))
(format "*self-chat-%s*"
it)
(get-buffer-create it)
(switch-to-buffer it))
(self-chat-mode))
(modify-syntax-entry ?\" " " self-chat-mode-syntax-table)
(define-key self-chat-mode-map (kbd "RET") #'self-chat-insert-next)