From befa6754efc4732b238b827a886aeb7c646bf0f1 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sat, 25 May 2019 14:45:31 -0700
Subject: stub this art script

---
 art | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 art

(limited to 'art')

diff --git a/art b/art
new file mode 100755
index 0000000..a30f233
--- /dev/null
+++ b/art
@@ -0,0 +1,26 @@
+#!/usr/bin/env sh
+exec guile -e main -s "$0" "$@"
+!#
+
+#|
+a simple art reference manager, using IPTC tags.
+
+requires libiptcutils and feh
+
+requirements:
+ - list/edit iptc keywords for one or more files
+ - query iptc keywords for dir, list machine files
+|#
+
+(define (main args)
+  (let ((cmd (cadr args)))
+    (cond
+      ((equal? cmd "tags") (display "show all tags"))
+      ((equal? cmd "view") (display "view all images with some tag"))
+      ((equal? cmd "edit") (display "change tags on an image"))
+      ((null? cmd)
+       (begin
+         (display "?: ")
+         (display (cdr args))
+         (newline))))))
+
-- 
cgit v1.2.3