Skip to content
Browse files

Ocsiblog: allow "all" (when alone) to match all nodes in the feeds.

  • Loading branch information...
1 parent c85767d commit 152e10214f0c0afba259b3a43e0595addc3b7c61 @mfp committed Jan 5, 2009
Showing with 2 additions and 1 deletion.
  1. +2 −1 ocsiblog.ml
View
3 ocsiblog.ml
@@ -213,7 +213,8 @@ and generate_xml xml =
and get_rss_items sp tags =
let all = Pages.sorted_entries ~reverse:true `Date pages in
let tags_match node =
- tags = [] || List.exists (fun t -> List.mem t tags) (Node.tags node) in
+ tags = [] || tags = ["all"] ||
+ List.exists (fun t -> List.mem t tags) (Node.tags node) in
let nodes =
List.take !rss_nitems
(List.filter (fun n -> Node.syndicated n && tags_match n) all)

0 comments on commit 152e102

Please sign in to comment.
Something went wrong with that request. Please try again.