stumpwm/clipboard.lisp @ 46c8ae0df6cc

(in-package :stumpwm-user)

(defcommand generate-random-uuid () ()
  (pbcopy (string-downcase (princ-to-string (uuid:make-v4-uuid))))
  (message "Copied random UUID to clipboard."))

(defcommand bee-movie-script () ()
  (run-shell-command "pbeecopy")
  (message "Copied the entire Bee Movie script to clipboard."))

#; Scratch --------------------------------------------------------------------