hg.stevelosh.com > dotfiles

(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 --------------------------------------------------------------------
author	Steve Losh <steve@stevelosh.com>
date	Thu, 16 Jul 2026 11:08:03 -0400
parents	c0d31d738157
children	(none)