[Utils] Remove obsolete org utility function
This commit is contained in:
parent
cc66038814
commit
48ce381845
|
@ -315,26 +315,6 @@ path."
|
||||||
|
|
||||||
;;; Org Utilities
|
;;; Org Utilities
|
||||||
|
|
||||||
(defun db/bank-csv-to-org-table ()
|
|
||||||
(interactive)
|
|
||||||
(goto-char (point-min))
|
|
||||||
(kill-line 8)
|
|
||||||
(while (re-search-forward "^\"\\|\"$\\|\";\"" nil :no-error)
|
|
||||||
(replace-match "|"))
|
|
||||||
(goto-char (point-min))
|
|
||||||
(org-mode)
|
|
||||||
(org-table-align)
|
|
||||||
;; move columns around
|
|
||||||
(cl-loop
|
|
||||||
for (word . count) in '(("Wertstellung" . 6)
|
|
||||||
("Umsatzart" . 6)
|
|
||||||
("Buchungsdetails" . 3))
|
|
||||||
do (progn (goto-char (point-min))
|
|
||||||
(search-forward word)
|
|
||||||
(dotimes (_ count)
|
|
||||||
(org-table-move-column-right))))
|
|
||||||
(goto-char (point-min)))
|
|
||||||
|
|
||||||
(defun db/org-cleanup-continuous-clocks ()
|
(defun db/org-cleanup-continuous-clocks ()
|
||||||
"Join continuous clock lines in the current buffer."
|
"Join continuous clock lines in the current buffer."
|
||||||
(interactive)
|
(interactive)
|
||||||
|
|
Loading…
Reference in New Issue