Re: ;;; anything.el --- open anything

[Bill Clementson]

Hi Tassilo,

Tassilo Horn <address@hidden> writes:

> Bill Clementson <address@hidden> writes:
>
> Hi Bill,
>
>>> Or do you have a better idea?
>>
>> Something like the following should work:
>>
>> (defvar anything-c-man-pages nil "All man pages on system")
>>
>> (defvar anything-c-source-man-pages
>>   `((name . "Manual Pages")
>>     (candidates . (lambda ()
>>                  (if (not anything-c-man-pages)
>>                      (when (require 'woman nil t)
>>                        (woman-file-name "")
>>                        (setq anything-c-man-pages 
>>                              (sort (mapcar 'car
>>                                            woman-topic-all-completions)
>>                                    'string-lessp)))
>>                    anything-c-man-pages)))
>>     (action . (("Show with Woman" . woman)))
>>     (requires-pattern . 2)))
>
> Oh, yes.  I added something like this for the man and the info source.

Yep, works fine now - thanks!

- Bill