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

Use the new server-eval-args-left

Browse Source
This commit is contained in:
Alexander Rosenberg 2025-02-24 19:10:33 -08:00
parent 74d4fab26a
commit 6b7760784a
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
emacs-bookmark.zsh
View File

@ -233,15 +233,15 @@ function bmadd {
(( ${ans} != 0 )) && return 1 (( ${ans} != 0 )) && return 1
fi fi
local res="$(emacsclient --eval \ local res="$(emacsclient --eval \
"(let* ((loc \"${loc:gs#\\#\\\\#:gs#\"#\\\"#}\") "(let* ((loc (pop server-eval-args-left))
(name \"${name:gs#\\#\\\\#:gs#\"#\\\"#}\") (name (pop server-eval-args-left))
(res (with-temp-buffer (res (with-temp-buffer
(set-visited-file-name loc t nil) (set-visited-file-name loc t nil)
(bookmark-set name) (bookmark-set name)
(set-buffer-modified-p nil))) (set-buffer-modified-p nil)))
(inhibit-message t)) (inhibit-message t))
(bookmark-save) (bookmark-save)
res)")" res)" "${loc}" "${name}")"
[[ "${res}" = 'nil' ]] && printf 'Added bookmark "%s"\n' "${(q)name}" \ [[ "${res}" = 'nil' ]] && printf 'Added bookmark "%s"\n' "${(q)name}" \
|| { printf '%s\n' "${res}"; return 1 } || { printf '%s\n' "${res}"; return 1 }
__bm_update_bookmark_list __bm_update_bookmark_list
@ -269,10 +269,10 @@ function bmrm {
if read -q; then if read -q; then
printf '\n' printf '\n'
local res="$(emacsclient --eval \ local res="$(emacsclient --eval \
"(let* ((res (bookmark-delete \"${1:gs#\\#\\\\#:gs#\"#\\\"#}\")) "(let* ((res (bookmark-delete (pop server-eval-args-left)))
(inhibit-message t)) (inhibit-message t))
(bookmark-save) (bookmark-save)
res)")" res)" "${1}")"
[[ "${res}" = 'nil' ]] && printf 'Deleted bookmark "%s"\n' "${(q)1}" \ [[ "${res}" = 'nil' ]] && printf 'Deleted bookmark "%s"\n' "${(q)1}" \
|| { printf '%s\n' "${res}"; return 1 } || { printf '%s\n' "${res}"; return 1 }