Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix khard.el

Browse Source
This commit is contained in:
Alexander Rosenberg 2023-10-29 03:03:24 -07:00
parent 2118704d98
commit c26beed6e9
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
elisp/khard.el
View File

@ -4,7 +4,7 @@
(require 'with-editor)
(add-to-list 'display-buffer-alist '("\\*khard output\\*" . (display-buffer-no-window)))
(add-to-list 'display-buffer-alist '(" \\*khard output\\*" . (display-buffer-no-window)))
(defun khard--build-list-entry-detail (&rest items)
"Build a detail in the format \" (ITEMS)\", or an empty string."
@ -62,7 +62,7 @@ If NO-CONFIRM is nil, do not ask the user."
:command
`("khard" "delete" "--force"
,(format "uid:%s" (cdr-safe contact)))
:buffer "*khard output*"
:buffer " *khard output*"
:sentinel #'khard--process-sentinel)))
(defun khard--prompt-address-book ()
@ -72,19 +72,18 @@ If NO-CONFIRM is nil, do not ask the user."
(defun khard--new-process-filter (proc str)
"Process filter for `khard-new'.
PROC and STR are described in `set-process-filter'."
(let ((lines (string-split str "\n")))
(let ((lines (string-split str "\n"))
(error-msg nil))
(dolist (line lines)
(cond
((string-prefix-p "Error: " line)
(setq error-msg line))
((equal
"Do you want to open the editor again? (y/N) "
line)
(if (y-or-n-p (format "%s! Reopen the editor? "
(or error-msg
"Unknown error")))
(process-send-string proc "y\n")
(process-send-string proc "n\n"))))))
(if (equal
"Do you want to open the editor again? (y/N) "
line)
(if (y-or-n-p (format "%sReopen the editor? "
(or error-msg
"Unknown error")))
(process-send-string proc "y\n")
(process-send-string proc "n\n"))
(setq error-msg (concat error-msg "\n" line)))))
(with-editor-process-filter proc str t))
(defun khard-new (abook)
@ -97,7 +96,7 @@ When called interactively, prompt for ABOOK."
:command
`("env" ,(concat "EDITOR=" with-editor-sleeping-editor)
"khard" "new" "--edit" "-a" ,abook)
:buffer "*khard output*"
:buffer " *khard output*"
:filter #'khard--new-process-filter
:sentinel #'khard--process-sentinel))))
@ -109,7 +108,7 @@ When called interactively, prompt the user."
:command
`("env" ,(concat "EDITOR=" with-editor-sleeping-editor)
"khard" "edit" "--edit" ,(format "uid:%s" uid))
:buffer "*khard output*"
:buffer " *khard output*"
:filter #'khard--new-process-filter
:sentinel #'khard--process-sentinel))