       (equal (cdr (assoc 'name (anything-get-current-source))) "Copy Files")
       (equal (cdr (assoc 'name (anything-get-current-source))) "Rename Files")
       (equal (cdr (assoc 'name (anything-get-current-source))) "Symlink Files")
-      (equal (cdr (assoc 'name (anything-get-current-source))) "Hardlink Files")))
+      (equal (cdr (assoc 'name (anything-get-current-source))) "Hardlink Files")
+      (equal (cdr (assoc 'name (anything-get-current-source))) "Write File")
+      (equal (cdr (assoc 'name (anything-get-current-source))) "Insert File")))
 
 (defun anything-find-files-down-one-level (arg)
   "Go down one level like unix command `cd ..'.

  :type 'boolean
  :group 'anything-config)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Preconfigured Anything ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun anything-for-files ()
  "Preconfigured `anything' for opening files.

           ("Find file other window" . find-file-other-window)
           ("Find file other frame" . find-file-other-frame)))
     ("Open dired in file's directory" . anything-c-open-dired)
     ("Delete file(s)" . anything-delete-marked-files)
     ("Open file externally" . anything-c-open-file-externally)
     ("Open file with default tool" . anything-c-open-file-with-default-tool))
    (action-transformer anything-c-transform-file-load-el
