From 8bc10903a7393817e894eb19acc94acac4f68fa5 Mon Sep 17 00:00:00 2001
From: rubikitch <rubikitch@ruby-lang.org>
Date: Wed, 15 Sep 2010 06:38:52 +0900
Subject: [PATCH] anything-config.el: New source: anything-c-source-filelist /
 New command: anything-filelist, anything-filelist+

---
 anything-config.el | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/anything-config.el b/anything-config.el
index 24e950a..7a048c3 100644
--- a/anything-config.el
+++ b/anything-config.el
@@ -2521,6 +2521,53 @@ It is cleared after jumping line.")
     (type . file)))
 ;; (anything 'anything-c-source-files-in-all-dired)
 
+(defcustom anything-c-filelist-file-name nil
+  "*Filename of file list.
+Accept a list of string for multiple files.
+
+This file tend to be very large (> 100MB) and recommend to be in ramdisk for speed.
+File list is created by make-filelist.rb script.
+
+Usage:
+  ruby make-filelist.rb > /tmp/all.filelist
+
+Then
+ ;; Assume that /tmp is ramdisk or tmpfs
+ (setq anything-grep-candidates-fast-directory-regexp \"^/tmp/\")
+ (setq anything-c-filelist-file-name \"/tmp/all.filelist\")
+"
+  :type 'string  
+  :group 'anything-config)
+(defvar anything-c-source-filelist
+  '((name . "FileList")
+    (grep-candidates . anything-c-filelist-file-name)
+    (candidate-number-limit . 200)
+    (requires-pattern . 4)
+    (type . file)))
+
+;;;###autoload
+(defun anything-filelist ()
+  "Preconfigured `anything' to open files instantly."
+  (interactive)
+  (anything-other-buffer 'anything-c-source-filelist "*anything file list*"))
+
+;;;###autoload
+(defun anything-filelist+ ()
+  "Preconfigured `anything' to open files/buffers/bookmarks instantly.
+
+This is a replacement for `anything-for-files'."
+  (interactive)
+  (anything-other-buffer
+   '(anything-c-source-ffap-line
+     anything-c-source-ffap-guesser
+     anything-c-source-buffers+
+     anything-c-source-recentf
+     anything-c-source-bookmarks
+     anything-c-source-file-cache
+     anything-c-source-filelist)
+   "*anything file list*"))
+
+
 ;;;; <info>
 ;;; Info pages
 (defvar anything-c-info-pages nil
-- 
2.11.4.GIT