aboutsummaryrefslogtreecommitdiff
path: root/.emacs.d/rul-lisp/packages/rul-write.el
blob: d66897587c18c663b7cabc12b7b65a2a85e24070 (plain)
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
;;;; `dictionary'
(setq dictionary-server "dict.org"
      dictionary-default-popup-strategy "lev"
      dictionary-create-buttons nil
      dictionary-use-single-buffer t)
(define-key global-map (kbd "C-c d") #'dictionary-lookup-definition)

(use-package denote
  :ensure t
  :config
  (setq denote-infer-keywords t)
  (setq denote-sort-keywords t)
  (setq denote-file-type 'text)
  (setq denote-excluded-directories-regexp nil)
  (setq denote-allow-multi-word-keywords nil)
  (setq denote-link-fontify-backlinks t)

  (add-hook 'find-file-hook #'denote-link-buttonize-buffer)
  (add-hook 'dired-mode-hook #'denote-dired-mode-in-directories)  

  (let ((map global-map))
    (define-key map (kbd "C-c n j") #'rul/denote-journal)
    (define-key map (kbd "C-c n n") #'denote))
)

(defun rul/denote-journal ()
  "Create an entry tagged 'journal' with the date as its title.
If a journal for the current day exists, visit it.  If multiple
entries exist, prompt with completion for a choice between them.
Else create a new file."
  (interactive)
  (let* ((today (format-time-string "%A %e %B %Y"))
         (string (denote-sluggify today))
         (files (denote-directory-files-matching-regexp string)))
    (cond
     ((> (length files) 1)
      (find-file (completing-read "Select file: " files nil :require-match)))
     (files
      (find-file (car files)))
     (t
      (denote
       today
       '("journal"))))))

(provide 'rul-write)
nihil fit ex nihilo