[fu] first-start smarter ask-user-about-lock

pkryger · Nov 20, 2024 · 8c2088f · 8c2088f
1 parent 5591c5b
commit 8c2088f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/.ci/first-start.sh b/.ci/first-start.sh
@@ -17,7 +17,8 @@ ${EMACS} -Q --batch \
          edebug-print-length 500
          user-emacs-directory "'"${EMACS_DIR}"'/"
          exordium-spell-check nil)
+   (require '"'"'userlock)
    (defun ask-user-about-lock (file opponent)
-     (sleep-for 5)
+     (sleep-for (+ 1.0 (/ (random 100) 100.0))
      t)
    (load-file "'"${EMACS_DIR}"'/init.el"))'