;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'cl-lib) #@68 Regexp used to match the start of the tasks output from leiningen. (defconst taskrunner-leiningen-task-section-header-regexp "Several tasks are available:\n" (#$ . 105)) #@55 Retrieve all leiningen tasks from the current buffer. (defalias 'taskrunner--get-leiningen-tasks-from-buffer #[0 "\300\301\302\303#\211\205\211\300\304!}\210\305\306\307\310\311 \312\"#\207" [search-forward-regexp "Several tasks are available:\n" nil t "^$" cl-map list #[257 "\300\301\302\"@P\207" ["LEIN " split-string " "] 5 "\n\n(fn ELEM)"] split-string buffer-string "\n"] 7 (#$ . 281)]) #@142 Retrieve the rake tasks for the project in directory DIR. This function returns a list of the form: ("LEIN TASK1" "LEIN TASK2"...) (fn DIR) (defalias 'taskrunner-get-leiningen-tasks #[257 "\211\301\302\303\301\304\305!\301\306%\210\307\310\311\"r\211q\210\312\313\"\216\304\305!q\210eb\210\314 \262\315 \210*\210\316!)\207" [default-directory nil call-process "lein" taskrunner--make-task-buff-name "leiningen" "-h" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] taskrunner--get-leiningen-tasks-from-buffer kill-current-buffer butlast] 9 (#$ . 684)]) (provide 'taskrunner-leiningen)