config: fix edgecase oversights

This commit is contained in:
xeruf 2022-01-23 23:40:51 +01:00
parent fbdbae3f5e
commit fdb3202b35
2 changed files with 3 additions and 2 deletions

View File

@ -65,7 +65,7 @@ Version 2019-11-04 2021-02-16"
(defun dragon (&optional @file)
"Share file from current buffer via dragon."
(interactive)
(shell-command (concat "dragon-drag-and-drop -a -x " (if (not (string-blank-p @file)) @file buffer-file-name)))
(shell-command (concat "dragon-drag-and-drop -a -x " (or @file buffer-file-name)))
)
;; rebing C-u - https://emacs.stackexchange.com/a/58320
@ -453,6 +453,7 @@ Version 2019-11-04 2021-02-16"
(use-package! ox-context
:after ox)
(use-package! ox-extra
:after ox
:config (ox-extras-activate '(ignore-headlines)) ;; use tag :ignore: to export content without headline

View File

@ -30,7 +30,7 @@ for arg do
(*) echo "'$arg' cannot be extracted by ex" >&2;;
esac
test "$(basename "$PWD")" = "$namepart" &&
if test "$(ls -U | wc -l)" -lt 3
if test $# -lt 2 && "$(ls -U | wc -l)" -lt 3
then mv * .. && cd .. && rm -d "$namepart"
else cd .. && mv "$namepart" "$name"
fi