 ;; Minibuffer History
 (defvar anything-c-source-minibuffer-history
   '((name . "Minibuffer History")
-    (candidates . minibuffer-history)
+    (header-name . (lambda (name) (format "%s (%s)" name minibuffer-history-variable)))
+    (candidates . (lambda () (symbol-value minibuffer-history-variable)))
     (migemo)
     (action . insert)))
 

        (anything 'anything-c-source-surfraw))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Anything Applications ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun anything-kill-buffers ()
  "You can continuously kill buffer you selected."
  (interactive)

  (interactive)
  (anything 'anything-c-source-minibuffer-history nil nil nil nil
            "*anything minibuffer-history*"))

(dolist (map (list minibuffer-local-filename-completion-map
                   minibuffer-local-completion-map
                   minibuffer-local-must-match-filename-map
                   minibuffer-local-map
                   minibuffer-local-isearch-map
                   minibuffer-local-must-match-map
                   minibuffer-local-ns-map))
  (define-key map "\C-r" 'anything-minibuffer-history))

(defun anything-gentoo ()
  "Start anything with only gentoo sources."
