misha/nixos
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Some emacs edits

Browse source
This commit is contained in:
Misha 2025-04-07 12:40:50 +02:00
parent 5734f6f263
commit 9a51cf4a2c
1 changed files with 33 additions and 14 deletions

47
other-config/emacs/README.org
View file

@ -1622,6 +1622,7 @@ For example for when you're running code and immediately want to check the outpu
;; (setq gptel-model "gpt-4") (I've set this with customized)
(spc-define-keys spc-leader-map
"ot" 'send-mv)
;; (setq gptel--system-message "You are a large language model living in Emacs and a helpful assistant. Respond concisely. Also, you are very knowledgeable. An expert. Think and respond with confidence.")
@ -1771,19 +1772,37 @@ For example for when you're running code and immediately want to check the outpu
(interactive)
;;(refresh-theme)
(if in-colombia (progn
(setq org-agenda-files (mapcar (lambda (var)
(let* ((name1 (car (split-string (file-name-nondirectory var) "\\.")))
(name2 (format "%s_col.org" name1))
;; (file2 (format "%s%s" (file-name-directory var) name2))
(file2 (format "/home/misha/caltemp/%s" name2))
) file2)) org-agenda-files-basic))
)
(setq org-agenda-files org-agenda-files-basic))
(org-agenda nil "a")
(org-agenda-week-view)
;; (org-agenda-month-view)
)
(calendar-basic-setup nil t)
(setq org-agenda-files
(mapcar (lambda (var)
(let* ((name1
(car (split-string (file-name-nondirectory var) "\\.")))
(name2 (format "%s_col.org" name1))
;; (file2 (format "%s%s" (file-name-directory var) name2))
(file2 (format "/home/misha/caltemp/%s" name2))) file2)) org-agenda-files-basic)))
(setq org-agenda-files org-agenda-files-basic))
(if (and (not (one-window-p)) (not (org-calendar-window-open-p)))
(progn
(let ((org-agenda-window-setup 'current-window))
(split-window-below) ;; Split the window horizontally
(other-window 1) ;; Move to the new window
(org-agenda-list)))
(progn
(message "There is only one window open.")
(org-agenda nil "a")
(org-agenda-week-view)
(calendar-basic-setup nil t))))
(defun org-calendar-window-open-p ()
(interactive)
(if (seq-some (lambda (win)
(string= (buffer-name (window-buffer win)) "*Org Agenda*"))
(window-list))
(message "An Org Agenda window is open.")
nil))
#+end_src
**** set org capture templates
@ -2820,7 +2839,7 @@ Zie ook [[*ORG-MSG (compose and save attachment)][ORG-MSG]] voor hooks:
(run-with-timer 1 nil '(lambda ()
(other-window 1)
(goto-char (point-max))
(previous-line 17)))
(previous-logical-line 15)))
(save-excursion (mv/read-mail))
)