Avoid error when fzf-marks file is readonly

This is related to issue #50
urbainvaes · Jun 11, 2021 · f5c9866 · f5c9866
1 parent 15ceb2a
commit f5c9866
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/fzf-marks.plugin.bash b/fzf-marks.plugin.bash
@@ -129,7 +129,7 @@ function jump {
         jumpdir=$(sed 's/.*: \(.*\)$/\1/;'"s#^~#${HOME}#" <<< $jumpline)
         bookmarks=$(_fzm_handle_symlinks)
         cd "${jumpdir}" || return
-        if ! [[ "${FZF_MARKS_KEEP_ORDER}" == 1 ]]; then
+        if [[ ! "${FZF_MARKS_KEEP_ORDER}" == 1 && -w ${FZF_MARKS_FILE} ]]; then
             perl -n -i -e "print unless /^\\Q${jumpline//\//\\/}\\E\$/" "${bookmarks}"
             printf '%s\n' "${jumpline}" >> "${FZF_MARKS_FILE}"
         fi

diff --git a/fzf-marks.plugin.zsh b/fzf-marks.plugin.zsh
@@ -140,7 +140,7 @@ function jump {
         jumpdir=$(sed 's/.*: \(.*\)$/\1/;'"s#^~#${HOME}#" <<< "$jumpline")
         bookmarks=$(_fzm_handle_symlinks)
         cd "${jumpdir}" || return
-        if ! [[ "${FZF_MARKS_KEEP_ORDER}" == 1 ]]; then
+        if [[ ! "${FZF_MARKS_KEEP_ORDER}" == 1 && -w ${FZF_MARKS_FILE} ]]; then
             perl -n -i -e "print unless /^\\Q${jumpline//\//\\/}\\E\$/" "${bookmarks}"
             printf '%s\n' "${jumpline}" >> "${FZF_MARKS_FILE}"
         fi