diff options
| author | Sacha Chua <sacha@sachachua.com> | 2025-08-27 21:13:38 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2025-08-27 21:13:38 -0400 |
| commit | a57eea70cc0ac443d5ac2e7ef89355a1ec3114c2 (patch) | |
| tree | d13e6cdd337bc2b4b89c5e3f5ac4688bf068fe7b | |
| parent | ae77e3dd815011c6bfd7d4fa2ccc31a752a59ee0 (diff) | |
| download | emacsconf-el-a57eea70cc0ac443d5ac2e7ef89355a1ec3114c2.tar.xz emacsconf-el-a57eea70cc0ac443d5ac2e7ef89355a1ec3114c2.zip | |
insert talk link
| -rw-r--r-- | emacsconf.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/emacsconf.el b/emacsconf.el index 0aee6c5..957ad2a 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -1166,6 +1166,11 @@ The subheading should match `emacsconf-abstract-heading-regexp'." (interactive (list (emacsconf-complete-talk))) (insert (plist-get (emacsconf-search-talk-info search) :email))) +(defun emacsconf-insert-talk-link (search) + "Insert the talk link matching SEARCH." + (interactive (list (emacsconf-complete-talk))) + (insert (concat emacsconf-base-url "/" (plist-get (emacsconf-search-talk-info search) :url)))) + (defun emacsconf-backstage-url (&optional base-url) "Return or insert backstage URL with credentials." (interactive) @@ -1193,6 +1198,7 @@ The subheading should match `emacsconf-abstract-heading-regexp'." :doc "Keymap for emacsconf-related things" "a" #'emacsconf-announce "i e" #'emacsconf-insert-talk-email + "i l" #'emacsconf-insert-talk-link "i t" #'emacsconf-insert-talk-title "i s" #'emacsconf-insert-talk-schedule "I" #'emacsconf-message-talk-info |