blob: 2513b81fd527907cd16f359ed5d3d1b42b990812 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
;;; my-denote.el --- summary -*- lexical-binding: t -*-
;; Author: Franck Cuny <franck@fcuny.net>
;;; Commentary:
;; commentary
;;; Code:
;;; https://protesilaos.com/codelog/2024-09-20-emacs-use-denote-for-meetings-events/
(defvar my-denote-colleagues '("dbullock" "nirmam" "mark")
"List of names I collaborate with.
There is at least one file in the variable `denote-directory' that has
the name of this person.")
(defvar my-denote-colleagues-prompt-history nil
"Minibuffer history for `my-denote-colleagues-new-meeting'.")
(defun my-denote-colleagues-prompt ()
"Prompt with completion for a name among `my-denote-colleagues'.
Use the last input as the default value."
(let ((default-value (car my-denote-colleagues-prompt-history)))
(completing-read
(format-prompt "New meeting with COLLEAGUE" default-value)
my-denote-colleagues
nil :require-match nil
'my-denote-colleagues-prompt-history
default-value)))
(defun my-denote-colleagues-get-file (name)
"Find file in variable `denote-directory' for NAME colleague.
If there are more than one files, prompt with completion for one among
them.
NAME is one among `my-denote-colleagues'."
(if-let ((files (denote-directory-files name))
(length-of-files (length files)))
(cond
((= length-of-files 1)
(car files))
((> length-of-files 1)
(completing-read "Select a file: " files nil :require-match)))
(user-error "No files for colleague with name `%s'" name)))
(defun my-denote-colleagues-new-meeting ()
"Prompt for the name of a colleague and insert a timestamped heading therein.
The name of a colleague corresponds to at least one file in the variable
`denote-directory'. In case there are multiple files, prompt to choose
one among them and operate therein.
Names are defined in `my-denote-colleagues'."
(declare (interactive-only t))
(interactive)
(let* ((name (my-denote-colleagues-prompt))
(file (my-denote-colleagues-get-file name))
(time (format-time-string "%F %a %R"))) ; remove %R if you do not want the time
(with-current-buffer (find-file file)
(goto-char (point-max))
;; Here I am assuming we are in `org-mode', hence the leading
;; asterisk for the heading. Adapt accordingly.
(insert (format "* [%s]\n\n" time)))))
(provide 'my-denote)
;;; my-denote.el ends here
|
