diff options
author | Sacha Chua <sacha@sachachua.com> | 2022-11-17 09:35:27 -0500 |
---|---|---|
committer | Sacha Chua <sacha@sachachua.com> | 2022-11-17 09:35:27 -0500 |
commit | b526bdce76c2add20755ef8b05726041920ba956 (patch) | |
tree | 3c2162fd6217b7068d0b81a7f43b70e5179219e7 /emacsconf.el | |
parent | 4de4451b3fadb7a3d0f1d03bec91ddca7b5731e2 (diff) | |
download | emacsconf-el-b526bdce76c2add20755ef8b05726041920ba956.tar.xz emacsconf-el-b526bdce76c2add20755ef8b05726041920ba956.zip |
Subed reflowing, status in backstage
Diffstat (limited to '')
-rw-r--r-- | emacsconf.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/emacsconf.el b/emacsconf.el index 855e2f8..f32c47c 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -1271,5 +1271,16 @@ tracks with the ID in the cdr of that list." (interactive) (mapc #'load-library '("emacsconf" "emacsconf-erc" "emacsconf-publish" "emacsconf-stream" "emacsconf-pad"))) +(defun emacsconf-find-talk-file-in-cache (talk filename) + (interactive (let ((talk (emacsconf-complete-talk-info))) + (list + talk + (completing-read "File: " (directory-files emacsconf-cache-dir t (plist-get talk :video-slug)))))) + (find-file filename)) + +(defun emacsconf-cache-find-file (filename) + (interactive (list (read-file-name "File: " (expand-file-name "./" emacsconf-cache-dir) nil t))) + (find-file (expand-file-name filename emacsconf-cache-dir))) + (provide 'emacsconf) ;;; emacsconf.el ends here |