local/bin/homeinit: Init Quicklisp.

.local/bin/homeinit

@@ -269,6 +269,23 @@ elif inpath pacman; then
 	fi
 fi
 
+section "Quicklisp"
+QUICKLISP_DIR=$HOME/.quicklisp
+QUICKLISP_URL=https://beta.quicklisp.org/quicklisp.lisp
+DOWNLOAD_AGENT=curl
+DOWNLOAD_AGENT_FLAGS=--output
+LISP=sbcl
+LISP_FLAGS=--no-userinit
+if [ ! -d "$QUICKLISP_DIR" ] && inpath $LISP && inpath $DOWNLOAD_AGENT; then
+	$DOWNLOAD_AGENT $DOWNLOAD_AGENT_FLAGS /tmp/setup.lisp $QUICKLISP_URL
+	$LISP $LISP_FLAGS \
+		--eval '(require "asdf")' \
+		--load /tmp/setup.lisp \
+		--eval '(quicklisp-quickstart:install :path "'$QUICKLISP_DIR'/")' \
+		--eval '(uiop:quit)'
+	rm -v /tmp/setup.lisp
+fi
+
 section "Bookmarks"
 if inpath qutebrowser; then
 	mkdir -pv "$XDG_CONFIG_HOME/qutebrowser/bookmarks"