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

#; Scratch --------------------------------------------------------------------
author	Steve Losh <steve@stevelosh.com>
date	Wed, 27 Aug 2025 16:14:19 -0400
parents	46c8ae0df6cc
children	(none)