|
|
@@ -134,7 +134,10 @@
|
|
|
(let [result (when *result (query-result/transform-query-result config q result'))
|
|
|
;; Remove hidden pages from result
|
|
|
result (if (and (coll? result) (not (map? result)))
|
|
|
- (remove (fn [b] (when (and (map? b) (:block/title b)) (ldb/hidden? (:block/title b)))) result)
|
|
|
+ (->> result
|
|
|
+ (remove (fn [b] (when (and (map? b) (:block/title b)) (ldb/hidden? (:block/title b)))))
|
|
|
+ (remove (fn [b]
|
|
|
+ (when (and current-block (:db/id current-block)) (= (:db/id b) (:db/id current-block))))))
|
|
|
result)
|
|
|
;; Args for displaying query header and results
|
|
|
view-fn (if (keyword? view) (get-in (state/sub-config) [:query/views view]) view)
|