;;; helm-source.el --- Helm source creation. -*- lexical-binding: t -*- ;; Copyright (C) 2014 Thierry Volpiatto ;; Author: Thierry Volpiatto ;; URL: http://github.com/emacs-helm/helm ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . ;;; Commentary: ;; Interface to create helm sources easily. ;; Actually the eieo objects are transformed in alist for compatibility. ;; In the future this package should allow creating source as eieo objects ;; without conversion to alist, teaching helm to read such a structure. ;; The compatibility with alists would be kept. ;;; Code: (require 'cl-lib) (require 'eieio) (defgeneric helm--setup-source (source) "Prepare slots and handle slot errors before creating a helm source.") (defgeneric helm-setup-user-source (source) "Allow users modifying slots in SOURCE just before creation.") ;;; Classes for sources ;; ;; (defclass helm-source () ((name :initarg :name :initform nil :custom string :documentation " The name of the source. A string which is also the heading which appears above the list of matches from the source. Must be unique.") (header-name :initarg :header-name :initform nil :custom function :documentation " A function returning the display string of the header. Its argument is the name of the source. This attribute is useful to add an additional information with the source name. It doesn't modify the name of the source.") (init :initarg :init :initform nil :custom function :documentation " Function called with no parameters when helm is started. It is useful for collecting current state information which can be used to create the list of candidates later. Initialization of `candidates-in-buffer' is done here with `helm-init-candidates-in-buffer'.") (candidates :initarg :candidates :initform nil :custom (choice function list) :documentation " Specifies how to retrieve candidates from the source. It can either be a variable name, a function called with no parameters or the actual list of candidates. The list must be a list whose members are strings, symbols or (DISPLAY . REAL) pairs. In case of (DISPLAY . REAL) pairs, the DISPLAY string is shown in the Helm buffer, but the REAL one is used as action argument when the candidate is selected. This allows a more readable presentation for candidates which would otherwise be, for example, too long or have a common part shared with other candidates which can be safely replaced with an abbreviated string for display purposes. Note that if the (DISPLAY . REAL) form is used then pattern matching is done on the displayed string, not on the real value.") (update :initarg :update :initform nil :custom function :documentation " Function called with no parameters at end of reinitialization when `helm-force-update' is called.") (cleanup :initarg :cleanup :initform nil :custom function :documentation " Function called with no parameters when *helm* buffer is closed. It is useful for killing unneeded candidates buffer. Note that the function is executed BEFORE performing action.") (delayed :initarg :delayed :initform nil :custom (choice null integer) :documentation " Candidates from the source are shown only if the user stops typing and is idle for `helm-idle-delay' seconds. If a value is given to delayed attr, this value is used instead only if it is > to `helm-idle-delay'.") (keymap :initarg :keymap :initform nil :custom sexp :documentation " Specific keymap for this source. It is useful to have a keymap per source when using more than one source. Otherwise, a keymap can be set per command with `helm' argument KEYMAP. NOTE: when a source have `helm-map' as keymap attr, the global value of `helm-map' will override the actual local one.") (action :initarg :action :initform 'identity :custom (alist :key-type string :value-type function) :documentation " It is a list of (DISPLAY . FUNCTION) pairs or FUNCTION. FUNCTION is called with one parameter: the selected candidate. An action other than the default can be chosen from this list of actions for the currently selected candidate (by default with TAB). The DISPLAY string is shown in the completions buffer and the FUNCTION is invoked when an action is selected. The first action of the list is the default. You should use `helm-make-actions' to build this alist easily.") (persistent-action :initarg :persistent-action :initform nil :custom function :documentation " Can be a either a Function called with one parameter (the selected candidate) or a cons cell where first element is this same function and second element a symbol (e.g never-split) that inform `helm-execute-persistent-action'to not split his window to execute this persistent action.") (persistent-help :initarg :persistent-help :initform nil :custom string :documentation " A string to explain persistent-action of this source. It also accepts a function or a variable name. It will be displayed in source header.") (help-message :initarg :help-message :initform nil :custom (choice string function) :documentation " Help message for this source. If not present, `helm-help-message' value will be used.") (multiline :initarg :multiline :initform nil :custom boolean :documentation " Enable to selection multiline candidates.") (requires-pattern :initarg :requires-pattern :initform nil :custom integer :documentation " If present matches from the source are shown only if the pattern is not empty. Optionally, it can have an integer parameter specifying the required length of input which is useful in case of sources with lots of candidates.") (candidate-transformer :initarg :candidate-transformer :initform nil :custom (choice function list) :documentation " It's a function or a list of functions called with one argument when the completion list from the source is built. The argument is the list of candidates retrieved from the source. The function should return a transformed list of candidates which will be used for the actual completion. If it is a list of functions, it calls each function sequentially. This can be used to transform or remove items from the list of candidates. Note that `candidates' is run already, so the given transformer function should also be able to handle candidates with (DISPLAY . REAL) format.") (filtered-candidate-transformer :initarg :filtered-candidate-transformer :initform nil :custom (choice function list) :documentation " It has the same format as `candidate-transformer', except the function is called with two parameters: the candidate list and the source. This transformer is run on the candidate list which is already filtered by the current pattern. While `candidate-transformer' is run only once, it is run every time the input pattern is changed. It can be used to transform the candidate list dynamically, for example, based on the current pattern. In some cases it may also be more efficent to perform candidate transformation here, instead of with `candidate-transformer' even if this transformation is done every time the pattern is changed. For example, if a candidate set is very large then `candidate-transformer' transforms every candidate while only some of them will actually be displayed due to the limit imposed by `helm-candidate-number-limit'. Note that `candidates' and `candidate-transformer' is run already, so the given transformer function should also be able to handle candidates with (DISPLAY . REAL) format.") (filter-one-by-one :initarg :filter-one-by-one :initform nil :custom (choice function list) :documentation " A transformer function that treat candidates one by one. It is called with one arg the candidate. It is faster than `filtered-candidate-transformer' or `candidates-transformer', but should be used only in sources that recompute constantly their candidates, e.g `helm-source-find-files'. Filtering happen early and candidates are treated one by one instead of re-looping on the whole list. If used with `filtered-candidate-transformer' or `candidates-transformer' these functions should treat the candidates transformed by the `filter-one-by-one' function in consequence.") (display-to-real :initarg :display-to-real :initform nil :custom function :documentation " Function called with one parameter; the selected candidate. The function transforms the selected candidate, and the result is passed to the action function. The display-to-real attribute provides another way to pass to action other string than the one shown in Helm buffer. Traditionally, it is possible to make candidates, candidate-transformer or filtered-candidate-transformer function return a list with (DISPLAY . REAL) pairs. But if REAL can be generated from DISPLAY, display-to-real is more convenient and faster. NOTE: This is deprecated and you have better time using `filter-one-by-one'.") (real-to-display :initarg :real-to-display :initform nil :custom function :documentation " Function called with one parameter; the selected candidate. The real value of candidates will be shown in display. See `display-to-real'.") (action-transformer :initarg :action-transformer :initform nil :custom (choice function list) :documentation " It's a function or a list of functions called with two arguments when the action list from the source is assembled. The first argument is the list of actions, the second is the current selection. If it is a list of functions, it calls each function sequentially. The function should return a transformed action list. This can be used to customize the list of actions based on the currently selected candidate.") (pattern-transformer :initarg :pattern-transformer :initform nil :custom (choice function list) :documentation " It's a function or a list of functions called with one argument before computing matches. Its argument is `helm-pattern'. Functions should return transformed `helm-pattern'. It is useful to change interpretation of `helm-pattern'.") (candidate-number-limit :initarg :candidate-number-limit :initform nil :custom integer :documentation " Override `helm-candidate-number-limit' only for this source.") (volatile :initarg :volatile :initform nil :custom boolean :documentation " Indicates the source assembles the candidate list dynamically, so it shouldn't be cached within a single Helm invocation. It is only applicable to synchronous sources, because asynchronous sources are not cached.") (match :initarg :match :initform nil :custom (choice function list) :documentation " List of functions called with one parameter: a candidate. The function should return non-nil if the candidate matches the current pattern (see variable `helm-pattern'). When using `candidates-in-buffer' its default value is `identity' and don't have to be changed, use the `search' slot instead. This attribute allows the source to override the default pattern matching based on `string-match'. It can be used, for example, to implement a source for file names and do the pattern matching on the basename of files, since it's more likely one is typing part of the basename when searching for a file, instead of some string anywhere else in its path. If the list contains more than one function then the list of matching candidates from the source is constructed by appending the results after invoking the first function on all the potential candidates, then the next function, and so on. The matching candidates supplied by the first function appear first in the list of results and then results from the other functions, respectively. This attribute has no effect for asynchronous sources (see attribute `candidates'), since they perform pattern matching themselves.") (nomark :initarg :nomark :initform nil :custom boolean :documentation " Don't allow marking candidates when this attribute is present.") (nohighlight :initarg :nohighlight :initform nil :custom boolean :documentation " Disable highlight match in this source.") (allow-dups :initarg :allow-dups :initform nil :custom boolean :documentation " Allow helm collecting duplicates candidates.") (recenter :initarg :recenter :initform nil :custom boolean :documentation " `recenter' after jumping to candidate.") (history :initarg :history :initform nil :custom symbol :documentation " Allow passing history variable to helm from source. It should be a quoted symbol.") (coerce :initarg :coerce :initform nil :custom function :documentation " It's a function called with one argument: the selected candidate. This function is intended for type convertion. In normal case, the selected candidate (string) is passed to action function. If coerce function is specified, it is called just before action function. Example: converting string to symbol (coerce . intern)") (mode-line :initarg :mode-line :initform nil :custom (choice string sexp) :documentation " Source local `helm-mode-line-string' (included in `mode-line-format'). It accepts also variable/function name.") (header-line :initarg :header-line :initform 'helm-persistent-help-string :custom (choice string function) :documentation " Source local `header-line-format'. It accepts also variable/function name.") (resume :initarg :resume :initform nil :custom function :documentation " Function called with no parameters at end of initialization when `helm-resume' is started. If this function try to do something against `helm-buffer', \(e.g updating, searching etc...\) probably you should run it in a timer to ensure `helm-buffer' is ready.") (follow :initarg :follow :initform nil :custom integer :documentation " Enable `helm-follow-mode' for this source only. You must give it a value of 1 or -1, though giving a -1 value is surely not what you want, e.g: (follow . 1) See `helm-follow-mode' for more infos.") (follow-delay :initarg :follow-delay :initform nil :custom integer :documentation " `helm-follow-mode' will execute persistent-action after this delay. Otherwise value of `helm-follow-input-idle-delay' is used if non--nil, If none of these are found fallback to `helm-input-idle-delay'.") (dont-plug :initarg :dont-plug :initform nil :custom list :documentation " A list of compile functions plugin to ignore.") (migemo :initarg :migemo :initform nil :custom boolean :documentation " Needed for Japanese input with helm-migemo.el. If you are not Japanese, ignore this.") (matchplugin :initarg :matchplugin :initform t :custom boolean) (before-init-hook :initarg :before-init-hook :initform nil :custom symbol :documentation " A local hook that run at beginning of initilization of this source. i.e Before the creation of `helm-buffer'.") (after-init-hook :initarg :after-init-hook :initform nil :custom symbol :documentation " A local hook that run at end of initilization of this source. i.e After the creation of `helm-buffer'.")) "Main interface to define helm sources." :abstract t) (defclass helm-source-sync (helm-source) ((candidates :initform '("ERROR: You must specify the `candidates' slot, either with a list or a function")) (dont-plug :initform '(helm-compile-source--match-plugin)) (match-strict :initarg :match-strict :initform nil :custom function :documentation " When specifying a match function within a source and helm-match-plugin is enabled, the result of all matching functions will be concatened, which in some cases is not what is wanted. When using `match-strict' only this or these functions will be used. You can specify those functions as a list of functions or a single symbol function."))) (defclass helm-source-async (helm-source) ((candidates-process :initarg :candidates-process :initform nil :custom function :documentation " You should use this attribute when using a function involving an async process instead of `candidates'. The function must return a process.") (matchplugin :initform nil))) (defclass helm-source-in-buffer (helm-source) ((init :initform 'helm-default-init-source-in-buffer-function) (data :initarg :data :initform nil :custom (choice list string) :documentation " A string or a list that will be used to feed the `helm-candidates-buffer'. This data will be passed in a function added to the init slot and the buffer will be build with `helm-init-candidates-in-buffer'. This is an easy and fast method to build a `candidates-in-buffer' source.") (dont-plug :initform '(helm-compile-source--candidates-in-buffer helm-compile-source--match-plugin)) (candidates :initform 'helm-candidates-in-buffer) (volatile :initform t) (match :initform '(identity)) (get-line :initarg :get-line :initform 'buffer-substring-no-properties :custom function :documentation " A function like `buffer-substring-no-properties' or `buffer-substring'. This function converts point of line-beginning and point of line-end, which represents a candidate computed by `helm-candidates-in-buffer'. By default, `helm-candidates-in-buffer' uses `buffer-substring-no-properties'.") (search :initarg :search :initform '(helm-candidates-in-buffer-search-from-start) :custom (choice function list) :documentation " List of functions like `re-search-forward' or `search-forward'. Buffer search function used by `helm-candidates-in-buffer'. By default, `helm-candidates-in-buffer' uses `re-search-forward'.") (search-from-end :initarg :search-from-end :initform nil :custom boolean :documentation " Make `helm-candidates-in-buffer' search from the end of buffer. If this attribute is specified, `helm-candidates-in-buffer' uses `re-search-backward' instead. NOTE: This is here for compatibilty, but it is not used anymore.") (search-strict :initarg :search-strict :initform nil :custom function :documentation " When specifying a search function within a source and helm-match-plugin is enabled, the result of all searching functions will be concatened, which in some cases is not what is wanted. When using `search-strict' only this or these functions will be used. You can specify those functions as a list of functions or a single symbol function.") (match-part :initarg :match-part :initform nil :custom function :documentation " Allow matching candidate in the line with `candidates-in-buffer'. In candidates-in-buffer sources, match is done with `re-search-forward' which allow matching only a regexp on the `helm-buffer'; when this search is done, match-part allow matching only a specific part of the current line e.g with a line like this: filename:candidate-containing-the-word-filename What you want is to ignore \"filename\" part and match only \"candidate-containing-the-word-filename\" So give a function matching only the part of candidate after \":\" If source contain match-part attribute, match is computed only on part of candidate returned by the call of function provided by this attribute. The function should have one arg, candidate, and return only a specific part of candidate."))) (defclass helm-source-dummy (helm-source) ((candidates :initform '("dummy")) (filtered-candidate-transformer :initform 'helm-dummy-candidate) (matchplugin :initform nil) (accept-empty :initarg :accept-empty :initform t :custom boolean :documentation " Allow exiting with an empty string. You should keep the default value.") (match :initform 'identity) (volatile :initform t))) ;;; Classes for types. ;; ;; Files (defclass helm-type-file (helm-source) () "A class to define helm type file.") (defmethod helm--setup-source :before ((source helm-type-file)) (oset source :action (helm-make-actions "Find file" 'helm-find-many-files "Find file as root" 'helm-find-file-as-root "Find file other window" 'find-file-other-window "Find file other frame" 'find-file-other-frame "Open dired in file's directory" 'helm-open-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 tap, C-u 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 "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)) (oset source :persistent-help "Show this file") (oset source :action-transformer '(helm-transform-file-load-el helm-transform-file-browse-url helm-transform-file-cache)) (oset source :candidate-transformer '(helm-skip-boring-files helm-highlight-files helm-w32-pathname-transformer))) ;; Bookmarks (defclass helm-type-bookmark (helm-source) () "A class to define type bookmarks.") (defmethod helm--setup-source :before ((source helm-type-bookmark)) (oset source :action (helm-make-actions "Jump to bookmark" 'helm-bookmark-jump "Jump to BM other window" 'helm-bookmark-jump-other-window "Bookmark edit annotation" 'bookmark-edit-annotation "Bookmark show annotation" 'bookmark-show-annotation "Delete bookmark(s)" 'helm-delete-marked-bookmarks "Edit Bookmark" 'helm-bookmark-edit-bookmark "Rename bookmark" 'helm-bookmark-rename "Relocate bookmark" 'bookmark-relocate)) (oset source :keymap helm-bookmark-map) (oset source :mode-line helm-bookmark-mode-line-string)) ;; Buffers (defclass helm-type-buffer (helm-source) () "A class to define type buffer.") (defmethod helm--setup-source :before ((source helm-type-buffer)) (oset source :action (helm-make-actions "Switch to buffer" 'helm-switch-to-buffer (lambda () (and (locate-library "popwin") "Switch to buffer in popup window")) 'popwin:popup-buffer "Switch to buffer other window" 'switch-to-buffer-other-window "Switch to buffer other frame" 'switch-to-buffer-other-frame (lambda () (and (locate-library "elscreen") "Display buffer in Elscreen")) 'helm-find-buffer-on-elscreen "Query replace regexp" 'helm-buffer-query-replace-regexp "Query replace" 'helm-buffer-query-replace "View buffer" 'view-buffer "Display buffer" 'display-buffer "Grep buffers (C-u grep all buffers)" 'helm-zgrep-buffers "Multi occur buffer(s)" 'helm-multi-occur-as-action "Revert buffer(s)" 'helm-revert-marked-buffers "Insert buffer" 'insert-buffer "Kill buffer(s)" 'helm-kill-marked-buffers "Diff with file" 'diff-buffer-with-file "Ediff Marked buffers" 'helm-ediff-marked-buffers "Ediff Merge marked buffers" (lambda (candidate) (helm-ediff-marked-buffers candidate t)))) (oset source :persistent-help "Show this buffer") (oset source :filtered-candidate-transformer '(helm-skip-boring-buffers helm-buffers-sort-transformer helm-highlight-buffers))) ;;; Error functions ;; ;; (defun helm-default-init-source-in-buffer-function () (helm-init-candidates-in-buffer 'global '("ERROR: No buffer handling your data, use either the `init' slot or the `data' slot."))) ;;; Internal Builder functions. ;; ;; (defun helm--create-source (object class) "[INTERNAL] Build a helm source from a CLASS OBJECT." (cl-loop for s in (object-slots object) for slot = (class-slot-initarg class s) for slot-val = (slot-value object slot) when slot-val collect (cons s (unless (eq t slot-val) slot-val)))) (defun helm-make-source (name class &rest args) "Build a `helm' source named NAME with ARGS for CLASS. Argument NAME is a string which define the source name, so no need to use the keyword :name in your source, NAME will be used instead. Argument CLASS is an eieio class object. Arguments ARGS are keyword value pairs as defined in CLASS." (let ((source (apply #'make-instance class name args))) (oset source :name name) (helm--setup-source source) (helm-setup-user-source source) (helm--create-source source (object-class source)))) (defun helm-make-type (class &rest args) (let ((source (apply #'make-instance class args))) (oset source :name nil) (helm--setup-source source) (helm--create-source source (object-class source)))) (defun helm-source-mp-get-search-or-match-fns (source method) (require 'helm-match-plugin) (let ((searchers (and (eq method 'search) (if (eq t (oref source :search-from-end)) helm-mp-default-search-backward-functions helm-mp-default-search-functions))) (defmatch (helm-aif (slot-value source :match) (helm-mklist it))) (defmatch-strict (helm-aif (and (eq method 'match) (slot-value source :match-strict)) (helm-mklist it))) (defsearch (helm-aif (and (eq method 'search) (slot-value source :search)) (helm-mklist it))) (defsearch-strict (helm-aif (and (eq method 'search-strict) (slot-value source :search-strict)) (helm-mklist it)))) (cl-case method (match (cond (defmatch-strict) (defmatch (append helm-mp-default-match-functions defmatch)) (t helm-mp-default-match-functions))) (search (cond (defsearch-strict) (defsearch (append searchers defsearch)) (t searchers)))))) ;;; Modifiers ;; (cl-defun helm-source-add-action-to-source-if (name fn source predicate &optional (index 4)) "Same as `helm-add-action-to-source-if' but for SOURCE defined as eieio object. You can use this inside a `helm--setup-source' method for a SOURCE defined as an eieio class." (let* ((actions (oref source :action)) (action-transformers (oref source :action-transformer)) (new-action (list (cons name fn))) (transformer `(lambda (actions candidate) (cond ((funcall (quote ,predicate) candidate) (helm-append-at-nth actions (quote ,new-action) ,index)) (t actions))))) (when (symbolp actions) (oset source :action (list (cons "Default action" actions)))) (when (symbolp action-transformers) (setq action-transformers (list action-transformers))) (oset source :action-transformer (delq nil (append (list transformer) action-transformers))))) ;;; Methods to access types slots. (defmethod helm-source-get-action-from-type ((object helm-type-file)) (oref object :action)) ;;; Methods to build sources. ;; ;; (defmethod helm--setup-source :before ((source helm-source)) (helm-aif (slot-value source :keymap) (and (symbolp it) (set-slot-value source :keymap (symbol-value it))))) (defmethod helm-setup-user-source ((_source helm-source))) (defmethod helm--setup-source ((source helm-source-sync)) (when (slot-value source :matchplugin) (oset source :match (helm-source-mp-get-search-or-match-fns source 'match)))) (defmethod helm--setup-source ((source helm-source-in-buffer)) (let ((cur-init (slot-value source :init))) (helm-aif (slot-value source :data) (oset source :init (delq nil `(,(and (null (eq 'helm-default-init-source-in-buffer-function cur-init)) cur-init) (lambda () (helm-init-candidates-in-buffer 'global (if (functionp ,it) (funcall ,it) (if (stringp ,it) ,it ',it))))))))) (when (slot-value source :matchplugin) (oset source :search (helm-source-mp-get-search-or-match-fns source 'search))) (let ((mtc (slot-value source :match))) (cl-assert (or (equal '(identity) mtc) (eq 'identity mtc)) nil "Invalid slot value for `match'") (cl-assert (eq (slot-value source :volatile) t) nil "Invalid slot value for `volatile'"))) (defmethod helm--setup-source ((source helm-source-async)) (cl-assert (null (slot-value source :candidates)) nil "Incorrect use of `candidates' use `candidates-process' instead")) (defmethod helm--setup-source ((source helm-source-dummy)) (let ((mtc (slot-value source :match))) (cl-assert (or (equal '(identity) mtc) (eq 'identity mtc)) nil "Invalid slot value for `match'") (cl-assert (eq (slot-value source :volatile) t) nil "Invalid slot value for `volatile'") (cl-assert (equal (slot-value source :candidates) '("dummy")) nil "Invalid slot value for `candidates'") (cl-assert (eq (slot-value source :accept-empty) t) nil "Invalid slot value for `accept-empty'"))) ;;; User functions ;; ;; Sources (defmacro helm-build-sync-source (name &rest args) "Build a synchronous helm source with name NAME. Args ARGS are keywords provided by `helm-source-sync'." `(helm-make-source ,name 'helm-source-sync ,@args)) (defmacro helm-build-async-source (name &rest args) "Build a asynchronous helm source with name NAME. Args ARGS are keywords provided by `helm-source-async'." `(helm-make-source ,name 'helm-source-async ,@args)) (defmacro helm-build-in-buffer-source (name &rest args) "Build a helm source with name NAME using `candidates-in-buffer' method. Args ARGS are keywords provided by `helm-source-in-buffer'." `(helm-make-source ,name 'helm-source-in-buffer ,@args)) (defmacro helm-build-dummy-source (name &rest args) "Build a helm source with name NAME using `dummy' method. Args ARGS are keywords provided by `helm-source-dummy'." `(helm-make-source ,name 'helm-source-dummy ,@args)) ;; Types (defun helm-actions-from-type-file () (let ((source (make-instance 'helm-type-file))) (helm--setup-source source) (helm-source-get-action-from-type source))) (defun helm-build-type-file () (helm-make-type 'helm-type-file)) (provide 'helm-source) ;; Local Variables: ;; byte-compile-warnings: (not cl-functions obsolete) ;; coding: utf-8 ;; indent-tabs-mode: nil ;; End: ;;; helm-source ends here