From 1f6a142a2965b342c289e37ba1509896640aadcc Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Tue, 14 Nov 2017 16:41:40 +0100 Subject: [PATCH] [Utils] Minor cleanup --- site-lisp/db-utils.el | 25 +------------------------ 1 file changed, 1 insertion(+), 24 deletions(-) diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index ef3515e..ad0a2f6 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -115,25 +115,6 @@ If already in `*ansi-term*' buffer, bury it." (insert output) (search-backward "ERROR!"))))) -(defun db/get-mail (arg) - "Use offlineimap to get emails from remote accounts. -With optional ARG, fetch only personal email addresses." - (interactive "P") - (if arg - (message "Receiving Mail... (personal only)") - (message "Receiving Mail...")) - (let ((process (apply #'start-process - "offlineimap" - " *offlineimap*" - "systemctl" - `("--user" "start" ,(format "offlineimap@%s" (getenv "DISPLAY")))))) - (set-process-sentinel process - (lambda (process event) - (if (string= event "finished\n") - (progn (gnus-group-get-new-news 2) - (message "Receiving Mail... done")) - (error "Receiving Mail... failed")))))) - (defun db/isearch-forward-symbol-with-prefix (p) ;; http://endlessparentheses.com/quickly-search-for-occurrences-of-the-symbol-at-point.html "Like `isearch-forward', unless prefix argument is provided. @@ -359,11 +340,7 @@ path." (interactive) (goto-char (point-min)) (kill-line 8) - (replace-regexp "^\"" "| ") - (goto-char (point-min)) - (replace-regexp "\"$" " |") - (goto-char (point-min)) - (replace-regexp "\";\"" " | ") + (replace-regexp "^\"\\|\"$\\|\";\"" "|") (goto-char (point-min)) (org-mode) (org-table-align)