Fix writeFile

web/src/main/frontend/fs.cljs

@@ -33,7 +33,7 @@
 
 (defn write-file
   [dir path content]
-  (js/window.pfs.writeFile (str dir "/" path) content))
+  (and js/window.pfs (js/window.pfs.writeFile (str dir "/" path) content)))
 
 (defn stat
   [dir path]

web/src/main/frontend/search.cljs

@@ -77,7 +77,7 @@
 
 (defn search
   ([q]
-   (search q 5))
+   (search q 20))
   ([q limit]
    (when-not (string/blank? q)
      (let [q (clean q)]
@@ -88,8 +88,7 @@
               (re-find (re-pattern (str "(?i)" q)) content)))
           ;; (fn [content]
           ;;   (> (score q (.toLowerCase content)) 0))
-          limit))
-       ))))
+          limit))))))
 
 (defn page-search
   ([q]