[back] Alpha-first category sorting. Fixes #6

back/db.lisp

@@ -228,9 +228,21 @@
            (type function +album<>+ +track<>+))
   (let ((albs (the fixnum (funcall +album<>+ (track-album a) (track-album b)))))
     (if (zerop albs)
-    (< (the fixnum (funcall +track<>+ a b)) 0)
+        (< (the fixnum (funcall +track<>+ a b)) 0)
         albs)))
 
+(defun slot< (a b)
+  (declare #.*standard-optimize-settings*
+	   (type simple-string a b))
+  (let ((aa (alpha-char-p (elt a 0)))
+	(ba (alpha-char-p (elt b 0))))
+    (cond
+      ((and aa ba) (string< a b))
+      (aa 0)
+      (ba)
+      (t (string< a b)))))
+
+
 (defun match-filter (data category filter)
   (declare #.*standard-optimize-settings*)
 
@@ -285,7 +297,7 @@
                                   (case category
                                     (album (if latest #'album-added> #'album<))
                                     (year #'<)
-                                    (t #'string<))
+                                    (t #'slot<))
                                   :key (case category
                                          (album nil)
                                          (t #'car))))

back/server.lisp

@@ -117,7 +117,7 @@
                                     (year (parse-integer value :junk-allowed t))
                                     (otherwise value)))))
 
-(defparameter +max-limit+ 100)
+(defparameter +max-limit+ 10000)
 (defmacro with-category ((params category filter restrictions offset limit latest) &body body)
   (with-gensyms (query-string query-params)
     `(let ((,category (getsym ,params :category)))