Add attach files action to files type (#2026)

* helm-types.el (helm-type-file-actions): Do it. * helm-locate.el (helm-generic-files-map): Do it.
emacs-helm · May 3, 2018 · 5b4da29 · 5b4da29
1 parent e96540f
commit 5b4da29
Show file tree

Hide file tree

Showing 2 changed files with 28 additions and 26 deletions.
diff --git a/helm-locate.el b/helm-locate.el
@@ -154,6 +154,7 @@ help for more infos."
     (define-key map (kbd "M-.")     'helm-ff-run-etags)
     (define-key map (kbd "C-c @")   'helm-ff-run-insert-org-link)
     (define-key map (kbd "C-x C-q") 'helm-ff-run-marked-files-in-dired)
+    (define-key map (kbd "C-c C-a") 'helm-ff-run-mail-attach-files)
     map)
   "Generic Keymap for files.")
 

diff --git a/helm-types.el b/helm-types.el
@@ -39,32 +39,33 @@
 
 (defcustom helm-type-file-actions
   (helm-make-actions
-    "Find file"                             'helm-find-many-files
-    "Find file as root"                     'helm-find-file-as-root
-    "Find file other window"                'helm-find-files-other-window
-    "Find file other frame"                 'find-file-other-frame
-    "Open dired in file's directory"        'helm-open-dired
-    "Marked files in dired"                 'helm-marked-files-in-dired
-    "Grep File(s) `C-u recurse'"            'helm-find-files-grep
-    "Zgrep File(s) `C-u Recurse'"           'helm-ff-zgrep
-    "Pdfgrep File(s)"                       'helm-ff-pdfgrep
-    "Insert as org link"                    'helm-files-insert-as-org-link
-    "Checksum File"                         'helm-ff-checksum
-    "Ediff File"                            'helm-find-files-ediff-files
-    "Ediff Merge File"                      'helm-find-files-ediff-merge-files
-    "Etags `M-., C-u reload tag file'"      'helm-ff-etags-select
-    "View file"                             'view-file
-    "Insert file"                           'insert-file
-    "Add marked files to file-cache"        'helm-ff-cache-add-file
-    "Delete file(s)"                        'helm-delete-marked-files
-    "Copy file(s) `M-C, C-u to follow'"     'helm-find-files-copy
-    "Rename file(s) `M-R, C-u to follow'"   'helm-find-files-rename
-    "Symlink files(s) `M-S, C-u to follow'" 'helm-find-files-symlink
-    "Relsymlink file(s) `C-u to follow'"    'helm-find-files-relsymlink
-    "Hardlink file(s) `M-H, C-u to follow'" 'helm-find-files-hardlink
-    "Open file externally (C-u to choose)"  'helm-open-file-externally
-    "Open file with default tool"           'helm-open-file-with-default-tool
-    "Find file in hex dump"                 'hexl-find-file)
+    "Find file"                               'helm-find-many-files
+    "Find file as root"                       'helm-find-file-as-root
+    "Find file other window"                  'helm-find-files-other-window
+    "Find file other frame"                   'find-file-other-frame
+    "Open dired in file's directory"          'helm-open-dired
+    "Attach file(s) to mail buffer `C-c C-a'" 'helm-ff-mail-attach-files
+    "Marked files in dired"                   'helm-marked-files-in-dired
+    "Grep File(s) `C-u recurse'"              'helm-find-files-grep
+    "Zgrep File(s) `C-u Recurse'"             'helm-ff-zgrep
+    "Pdfgrep File(s)"                         'helm-ff-pdfgrep
+    "Insert as org link"                      'helm-files-insert-as-org-link
+    "Checksum File"                           'helm-ff-checksum
+    "Ediff File"                              'helm-find-files-ediff-files
+    "Ediff Merge File"                        'helm-find-files-ediff-merge-files
+    "Etags `M-., C-u reload tag file'"        'helm-ff-etags-select
+    "View file"                               'view-file
+    "Insert file"                             'insert-file
+    "Add marked files to file-cache"          'helm-ff-cache-add-file
+    "Delete file(s)"                          'helm-delete-marked-files
+    "Copy file(s) `M-C, C-u to follow'"       'helm-find-files-copy
+    "Rename file(s) `M-R, C-u to follow'"     'helm-find-files-rename
+    "Symlink files(s) `M-S, C-u to follow'"   'helm-find-files-symlink
+    "Relsymlink file(s) `C-u to follow'"      'helm-find-files-relsymlink
+    "Hardlink file(s) `M-H, C-u to follow'"   'helm-find-files-hardlink
+    "Open file externally (C-u to choose)"    'helm-open-file-externally
+    "Open file with default tool"             'helm-open-file-with-default-tool
+    "Find file in hex dump"                   'hexl-find-file)
   "Default actions for type files."
   :group 'helm-files
   :type '(alist :key-type string :value-type function))