Move last Org Mode utility function from `db-utils' to `db-org'

This commit is contained in:
Daniel - 2020-06-27 08:56:53 +02:00
parent 0583c08cda
commit 46d9973146
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
3 changed files with 6 additions and 6 deletions

View File

@ -554,7 +554,6 @@
(use-package db-utils (use-package db-utils
:commands (endless/fill-or-unfill :commands (endless/fill-or-unfill
db/delete-trailing-whitespace-maybe db/delete-trailing-whitespace-maybe
db/show-current-org-task
db/run-or-hide-shell db/run-or-hide-shell
db/run-or-hide-ansi-term db/run-or-hide-ansi-term
db/hex-to-ascii db/hex-to-ascii
@ -705,6 +704,7 @@ With given ARG, display files in `db/important-document-path."
db/org-clock-in-break-task db/org-clock-in-break-task
db/org-clock-in-home-task db/org-clock-in-home-task
db/org-clock-in-work-task db/org-clock-in-work-task
db/show-current-org-task
endless/org-ispell endless/org-ispell
db/org-agenda-list-deadlines db/org-agenda-list-deadlines
db/org-agenda-skip-tag db/org-agenda-skip-tag

View File

@ -315,6 +315,11 @@ In ~%s~:
(dolist (frame (frame-list)) (dolist (frame (frame-list))
(modify-frame-parameters frame `((name . , org-clock-heading))))))) (modify-frame-parameters frame `((name . , org-clock-heading)))))))
(defun db/show-current-org-task ()
"Show title of currently clock in task in modeline."
(interactive)
(message org-clock-current-task))
;;; Fixes ;;; Fixes

View File

@ -130,11 +130,6 @@ major mode MODE."
(eq major-mode mode))) (eq major-mode mode)))
(window-list-1))) (window-list-1)))
(defun db/show-current-org-task ()
"Show title of currently clock in task in modeline."
(interactive)
(message org-clock-current-task))
(defun db/hex-to-ascii (hex-string) (defun db/hex-to-ascii (hex-string)
"Convert HEX-STRING to its ASCII equivalent. "Convert HEX-STRING to its ASCII equivalent.
Allowed characters in hex-string are hexadecimal digits and Allowed characters in hex-string are hexadecimal digits and