[Utils] Minor cleanup
This commit is contained in:
parent
2076d084ff
commit
1f6a142a29
|
@ -115,25 +115,6 @@ If already in `*ansi-term*' buffer, bury it."
|
||||||
(insert output)
|
(insert output)
|
||||||
(search-backward "ERROR!")))))
|
(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)
|
(defun db/isearch-forward-symbol-with-prefix (p)
|
||||||
;; http://endlessparentheses.com/quickly-search-for-occurrences-of-the-symbol-at-point.html
|
;; http://endlessparentheses.com/quickly-search-for-occurrences-of-the-symbol-at-point.html
|
||||||
"Like `isearch-forward', unless prefix argument is provided.
|
"Like `isearch-forward', unless prefix argument is provided.
|
||||||
|
@ -359,11 +340,7 @@ path."
|
||||||
(interactive)
|
(interactive)
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(kill-line 8)
|
(kill-line 8)
|
||||||
(replace-regexp "^\"" "| ")
|
(replace-regexp "^\"\\|\"$\\|\";\"" "|")
|
||||||
(goto-char (point-min))
|
|
||||||
(replace-regexp "\"$" " |")
|
|
||||||
(goto-char (point-min))
|
|
||||||
(replace-regexp "\";\"" " | ")
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(org-mode)
|
(org-mode)
|
||||||
(org-table-align)
|
(org-table-align)
|
||||||
|
|
Loading…
Reference in New Issue