Re: The new newsticker doesn't show my feeds

[Ulf Jasper]

Tassilo Horn <address@hidden> writes:

> Ulf Jasper <address@hidden> writes:
>
>> Hmmm... Please examine this in *scratch*
>
> I added a `print' to the current buffer, no that the result doesn't get
> stripped...
>
> (print (progn
>          (require 'tree-widget)
>          (widget-create 'tree-widget
>                         :tag (newsticker--treeview-propertize-tag
>                               "Virtual Feeds" 0 "vfeeds")
>                         :expander 'newsticker--treeview-tree-expand-status
>                         :expander-p (lambda (&rest ignore) t)
>                         :leaf-icon 'newsticker--tree-widget-leaf-icon
>                         :nt-id "vfeeds"
>                         :keep '(:nt-id)
>                         :open t)) 
>        (current-buffer))
>
> ==> [X] Virtual Feeds
>
> (tree-widget :args nil :tag #("Virtual Feeds" 0 13 (mouse-face highlight 
> help-echo "Clickme!" :nt-vfeed nil :nt-feed nil :nt-id "vfeeds" keymap 
> (keymap (13 . newsticker-treeview-tree-do-click) (10 . 
> newsticker-treeview-tree-do-click) (mouse-1 . 
> newsticker-treeview-tree-click)) face newsticker-treeview-face)) :expander 
> newsticker--treeview-tree-expand-status :expander-p (lambda (&rest ignore) t) 
> :leaf-icon newsticker--tree-widget-leaf-icon :nt-id "vfeeds" :keep (:nt-id) 
> :open t :node (item :tag #("Virtual Feeds" 0 13 (mouse-face highlight 
> help-echo "Clickme!" :nt-vfeed nil :nt-feed nil :nt-id "vfeeds" keymap 
> (keymap (13 . newsticker-treeview-tree-do-click) (10 . 
> newsticker-treeview-tree-do-click) (mouse-1 . 
> newsticker-treeview-tree-click)) face newsticker-treeview-face))) 
> :tree-widget--node (item :tag #("Virtual Feeds" 0 13 (mouse-face highlight 
> help-echo "Clickme!" :nt-vfeed nil :nt-feed nil :nt-id "vfeeds" keymap 
> (keymap (13 . newsticker-treeview-tree-do-click) (10 . 
> newsticker-treeview-tree-do-click) (mouse-1 . 
> newsticker-treeview-tree-click)) face newsticker-treeview-face)) :parent #0 
> :indent 0 :from #<marker (moves after insertion) at 749 in *scratch*> :to 
> #<marker at 763 in *scratch*>) :children nil :buttons 
> ((tree-widget-empty-control :tag-glyph nil :parent #0 :indent 0 
> :button-overlay #<overlay from 745 to 749 in *scratch*> :from #<marker (moves 
> after insertion) at 745 in *scratch*> :to #<marker at 749 in *scratch*>)) 
> :from #<marker (moves after insertion) at 745 in *scratch*> :to #<marker at 
> 763 in *scratch*>)
>

It seems that widget-create does not recognize :expander. Please examine
this:

(progn
  (require 'tree-widget)
  (widget-create 'tree-widget
                 :tag "blah"
                 :expander '(lambda (x) '((tree-widget :tag "x")))
                 :expander-p (lambda (&rest ignore) t)
                 :open t))

You should see                 

[-] blah
 `-[+] x          

but I guess you don't

-- 
Klicken Sie HIER und Sie erhalten vier Dosen umsonst