1 files changed, 26 insertions, 0 deletions
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))))))
+