                                             "--mode" mode))))))
 ;; (anything 'anything-c-source-xrandr-change-resolution)
 
-
+;;; Xfont selection
+(defun anything-c-persistent-xfont-action (elm)
+  "Show current font temporarily"
+  (let ((default-font elm))
+    (set-default-font default-font)))
+
+(defvar anything-c-source-xfonts
+  '((name . "X Fonts")
+    (candidates . (lambda ()
+                    (x-list-fonts "*")))
+    (multiline)
+    (action . (("Copy to kill ring" . (lambda (elm)
+                                        (kill-new elm)))
+               ("Set Font" . (lambda (elm)
+                               (kill-new elm)
+                               (set-default-font elm 'keep-size)
+                               (message "New font have been copied to kill ring")))))
+    (persistent-action . anything-c-persistent-xfont-action)))
+  
+;; (anything 'anything-c-source-xfonts)
 
 ;; Sources for gentoo users
 

               (not (file-exists-p pred))))
     collect (propertize i 'face '((:foreground "yellow")))
     if (and (fboundp 'bookmark-get-buffername) ;; info buffers
             (or
              (eq handlerp 'Info-bookmark-jump)
              (and
               (string= bufp "*info*")
               (when pred
                 (not (file-exists-p pred))))))
     collect (propertize i 'face '((:foreground "green")))))
       


(defun anything-minibuffer-history ()
  "Show `minibuffer-history'."
  (interactive)
  (let ((enable-recursive-minibuffers t))
    (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
