diff options
| author | Sacha Chua <sacha@sachachua.com> | 2023-11-05 08:48:50 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2023-11-05 08:48:50 -0500 |
| commit | 40fc91c9a20284bafa0b53659571f8f85a367fb1 (patch) | |
| tree | a91bb1f66e3adadb3ac8dde7b91aabdd215fc272 | |
| parent | f1db2f93ac701dc543402112e88945ad03364c9b (diff) | |
| download | emacsconf-el-40fc91c9a20284bafa0b53659571f8f85a367fb1.tar.xz emacsconf-el-40fc91c9a20284bafa0b53659571f8f85a367fb1.zip | |
fix links
| -rw-r--r-- | emacsconf.el | 24 |
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." |