From 6e656649817cd674b324af47a3d83a2b3a46a501 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 14 Mar 2022 01:08:01 +0100
Subject: Directory table extra filetypes.

---
 module/calp/server/routes.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm
index 843eb01c..06bbe193 100644
--- a/module/calp/server/routes.scm
+++ b/module/calp/server/routes.scm
@@ -57,6 +57,11 @@
                 `(tr (td ,(case (stat:type stat)
                             [(directory) "📁"]
                             [(regular) "📰"]
+                            [(symlink) "🔗"]
+                            [(block-special) "🖴"]
+                            [(char-special) "🔌"]
+                            ;; [(fifo)]
+                            ;; [(socket)]
                             [else "🙃"]))
                      (td (a (@ (href "/" ,dir "/" ,k)) ,k))
                      (td ,(number->string (stat:perms stat) 8)))))
-- 
cgit v1.2.3