summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2023-11-05 08:48:50 -0500
committerSacha Chua <sacha@sachachua.com>2023-11-05 08:48:50 -0500
commit40fc91c9a20284bafa0b53659571f8f85a367fb1 (patch)
treea91bb1f66e3adadb3ac8dde7b91aabdd215fc272
parentf1db2f93ac701dc543402112e88945ad03364c9b (diff)
downloademacsconf-el-40fc91c9a20284bafa0b53659571f8f85a367fb1.tar.xz
emacsconf-el-40fc91c9a20284bafa0b53659571f8f85a367fb1.zip
fix links
-rw-r--r--emacsconf.el24
1 files changed, 13 insertions, 11 deletions
diff --git a/emacsconf.el b/emacsconf.el
index cdc6f10..485ba4d 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -824,7 +824,7 @@ The subheading should match `emacsconf-abstract-heading-regexp'."
(format "<a href=\"%s\">%s</a>"
(plist-get o :pad-url)
(plist-get o :qa-info)))))
- (t (plist-put o :qa-info "none")
+ (t (plist-put o :qa-info "after the event")
(plist-put o :qa-type "none")
(plist-put o :qa-link "none")
(plist-put o :qa-backstage-url (plist-get o :pad-url))))
@@ -990,9 +990,11 @@ The subheading should match `emacsconf-abstract-heading-regexp'."
(setq name (pop a) val (pop a))
(when (stringp val)
(setq string
- (replace-regexp-in-string (regexp-quote (concat "${" (substring (symbol-name name) 1) "}"))
- (or val "")
- string t t))))
+ (replace-regexp-in-string
+ (regexp-quote
+ (concat "${" (substring (symbol-name name) 1) "}"))
+ (or val "")
+ string t t))))
string))
(defun emacsconf-public-talks (info)
@@ -1675,8 +1677,9 @@ tracks with the ID in the cdr of that list."
(defun emacsconf-el-export (link description format _)
"Export link to emacsconf-el file."
- (format "<a href=\"https://git.emacsconf.org/emacsconf-el/tree/%s.el\">%s</a>"
- (file-name-nondirectory link) (or description link)))
+ (format "<a href=\"https://git.emacsconf.org/emacsconf-el/tree/%s\">%s</a>"
+ (file-name-nondirectory link)
+ (or description link)))
(org-link-set-parameters
"emacsconf-el"
@@ -1687,11 +1690,10 @@ tracks with the ID in the cdr of that list."
(defun emacsconf-ansible-complete ()
"Complete a file from the Emacsconf Elisp library."
(concat "emacsconf-ansible:"
- (file-relative-name
- (read-file-name
- "File: "
- emacsconf-ansible-directory)
- emacsconf-ansible-directory)))
+ (completing-read
+ "File: "
+ (projectile-project-files
+ emacsconf-ansible-directory))))
(defun emacsconf-ansible-open (link _)
"Visit a file from the Emacsconf Elisp library."