summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-13 13:43:53 -0500
committerSacha Chua <sacha@sachachua.com>2022-11-13 13:43:53 -0500
commit0d1c45f9cfd3c8054cf7c73474df554d15d630f4 (patch)
treeb6303a59ea3de763971c074fd1f2204ca87e0284
parent3cbda731d7d2c6daf08bb9e645ec53d041651e35 (diff)
downloademacsconf-el-0d1c45f9cfd3c8054cf7c73474df554d15d630f4.tar.xz
emacsconf-el-0d1c45f9cfd3c8054cf7c73474df554d15d630f4.zip
Add private prefix
Diffstat (limited to '')
-rw-r--r--emacsconf-pad.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/emacsconf-pad.el b/emacsconf-pad.el
index d11f067..a274ee5 100644
--- a/emacsconf-pad.el
+++ b/emacsconf-pad.el
@@ -366,7 +366,9 @@ ${next-talk-list}
(interactive)
(let ((info (emacsconf-prepare-for-display (emacsconf-get-talk-info))))
(mapc (lambda (shift)
- (let ((pad-id (format "private_%s" (plist-get shift :id))))
+ (let ((pad-id (format "private_%s_%s"
+ emacsconf-private-pad-prefix
+ (plist-get shift :id))))
(emacsconf-pad-create-pad pad-id)
(emacsconf-pad-set-html
pad-id
@@ -448,5 +450,6 @@ ${next-talk-list}
nil nil 1))))
(if do-insert (insert result))
result))
+
(provide 'emacsconf-pad)
;;; emacsconf-pad.el ends here