pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use tmux instead for build-tool

Browse source
This commit is contained in:
Benson Chu 2024-12-27 13:47:51 -06:00
parent 5f8a0ddb39
commit 157771e86e
1 changed files with 26 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
lisp/llvm-lib/llvm-build-tool.el
View file

@ -24,6 +24,7 @@
;;; Code: ;;; Code:
(require 'llvm-shared) (require 'llvm-shared)
(require 'tmux-cmd)
(defvar lls/name-llvm-build-buffer (defvar lls/name-llvm-build-buffer
(lambda (directory tools) (lambda (directory tools)
@ -31,19 +32,31 @@
(file-name-nondirectory directory) (file-name-nondirectory directory)
(string-join tools ",")))) (string-join tools ","))))
(defun ll/llvm-build-tool (directory tools) ;; (defun ll/llvm-build-tool (directory tools)
(interactive ;; (interactive
(list ;; (list
(my/completing-read "build directory" (lls/get-llvm-build-dirs)) ;; (my/completing-read "build directory" (lls/get-llvm-build-dirs))
(--> ;; (-->
(completing-read-multiple "ninja -j X " ;; (completing-read-multiple "ninja -j X "
'("clang" ;; '("clang"
"llc"))))) ;; "llc")))))
(let* ((buffer-name (funcall lls/name-llvm-build-buffer directory tools))) ;; (let* ((buffer-name (funcall lls/name-llvm-build-buffer directory tools)))
(compilation-start ;; (compilation-start
(lls/ninja-build-tools (lls/un-trampify directory) tools) ;; (lls/ninja-build-tools (lls/un-trampify directory) tools)
nil ;; nil
(lambda (_) buffer-name)))) ;; (lambda (_) buffer-name))))
(defun-tmux-cmd-2 ll/llvm-build-tool (directory tools)
(:tmux-type transient
:interactive
((list
(my/completing-read "build directory" (lls/get-llvm-build-dirs))
(completing-read-multiple "ninja -j X "
'("clang"
"llc")))))
(name (funcall lls/name-llvm-build-buffer directory tools))
(lls/ninja-build-tools (lls/un-trampify directory) tools))
(provide 'llvm-build-tool) (provide 'llvm-build-tool)
;;; llvm-build-tool.el ends here ;;; llvm-build-tool.el ends here