[emacs] Some small changes with gnus->org-capture

3 files changed, 14 insertions, 1 deletions

diff --git a/emacs/.emacs.d/init/ycp-gnus.el b/emacs/.emacs.d/init/ycp-gnus.el
index 13700e5..8c3f15e 100644
--- a/emacs/.emacs.d/init/ycp-gnus.el
+++ b/emacs/.emacs.d/init/ycp-gnus.el
@@ -155,8 +155,9 @@
     "M" #'my-gnus-move-article-like-mu4e
     "a" #'my-gnus-archive-article-like-mu4e
     "c" #'org-capture
+    "t" #'my-org-capture-todo
     "m" #'gnus-summary-post-news
-    "d" #'my-gnus-trash-article-like-mu4e
+    "k" #'my-gnus-trash-article-like-mu4e
     "r" #'gnus-article-reply-with-original
     "." #'gnus-summary-show-raw-article)
   (setq gnus-sum-thread-tree-root ""
diff --git a/emacs/.emacs.d/init/ycp-pdf.el b/emacs/.emacs.d/init/ycp-pdf.el
index 4be7a68..95b73bd 100644
--- a/emacs/.emacs.d/init/ycp-pdf.el
+++ b/emacs/.emacs.d/init/ycp-pdf.el
@@ -58,6 +58,11 @@
     )
   )
 
+(my-package pdf-misc
+  (:delay 15)
+  (setq pdf-misc-print-program-executable "/usr/bin/lpr"
+        pdf-misc-print-program-args nil))
+
 (provide 'ycp-pdf)
 ;;; ycp-pdf.el ends here
 
diff --git a/emacs/.emacs.d/lisp/my/my-org.el b/emacs/.emacs.d/lisp/my/my-org.el
index 41b73d4..8a6991e 100644
--- a/emacs/.emacs.d/lisp/my/my-org.el
+++ b/emacs/.emacs.d/lisp/my/my-org.el
@@ -1338,6 +1338,13 @@ buffer preserved, annotated with the size"
             (insert line "\n"))))))
   (switch-to-buffer-other-window "*org-sizes*"))
 
+(defun my-org-capture-todo ()
+  "Capture todo template."
+  (interactive)
+  (org-capture nil "t")
+  (org-capture-finalize)
+  (message "todo captured."))
+
 ;; for `org-link-frame-setup'
 (defun my-org-gnus-other-window-advice ()
   (other-window 1))