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)
|
(defun dragon (&optional @file)
|
||||||
"Share file from current buffer via dragon."
|
"Share file from current buffer via dragon."
|
||||||
(interactive)
|
(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
|
;; rebing C-u - https://emacs.stackexchange.com/a/58320
|
||||||
|
@ -453,6 +453,7 @@ Version 2019-11-04 2021-02-16"
|
||||||
|
|
||||||
(use-package! ox-context
|
(use-package! ox-context
|
||||||
:after ox)
|
:after ox)
|
||||||
|
|
||||||
(use-package! ox-extra
|
(use-package! ox-extra
|
||||||
:after ox
|
:after ox
|
||||||
:config (ox-extras-activate '(ignore-headlines)) ;; use tag :ignore: to export content without headline
|
: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;;
|
(*) echo "'$arg' cannot be extracted by ex" >&2;;
|
||||||
esac
|
esac
|
||||||
test "$(basename "$PWD")" = "$namepart" &&
|
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"
|
then mv * .. && cd .. && rm -d "$namepart"
|
||||||
else cd .. && mv "$namepart" "$name"
|
else cd .. && mv "$namepart" "$name"
|
||||||
fi
|
fi
|
||||||
|
|
Loading…
Reference in New Issue