Function: newsticker--treeview-tree-get-tag

newsticker--treeview-tree-get-tag is a byte-compiled function defined in newst-treeview.el.gz.

Signature

(newsticker--treeview-tree-get-tag FEED-NAME VFEED-NAME &optional NT-ID)

Documentation

Return a tag string for either FEED-NAME or, if it is nil, for VFEED-NAME.

Optional argument NT-ID is added to the tag's properties.

Source Code

;; Defined in /usr/src/emacs/lisp/net/newst-treeview.el.gz
(defun newsticker--treeview-tree-get-tag (feed-name vfeed-name
                                                    &optional nt-id)
  "Return a tag string for either FEED-NAME or, if it is nil, for VFEED-NAME.
Optional argument NT-ID is added to the tag's properties."
  (let (tag tooltip (num-new 0))
    (cond (vfeed-name
           (cond ((string= vfeed-name "new")
                  (setq num-new (newsticker--stat-num-items-total 'new))
                  (setq tag (format "New items (%d)" num-new)))
                 ((string= vfeed-name "immortal")
                  (setq num-new (newsticker--stat-num-items-total 'immortal))
                  (setq tag (format "Immortal items (%d)" num-new)))
                 ((string= vfeed-name "obsolete")
                  (setq num-new (newsticker--stat-num-items-total 'obsolete))
                  (setq tag (format "Obsolete items (%d)" num-new)))
                 ((string= vfeed-name "all")
                  (setq num-new (newsticker--stat-num-items-total))
                  (setq tag (format "All items (%d)" num-new))))
           (setq tooltip tag))
          (feed-name
           (setq num-new (newsticker--stat-num-items-for-group
                          (intern feed-name) 'new 'immortal))
           (setq tag
                 (format "%s (%d)"
                         (if newsticker-treeview-use-feed-name-from-url-list-in-itemview
                             feed-name
                           (newsticker--real-feed-name (intern feed-name)))
                         num-new))
           (setq tooltip
                 (if (newsticker--group-get-group feed-name)
                     tag
                   (format "%s (%d)\n%s"
                           feed-name
                           num-new
                           (newsticker--real-feed-name (intern feed-name)))))))
    (if tag
        (newsticker--treeview-propertize-tag tag num-new
                                             nt-id
                                             feed-name vfeed-name
                                             tooltip))))