From 309b9937f416a349c3fb05fbed607c93f37ef3a9 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Sun, 30 Oct 2022 19:25:05 -0400
Subject: Add emacsconf-reflow
---
emacsconf.el | 76 +++++++++++++++++++++++++++++++++++++++++++++++++++++-------
1 file changed, 67 insertions(+), 9 deletions(-)
diff --git a/emacsconf.el b/emacsconf.el
index 7ab44f4..007d653 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -90,6 +90,9 @@
(defun emacsconf-res-dired ()
(interactive)
(dired emacsconf-res-dir "-tl"))
+(defun emacsconf-cache-dired ()
+ (interactive)
+ (dired emacsconf-cache-dir "-tl"))
(defun emacsconf-slugify (s)
(replace-regexp-in-string " +" "-" (replace-regexp-in-string "[^a-z0-9 ]" "" (downcase s))))
@@ -165,14 +168,20 @@
(file-name-base .metadata.name))
nil nil
(file-name-base .metadata.name)))))
- (copy-file key
- (expand-file-name (concat (plist-get talk :video-slug)
- "--"
- filename
- "."
- (let-alist (json-parse-string (buffer-string) :object-type 'alist)
- (file-name-extension .metadata.name)))
- emacsconf-backstage-dir)))
+ (let ((new-filename (concat (plist-get talk :video-slug)
+ (if (string= filename "")
+ filename
+ (concat "--" filename))
+ "."
+ (let-alist (json-parse-string (buffer-string) :object-type 'alist)
+ (file-name-extension .metadata.name)))))
+ (copy-file key
+ (expand-file-name new-filename
+ emacsconf-backstage-dir) t)
+ (copy-file key (expand-file-name new-filename emacsconf-cache-dir))
+ (unless (file-directory-p (expand-file-name (plist-get talk :slug) emacsconf-res-dir))
+ (make-directory (expand-file-name (plist-get talk :slug) emacsconf-res-dir)))
+ (copy-file (expand-file-name new-filename emacsconf-cache-dir) (expand-file-name new-filename (expand-file-name (plist-get talk :slug) emacsconf-res-dir)))))
(defcustom emacsconf-download-directory "~/Downloads"
"Directory to check for downloaded files."
@@ -1018,7 +1027,56 @@ Filter by TRACK if given. Use INFO as the list of talks."
(if (and text (not (string= text "")))
(concat (or before "") text (or after ""))
alternative))
-;;
+
+;;; Volunteer management
+(defun emacsconf-get-volunteer-info ()
+ (with-current-buffer (find-file-noselect emacsconf-org-file)
+ (org-map-entries (lambda () (org-entry-properties))
+ "volunteer+EMAIL={.}")))
+
+(defun emacsconf-complete-volunteer (&optional info)
+ (setq info (or info (emacsconf-get-volunteer-info)))
+ (let* ((choices
+ (mapcar (lambda (o)
+ (string-join
+ (delq nil
+ (mapcar (lambda (f) (assoc-default f o 'string=)) '("ITEM" "EMAIL")))
+ " - "))
+ info))
+ (choice (completing-read
+ "Volunteer: "
+ (lambda (string predicate action)
+ (if (eq action 'metadata)
+ '(metadata (category . volunteer))
+ (complete-with-action action choices string predicate))))))
+ (elt info (seq-position choices choice))))
+
+(defun emacsconf-reflow ()
+ "Help reflow text files."
+ (interactive)
+ (let (input)
+ (while (not (string= "" (setq input (read-string "Word: "))))
+ (if (string= input "'")
+
+ (progn
+ (end-of-line)
+ (unless (looking-back " ")
+ (insert " "))
+ (delete-char 1))
+ (forward-word)
+ (cond
+ ((string= input ",")
+ (re-search-forward ", " nil t)
+ (goto-char (match-end 0)))
+ ((string= input ".")
+ (re-search-forward "\\. " nil t)
+ (goto-char (match-end 0)))
+ (t
+ (re-search-forward (concat "\\<" (regexp-quote input)) nil t)
+ (goto-char (match-beginning 0))))
+ (insert "\n"))
+ (recenter)
+ (undo-boundary))))
(provide 'emacsconf)
;;; emacsconf.el ends here
--
cgit v1.2.3