dashboard-reddits

(defun dashboard-insert-reddit-list (title list)
  "Render REDDIT-LIST title and items of LIST."
  (when (car list)
    (insert title )
    (mapc (lambda (el)
	    (setq url (nth 1 (split-string el "__")) )
	    (setq title (nth 0 (split-string el "__")) )
            (insert "\n    ")
            (widget-create 'push-button
                           :action `(lambda (&rest ignore)
				      (browse-url url))
                           :mouse-face 'highlight
                           :follow-link "\C-m"
                           :button-prefix ""
                           :button-suffix ""
                           :format "%[%t%]"	    
			   title
			   ))
          list)))