config: fix edgecase oversights
This commit is contained in:
parent
fbdbae3f5e
commit
fdb3202b35
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue