X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/6b4faba6009bfe03661d5dc77c7580e74918ddd4..bf3f5761d2d29ac657c5612913b02497c9686e3b:/xinitrc

diff --git a/xinitrc b/xinitrc
index 1d3a83c..1de812b 100755
--- a/xinitrc
+++ b/xinitrc
@@ -242,6 +242,15 @@ start-xterms () {
 }
 
 ###--------------------------------------------------------------------------
+### Requesters.
+
+req () {
+  declare title=$1 hist=$2; shift 2
+  cmd=$(xgetline -t "$title" -p "Command:" -Hl "$HOME/$hist") &&
+  exec "$@" "$cmd"
+}
+
+###--------------------------------------------------------------------------
 ### Final waiting.
 
 atom=XINIT_COMMAND$atomtag
@@ -258,6 +267,7 @@ xwait () {
 	xmsg -I -t "xinitrc help" -d "xinitrc commands" - <<EOF &
 :help
 :emacs :xterms :window-manager :clients
+:ask-run :ask-command
 :init
 :terminal
 ! SHELL-COMMAND
@@ -277,6 +287,12 @@ EOF
 	info "restarting xinitrc"
 	exec "$0" wait nostart
 	;;
+      :ask-run)
+	req "Shell command" .cmd.hist xcatch -FMiscFixed6x13 -- sh -c&
+	;;
+      :ask-command)
+	req "xinit command" .xinit.hist xatom set XINIT_COMMAND$atomtag&
+	;;
       :*)
 	xmsg -E -t "xinitrc error" "Unknown command \`$line'" &
 	;;