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

Updated taiwan

Browse source
This commit is contained in:
Benson Chu 2024-12-28 13:28:20 -06:00
parent bdc912a956
commit 85f3578adf
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/taiwan.el
View file

@ -16,7 +16,7 @@
(add-drawer "^http" (add-drawer "^http"
"WEBSITE") "WEBSITE")
(add-drawer "^English:" (add-drawer "^English:"
"ENGLISH") "ENGLISH_TRANSLATION")
(goto-char (line-end-position)) (goto-char (line-end-position))
(insert "\n:PROPERTIES:") (insert "\n:PROPERTIES:")
(re-search-forward "goo.gl" nil t) (re-search-forward "goo.gl" nil t)
@ -24,9 +24,10 @@
(insert "\n:END:") (insert "\n:END:")
(widen))) (widen)))
(defun my/populate-taiwan-fields (address website maps-url coordinates) (defun my/populate-taiwan-fields (english address website maps-url coordinates)
(interactive (interactive
(list (list
(read-string "English? ")
(read-string "Address? ") (read-string "Address? ")
(read-string "Website? ") (read-string "Website? ")
(read-string "Google Maps URL? ") (read-string "Google Maps URL? ")
@ -34,6 +35,7 @@
(cl-flet ((add-valid (key value) (cl-flet ((add-valid (key value)
(when (not (string-empty-p value)) (when (not (string-empty-p value))
(org-entry-put (point) key value)))) (org-entry-put (point) key value))))
(add-valid "ENGLISH_TRANSLATION" english)
(add-valid "ADDRESS" address) (add-valid "ADDRESS" address)
(add-valid "COORDINATES" coordinates) (add-valid "COORDINATES" coordinates)
(add-valid "WEBSITE" website) (add-valid "WEBSITE" website)