-
## which
The `which` command re-implemented in Clojure. See
@@ -317,10 +315,22 @@ See [examples/vim.clj](examples/vim.clj).
This script uses [djblue/portal](https://github.com/djblue/portal/) for inspecting EDN, JSON, XML or YAML files.
-Examples usage:
+Example usage:
``` shell
$ examples/portal.clj ~/git/clojure/pom.xml
```
See [portal.clj](portal.clj).
+
+### Image viewer
+
+Opens browser window and lets user navigate through images of all sub-directories.
+
+Example usage:
+
+``` shell
+$ examples/image_viewer.clj
+```
+
+See [image_viewer.clj](image_viewer.clj).
diff --git a/examples/image_viewer.clj b/examples/image_viewer.clj
new file mode 100755
index 00000000..5af2c489
--- /dev/null
+++ b/examples/image_viewer.clj
@@ -0,0 +1,68 @@
+#!/usr/bin/env bb
+
+(ns image-viewer
+ (:require [clojure.java.browse :as browse]
+ [clojure.java.io :as io]
+ [clojure.string :as str]
+ [org.httpkit.server :as server])
+ (:import [java.net URLDecoder URLEncoder]))
+
+(def images
+ (filter #(and (.isFile %)
+ (let [name (.getName %)
+ ext (some-> (str/split name #"\.")
+ last
+ str/lower-case)]
+ (contains? #{"jpg" "jpeg" "png" "gif" "svg"} ext)))
+ (file-seq (io/file "."))))
+
+(def image-count (count images))
+
+(defn page [n]
+ (let [prev (max 0 (dec n))
+ next (min (inc n) (dec image-count))
+ file-path (.getCanonicalPath (nth images n))
+ encoded-file-path (URLEncoder/encode file-path)]
+ {:body (format "
+
+
+
+
+
+
+
+Navigation: use left/right arrow keys
+%s
+