alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e: Whoops, uses actual correct helper function naming conventions (~ instead of -)

Browse Source
This commit is contained in:
D. LoBraico
2013-03-16 12:42:41 -05:00
parent 0d4d7b4ff1
commit bce9282332
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
mu4e/mu4e-actions.el
View File

@ -189,7 +189,7 @@ store your org-contacts."
this setting on already tagged messages can lead to messages this setting on already tagged messages can lead to messages
with multiple tags headers") with multiple tags headers")
(defun mu4e-contains-line-matching (regexp path) (defun mu4e~contains-line-matching (regexp path)
"Determine whether the file at path contains a line matching "Determine whether the file at path contains a line matching
the given regexp." the given regexp."
(with-temp-buffer (with-temp-buffer
@ -199,7 +199,7 @@ store your org-contacts."
t t
nil)))) nil))))
(defun mu4e-replace-first-line-matching (regexp to-string path) (defun mu4e~replace-first-line-matching (regexp to-string path)
"Replace the first line in the file at path that matches regexp "Replace the first line in the file at path that matches regexp
with the string replace" with the string replace"
(with-temp-file path (with-temp-file path
@ -237,12 +237,12 @@ store your org-contacts."
(setq tagstr (replace-regexp-in-string "[\\&]" "\\\\\\&" tagstr)) (setq tagstr (replace-regexp-in-string "[\\&]" "\\\\\\&" tagstr))
(setq tagstr (replace-regexp-in-string "[/]" "\\&" tagstr)) (setq tagstr (replace-regexp-in-string "[/]" "\\&" tagstr))
(if (not (mu4e-contains-line-matching (concat header ":.*") path)) (if (not (mu4e~contains-line-matching (concat header ":.*") path))
;; Add tags header just before the content ;; Add tags header just before the content
(mu4e-replace-first-line-matching "^$" (concat header ": " tagstr "\n") path) (mu4e~replace-first-line-matching "^$" (concat header ": " tagstr "\n") path)
;; replaces keywords, restricted to the header ;; replaces keywords, restricted to the header
(mu4e-replace-first-line-matching (mu4e~replace-first-line-matching
(concat header ":.*") (concat header ":.*")
(concat header ": " tagstr) (concat header ": " tagstr)
path)) path))