my-anything.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Anything 
(require 'anything-config)
(require 'anything-match-plugin)
(require 'anything-gtags)

(defvar anything-c-source-eproject-files
  '((name . "Files in eProject")
    (init . (lambda () (if (buffer-file-name)
			   (setq anything-eproject-root-dir (eproject-maybe-turn-on))
			 (setq anything-eproject-root-dir 'nil)
			 )))
    (candidates . (lambda () (if anything-eproject-root-dir
				 (eproject-list-project-files anything-eproject-root-dir))))
    (type . file)
    )
  "Search for files in the current eProject.")

(defvar anything-c-source-eproject-projects
  '((name . "Projects")
    (candidates . (lambda ()
                    (mapcar (lambda (item)
                              (car item))
                            prj-list)))
    (action ("Open Project" . (lambda (cand)
                                (eproject-open cand)))
            ("Close projcet" . (lambda (cand)
                                 (eproject-close)))))
  "Open or close eProject projects.")

(setq anything-for-files-prefered-list  
      '(anything-c-source-ffap-line
       anything-c-source-ffap-guesser
       anything-c-source-files-in-current-dir+
       anything-c-source-recentf
       anything-c-source-bookmarks
       anything-c-source-file-cache
       anything-c-source-find-files
       ))

(defun anything-find-my-files ()
  "Preconfigured `anything' for `find-file'."
  (interactive)
  (let* ((fap    (ffap-guesser))
         (file-p (and fap (file-exists-p fap)))
         (tap    (thing-at-point 'filename))
         (input  (if file-p 
                     (expand-file-name tap) 
                   fap))) 
    (anything anything-for-files-prefered-list
              (or input 
                  (expand-file-name default-directory))
              "Find Files or Url: " nil nil "*Anything Find Files*")))

;; ;;; allows creating of new buffers
;; (defun anything-for-buffers ()
;;   "Preconfigured `anything' for buffer."
;;   (interactive)
;;   (anything-other-buffer '(anything-c-source-buffers+
;;                            anything-c-source-create)
;; 			 "*anything for buffers*"))

;; Search for symbols in file, gtags or org-file
(defun anything-symbol ()
  (interactive)
  (anything-at-point '(anything-c-source-imenu
					   anything-c-source-gtags-select
					   anything-c-source-org-headline)))

;; search for files
(defun anything-project ()
  (interactive)
  (anything-at-point '(anything-c-source-eproject-files
					   anything-c-source-recentf)))

(defun anything-kill-current-buffer ()
  "Preconfigured `anything' to kill buffer ."
  (interactive)
  (anything
   '(((name . "Kill Buffers")
      (candidates . anything-c-buffer-list)
      (action
       ("Kill Buffer" . (lambda (candidate)
                          (kill-buffer candidate)
                          )))))
   (buffer-name) "buffer: "))