From d6793e0a8bb74b5bce4188b5efc707879242afa4 Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@protonmail.com>
Date: Thu, 15 Aug 2024 22:29:26 +0200
Subject: [PATCH] feat: add printscreen script

---
 home/dotfiles/dwl/print.sh  | 13 +++++++++++++
 home/home-configuration.scm |  5 ++---
 2 files changed, 15 insertions(+), 3 deletions(-)
 create mode 100755 home/dotfiles/dwl/print.sh

diff --git a/home/dotfiles/dwl/print.sh b/home/dotfiles/dwl/print.sh
new file mode 100755
index 0000000..6d5839a
--- /dev/null
+++ b/home/dotfiles/dwl/print.sh
@@ -0,0 +1,13 @@
+#!/bin/sh -e
+
+out="$HOME/screens/$(date +%Y/%Y%m%d_%H%M%S).png"
+
+while getopts o:s arg; do case $arg in
+                            o) out="$OPTARG" ;;
+                            s) sel="$(slurp -o)" ;;
+                            ?|*) echo "usage: shot [-s] [-o out]" >&2; exit 1 ;;
+                          esac; done
+
+grim ''${sel:+ -g "$sel"} "$out"
+echo "$out"
+wl-copy -t image/png < "$out"
diff --git a/home/home-configuration.scm b/home/home-configuration.scm
index 933bbbe..87d4243 100644
--- a/home/home-configuration.scm
+++ b/home/home-configuration.scm
@@ -92,9 +92,8 @@
                     (".config/waybar/style.css" ,(local-file "dotfiles/waybar/style.css"))
                     (".config/mako/config" ,(local-file "dotfiles/mako"))
 
-                    ;; (".config/zsh/plugins" ,(directory-union
-                    ;;                          "zsh-plugins"
-                    ;;                          (list zsh-autosuggestions zsh-syntax-highlighting)))
+                    (".config/dwl/scripts/print.sh" ,(local-file "dotfiles/dwl/print.sh"))
+
                     (".config/zsh/plugins" ,#~(string-append #$(directory-union
                                                                 "zsh-plugins"
                                                                 (list zsh-autosuggestions zsh-syntax-highlighting))
-- 
2.48.1