stumpwm/clipboard.lisp @ 581345d6b360 default tip

(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."))

(defcommand dump-clipboard () ()
  (echo (run-shell-command "pbpaste" t)))

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