#!/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
" prev next file-path encoded-file-path)}))
(server/run-server
(fn [{:keys [:uri]}]
(if (str/starts-with? uri "/assets")
;; serve the file
(let [f (io/file (-> (str/replace uri "assets" "")
(URLDecoder/decode)))]
{:body f})
;; serve html
(let [n (-> (str/replace uri "/" "")
(Integer/parseInt))]
(page n)))))
(browse/browse-url "http://localhost:8090/0")
@(promise)