From 40fc91c9a20284bafa0b53659571f8f85a367fb1 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Sun, 5 Nov 2023 08:48:50 -0500 Subject: fix links --- emacsconf.el | 24 +++++++++++++----------- 1 file 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 "%s" (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 "%s" - (file-name-nondirectory link) (or description link))) + (format "%s" + (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." -- cgit v1.2.3