1 files changed, 49 insertions, 0 deletions

@@ -542,5 +542,54 @@ language name.")
 ;; `org-verbatim' and `org-code' are apparently already things, so we skip them
 ;; here.
 
+;;; Copy org trees as HTML
+
+;; Thanks to Oleh Krehel, via [[https://emacs.stackexchange.com/questions/54292/copy-results-of-org-export-directly-to-clipboard][this StackExchange question]].
+(defun +org-export-clip-to-html
+    (&optional async subtreep visible-only body-only ext-plist post-process)
+  "Export region to HTML, and copy it to the clipboard.
+Arguments ASYNC, SUBTREEP, VISIBLE-ONLY, BODY-ONLY, EXT-PLIST,
+and POST-PROCESS are passed to `org-export-to-file'."
+  (message "Exporting Org to HTML...")
+  (let ((org-tmp-file "/tmp/org.html"))
+    (org-export-to-file 'html org-tmp-file
+      async subtreep visible-only body-only ext-plist post-process)
+    (start-process "xclicp" "*xclip*"
+                   "xclip" "-verbose"
+                   "-i" org-tmp-file
+                   "-t" "text/html"
+                   "-selection" "clipboard"))
+  (message "Exporting Org to HTML...done."))
+
+;; Specialized functions
+(defun +org-export-clip-subtree-to-html ()
+  "Export current subtree to HTML."
+  (interactive)
+  (+org-export-clip-to-html nil :subtree nil :body-only))
+
+;;; Taskwise functions
+;; TODO: break out into another library
+
+(defun +org-upto-task ()
+  "Go to the heading of the current task."
+  (interactive)
+  (while (not (org-get-todo-state))
+    (org-up-heading-or-point-min)))
+
+(defun +org-narrow-to-task ()
+  "Narrow the buffer to current task."
+  (interactive)
+  (+org-upto-task)
+  (org-narrow-to-subtree))
+
+(defun +org-task-clock-in (&optional select start-time)
+  "Start the clock on the current task.
+SELECT and START-TIME, if provided, are passed on to
+`org-clock-in'."
+  (interactive)
+  (save-excursion
+    (+org-upto-task)
+    (call-interactively #'org-clock-in)))
+
 (provide '+org)
 ;;; +org.el ends here