scripts: add wl-copy-file

scripts/default.nix

@@ -24,6 +24,7 @@ create_scripts
   {
     br = [ ];
     bmenu = [ final.bemenu final.dhist fish j4-dmenu-desktop jq sway ];
+    wl-copy-file = [ wl-clipboard fish ];
     _diffr = [ diffr ];
     _thunar-terminal = [ final.terminal ];
     kak-pager = [ fish final._diffr ];

scripts/wl-copy-file

@@ -0,0 +1,21 @@
+#!/usr/bin/env fish
+
+function die
+    echo $argv[2..] >&2
+    exit $argv[1]
+end
+
+if test (count $argv) != 1
+    die 1 "Incorrect number of arguments porvided" >&2
+end
+
+set -a file (realpath $argv[1])
+set -e argv[1]
+
+if test -d "$file"
+    die 1 "Cannot copy directories" >&2
+else if test -f "$file"
+    wl-copy $argv -t text/uri-list "file:///$file"
+else
+    die 2 "No file found" >&2
+end