Re: Anything.el for Windows

["Sébastien Vauban" <zthjwsqqafhv@spammotel.com>]

Hi Tassilo,

>>> Anyway, please paste your anything-sources, so that I can
>>> check if I can reproduce the bug here.
>>
>> Value: 
>> (((name . "Locate")
>>   (candidates lambda nil
>>               (apply 'start-process "locate-process" nil
>>                      (append anything-c-locate-options
>>                              (list anything-pattern))))
>>   (type . file)
>>   (requires-pattern . 3)
>>   (delayed))
>
> [...]
>
>>  ((name . "Info Pages")
>>   (candidates lambda nil
>>               (if anything-c-info-pages anything-c-info-pages
>>                 (setq anything-c-info-pages
>>                       (save-window-excursion
>>                         (save-excursion
>>                           (require 'info)
>>                           (Info-find-node "dir" "top")
>>                           (goto-char
>>                            (point-min))
>>                           (let
>>                               ((info-topic-regexp "\\* +\\([^:]+: ([^)]+)[^.]*\\)\\.")
>>                                topics)
>>                             (while
>>                                 (re-search-forward info-topic-regexp nil t)
>>                               (add-to-list 'topics
>>                                            (match-string-no-properties 1)))
>>                             (goto-char
>>                              (point-min))
>>                             (Info-exit)
>>                             topics)))))) ;; <-- [1]
>>   (action
>>    ("Show with Info" lambda
>>     (node-str)
>>     (info
>>      (replace-regexp-in-string "^[^:]+: " "" node-str))))
>>   (requires-pattern . 2)))
>
> Hah! There's the bug! The "Info Pages" source ends at [1], the
> following action section and the requires-pattern stand alone.
> Is it possible that you use an outdated version of
> anything-config.el?

Not really. Here are the differences between my original
anything-sources.el and the latest one on [2].

--8<---------------cut here---------------start------------->8---
341c341
<     (type . bookmark))
---
>     (action . (("Jump to Bookmark" . bookmark-jump))))
811c811
<   "Replaces /home/user with ~."
---
>   "Replaces /home/user with $HOME."
812a813
>             ;; replace path of HOME directory in paths with the string <home>
816c817
<                   (cons (replace-match "~" nil nil file) file)
---
>                   (cons (replace-match "$HOME" nil nil file) file)
1074,1076c1075
<                                        '(anything-c-transform-sexp-eval-command-sexp)))))
<         (bookmark (action ("Jump to bookmark" . bookmark-jump)
<                           ("Delete bookmark" . bookmark-delete)))))
---
>                                        '(anything-c-transform-sexp-eval-command-sexp)))))))
--8<---------------cut here---------------end--------------->8---

From what I understand, nothing that would explain my problem?


> Please get the current one from my git repository [1] or from
> emacswiki [2].
> __________
> [1] git clone http://www.tsdh.de/repos/git/anything-config.git/
> [2] http://www.emacswiki.org/cgi-bin/wiki/anything-config.el

I've git'ted your file as well (2nd try), but my problem still
stays!?

FYI, here's my `anything-sources' with the latest "sources"
file:

--8<---------------cut here---------------start------------->8---
Value: 
(((name . "Locate")
  (candidates lambda nil
              (apply 'start-process "locate-process" nil
                     (append anything-c-locate-options
                             (list anything-pattern))))
  (type . file)
  (requires-pattern . 3)
  (delayed))
 ((name . "Tracker Search")
  (candidates lambda nil
              (start-process "tracker-search-process" nil "tracker-search" anything-pattern))
  (type . file)
  (requires-pattern . 3)
  (delayed))
 ((name . "Bookmarks")
  (init lambda nil
        (require 'bookmark))
  (candidates . bookmark-all-names)
  (type . bookmark))
 ((name . "File Name History")
  (candidates . file-name-history)
  (match anything-c-match-on-file-name anything-c-match-on-directory-name)
  (type . file))
 ((name . "Buffers")
  (candidates . anything-c-buffer-list)
  (volatile)
  (type . buffer))
 ((name . "Manual Pages")
  (candidates lambda nil
              (if anything-c-man-pages anything-c-man-pages
                (setq anything-c-man-pages
                      (condition-case nil
                          (progn
                            (require 'woman)
                            (woman-file-name "")
                            (sort
                             (mapcar 'car woman-topic-all-completions)
                             'string-lessp))
                        (error nil)))))
  (action
   ("Show with Woman" . woman))
  (requires-pattern . 2))
 ((name . "Info Pages")
  (candidates lambda nil
              (if anything-c-info-pages anything-c-info-pages
                (setq anything-c-info-pages
                      (save-window-excursion
                        (save-excursion
                          (require 'info)
                          (Info-find-node "dir" "top")
                          (goto-char
                           (point-min))
                          (let
                              ((info-topic-regexp "\\* +\\([^:]+: ([^)]+)[^.]*\\)\\.")
                               topics)
                            (while
                                (re-search-forward info-topic-regexp nil t)
                              (add-to-list 'topics
                                           (match-string-no-properties 1)))
                            (goto-char
                             (point-min))
                            (Info-exit)
                            topics))))))
  (action
   ("Show with Info" lambda
    (node-str)
    (info
     (replace-regexp-in-string "^[^:]+: " "" node-str))))
  (requires-pattern . 2)))
--8<---------------cut here---------------end--------------->8---

The problem seems to stay, even with the updated versions of
both `anything.el' and `anything-sources.el'.

Can you help me?

Best regards,
  Seb

-- 
Sébastien Vauban