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

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

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