I found some some new functions for automating Hugo in Emacs, that I was able to modify slightly to fit my own needs.
Ken Huang has a nice function to select a tag from a list of tags used on the site, then insert it into the right place in the front-matter.
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
|
(defun hugo-select-tags ()
"Select tags from the hugo org files in the current dir.
Note that it only extracts tags from lines like the below:
#+tags[]: emacs org"
(interactive)
;; Move to end of tag line.
(save-excursion
(goto-char 1)
(re-search-forward "^#\\+tags")
(end-of-line)
(let ((files (directory-files-recursively default-directory "\\.org$")))
(let ((source (with-temp-buffer
(while files
(when (file-exists-p (car files))
(insert-file-contents (car files)))
(pop files))
(buffer-string))))
(save-match-data
(let ((pos 0)
matches)
(while (string-match "^#\\+[Tt]ags\\[\\]: \\(.+?\\)$" source pos)
(push (match-string 1 source) matches)
(setq pos (match-end 0)))
(insert
(completing-read
"Insert a tag: "
(sort
(delete-dups
(delete "" (split-string
(replace-regexp-in-string "[\"\']" " "
(replace-regexp-in-string
"[,()]" ""
(format "%s" matches)))
" ")))
(lambda (a b)
(string< (downcase a) (downcase b))))))))))
(insert " ")
)
)
|
Look at this post from Peter Prevos, for inserting links to other pages in the site. With it, you're able to just C-c C-l to bring up a list of link types, select "hugo", then pick the file name of the page you want to link. This is the code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
;; Follow Hugo links
(defun org-hugo-follow (link)
"Follow Hugo link shortcodes"
(org-link-open-as-file
(string-trim "{{< ref test.org >}}" "{{< ref " ">}}")))
;; New link type for Org-Hugo internal links
(org-link-set-parameters
"hugo"
:complete (lambda ()
(concat "{{< ref "
(file-name-nondirectory
(read-file-name "File: "))
" >}}"))
:follow #'org-hugo-follow)
|
They both have some other useful things that might also be helpful. I'm grateful to others who solve problems they have and post the code online. I know just enough Emacs-lisp to figure out what is going on, and modify something to my own particular use-case, but not enough to be able to start from scratch.