Add option to show folders first in the sidebar

flake.nix

@@ -10,7 +10,7 @@
     haskell-flake.url = "github:srid/haskell-flake";
 
     # TODO: Dependencies waiting to go from Hackage to nixpkgs.
-    heist-extra.url = "github:srid/heist-extra";
+    heist-extra.url = "github:jfpedroza/heist-extra/jp/tree-splice-sort-children";
     heist-extra.flake = false;
     heist.url = "github:snapframework/heist"; # Waiting for 1.1.1.0 on nixpkgs cabal hashes
     heist.flake = false;

src/Emanote/View/Template.hs

@@ -170,7 +170,7 @@ renderLmlHtml model note = do
       backlinksSplice backlinksNoDaily
     let folgeAnc = G.modelFolgezettelAncestorTree modelRoute model
     "ema:note:uptree" ##
-      Splices.treeSplice (const ()) folgeAnc $
+      Splices.treeSplice (\_ _ -> ()) folgeAnc $
         \(last -> nodeRoute) children -> do
           "node:text" ## C.titleSplice ctx $ M.modelLookupTitle nodeRoute model
           "node:url" ## HI.textSplice $ SR.siteRouteUrl model $ SR.lmlSiteRoute nodeRoute
@@ -191,16 +191,22 @@ routeTreeSplice ::
 routeTreeSplice tCtx mr model = do
   "ema:route-tree" ##
     ( let tree = PathTree.treeDeleteChild "index" $ model ^. M.modelNav
-          getOrder tr =
-            ( Meta.lookupRouteMeta @Int 0 (one "order") tr model,
-              tr
-            )
+          getFoldersFirst tr =
+            Meta.lookupRouteMeta @Bool False ("template" :| ["sidebar", "folders-first"]) tr model
+          getOrder path children =
+            let tr = mkLmlRoute path
+                isLeaf = null children
+                priority = if getFoldersFirst tr && isLeaf then 1 else 0 :: Integer
+             in ( priority,
+                  Meta.lookupRouteMeta @Int 0 (one "order") tr model,
+                  tr
+                )
           getCollapsed tr =
             Meta.lookupRouteMeta @Bool True ("template" :| ["sidebar", "collapsed"]) tr model
           mkLmlRoute =
             M.resolveLmlRoute model . R.mkRouteFromSlugs
           lmlRouteSlugs = R.withLmlRoute R.unRoute
-       in Splices.treeSplice (getOrder . mkLmlRoute) tree $ \(mkLmlRoute -> nodeRoute) children -> do
+       in Splices.treeSplice getOrder tree $ \(mkLmlRoute -> nodeRoute) children -> do
             "node:text" ## C.titleSplice tCtx $ M.modelLookupTitle nodeRoute model
             "node:url" ## HI.textSplice $ SR.siteRouteUrl model $ SR.lmlSiteRoute nodeRoute
             let isActiveNode = Just nodeRoute == mr