.wl

;; Shimbun
;; Setup Feeds based on ~/.feeds
(let ((feedbuf (find-file-noselect "~/.feeds")))
  (with-current-buffer feedbuf
    (goto-char (point-min))
    (while (re-search-forward "^\\([a\\|r]\\) \\([[:alnum:]]+\\) \\(.+\\)$" nil t)
      (let ((sha (sha1-string (match-string 3))))
	(cond
	 ((equal (match-string 1) "a")
	  (add-to-list 'shimbun-atom-hash-group-path-alist 
		       (list (match-string 2) 
			     (concat "file:///home/david/.feeds_cache/" sha)
			     t)))
	 ((equal (match-string 1) "r")
	  (add-to-list 'shimbun-rss-hash-group-path-alist 
		       (list (match-string 2) 
			     (concat "file:///home/david/.feeds_cache/" sha)
			     t))))))))