diff options
| -rw-r--r-- | emacsconf-publish.el | 7 | ||||
| -rw-r--r-- | emacsconf.el | 11 |
2 files changed, 17 insertions, 1 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el index a1b65e7..6dcf3f4 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -180,11 +180,16 @@ (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Open pad</a>" (plist-get o :pad-url)) "") "</td>" + "<td>" (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Open chat</a>" (plist-get o :webchat-url)) + "" + "</td>" "<td>" (format-time-string "%-l:%M" (plist-get o :start-time) emacsconf-timezone) "</td>" "<td>" (or (plist-get o :slug) "") "</td>" "<td>" (or (plist-get o :title) "") "</td>" "</tr>")) - info "\n") + (seq-filter (lambda (talk) (string= (plist-get talk :track) + (plist-get track :name))) info) + "\n") "</table></body></html>")))) emacsconf-tracks))) diff --git a/emacsconf.el b/emacsconf.el index 6b6b4b1..ada1515 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -1136,5 +1136,16 @@ Filter by TRACK if given. Use INFO as the list of talks." (erc-cmd-BROADCAST message)) (emacsconf-stream-broadcast message)) +(defun emacsconf-agenda () + (interactive) + (let ((org-agenda-files (list emacsconf-org-file))) + (org-agenda-list nil emacsconf-date 2))) + +(defun emacsconf-track-agenda (track) + (interactive (list (emacsconf-complete-track))) + (let ((org-agenda-files (list emacsconf-org-file)) + (org-agenda-category-filter-preset (list (concat "+" (plist-get track :id))))) + (org-agenda-list nil emacsconf-date 2))) + (provide 'emacsconf) ;;; emacsconf.el ends here |