Sort tags by category and then name

Issue: #1396

modules/store/src/main/scala/docspell/store/queries/QItem.scala

@@ -442,7 +442,7 @@ object QItem {
       cfields <- Stream.eval(findCustomFieldValuesForItem(item.id))
     } yield ListItemWithTags(
       item,
-      ftags.toList.sortBy(_.name),
+      RTag.sort(ftags.toList),
       attachs.sortBy(_.position),
       cfields.toList
     )

modules/store/src/main/scala/docspell/store/records/RTag.scala

@@ -164,4 +164,23 @@ object RTag {
 
   def delete(tagId: Ident, coll: Ident): ConnectionIO[Int] =
     DML.delete(T, T.tid === tagId && T.cid === coll)
+
+  def sort(tags: List[RTag]): List[RTag] =
+    tags match {
+      case Nil => tags
+      case _ =>
+        val byCat = tags
+          .groupBy(_.category)
+          .view
+          .mapValues(_.sortBy(_.name))
+          .toList
+          .sortBy(_._1)
+
+        byCat match {
+          case (None, tags) :: rest =>
+            rest.flatMap(_._2) ++ tags
+          case _ =>
+            byCat.flatMap(_._2)
+        }
+    }
 }

modules/webapp/src/main/elm/Comp/ItemCardList.elm

@@ -33,7 +33,6 @@ import Html exposing (..)
 import Html.Attributes exposing (..)
 import Messages.Comp.ItemCardList exposing (Texts)
 import Page exposing (Page(..))
-import Set exposing (Set)
 import Styles as S
 import Util.ItemDragDrop as DD
 import Util.List