(in-package :stumpwm)

(defun screenshot-filename ()
  (concat (time-date-and-time-restrict)
          ".png"))

(defcommand screenshot-default () ()
  "Screenshot with filename like 2017-10-30-03-29-16.png"
  (eval-command (concat "screenshot-window " (screenshot-filename))))

(defcommand xfce-screenshooter () ()
    (run-shell-command "xfce4-screenshooter"))

(defcommand zoom () ()
  (run-shell-command "boomer"))
