;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\310\303&\207" [require cl-lib custom-declare-group luarocks nil "LuaRocks tools." :prefix "luarocks-" :group tools custom-declare-variable luarocks-executable funcall function #[0 "\300\207" [#1="luarocks"] 1 #1#] "Path to LuaRocks executable." :type string] 8) #@96 Call `luarocks-executable' with ARGS, returning the first line of its output. (fn &rest ARGS) (defalias 'luarocks-exec-string #[128 "\301\302\303\"r\211q\210\304\305\"\216\306\307\310\303\310&\211\311U\203-o?\2053eb\210\312`\313 \"\2023\314\315\316 #\262*\207" [luarocks-executable generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] apply process-file nil 0 buffer-substring-no-properties line-end-position error "LuaRocks command failed with exit code %S and output: %s" buffer-string] 9 (#$ . 448)]) #@22 Initialize LuaRocks. (defalias 'luarocks-init #[0 "\301\302\303\304\305\"\"\210\301\306\303\304\307\"\"\210\310\311\312!!\310\303\304\313\"!\211\205=\211@\211\235\2041\301\312\311\312!Q\"\210\314\315\"\210A\266\202\202\207" [path-separator setenv "LUA_PATH" luarocks-exec-string "path" "--lr-path" "LUA_CPATH" "--lr-cpath" parse-colon-path getenv "PATH" "--lr-bin" add-to-list exec-path] 9 (#$ . 1028)]) (provide 'luarocks)