sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-11 11:43:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat(emacs): get apps on ports

Browse source
This commit is contained in:
Pavel Korytov 2021-08-12 10:10:33 +03:00
parent f2e42b9212
commit d1c61211df
2 changed files with 63 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
.emacs.d/init.el
View file

@ -1946,7 +1946,6 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
"u" 'lsp-ui-peek-find-references
"s" 'lsp-ui-find-workspace-symbol
"l" 'lsp-execute-code-action
;; "a" 'helm-lsp-code-actions
"e" 'list-flycheck-errors)
(use-package flycheck
@ -3284,6 +3283,36 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
"C-k" 'evil-window-up
"C-j" 'evil-window-down))
(defun my/get-apps-on-ports ()
(mapcar
(lambda (line)
(let* ((split (split-string line (rx (| (+ " ") (+ "\t")))))
(process (elt split 6)))
`((netid . ,(elt split 0))
(state . ,(elt split 1))
(recv-q . ,(elt split 2))
(send-q . ,(elt split 3))
,@(let ((data (elt split 4)))
(save-match-data
(string-match (rx (group-n 1 (* nonl)) ":" (group-n 2 (or (+ num) "*"))) data)
`((local-address . ,(match-string 1 data))
(local-port . ,(match-string 2 data)))))
,@(unless (string-empty-p process)
`((pid . ,(save-match-data
(string-match (rx "pid=" (+ num)) process)
(string-to-number (substring (match-string 0 process) 4)))))))))
(seq-filter
(lambda (s) (not (string-empty-p s)))
(split-string
(shell-command-to-string "ss -tulpnH | grep LISTEN") "\n"))))
(defun my/kill-app-on-port (port &optional signal)
(let ((apps (my/get-apps-on-ports)))
(dolist (app apps)
(when (string-equal (cdr (assoc 'local-port app)) port)
(signal-process (cdr (assoc 'pid app)) (or signal 15))
(message "Sent %d to %d" (or signal 15) (cdr (assoc 'pid app)))))))
(use-package screenshot
:straight (:repo "tecosaur/screenshot" :host github :files ("screenshot.el"))
:commands (screenshot)

34
Emacs.org
View file

@ -3169,7 +3169,6 @@ Origami should've leveraged LSP folding, but it was too unstable at the moment I
"u" 'lsp-ui-peek-find-references
"s" 'lsp-ui-find-workspace-symbol
"l" 'lsp-execute-code-action
;; "a" 'helm-lsp-code-actions
"e" 'list-flycheck-errors)
#+end_src
*** Flycheck
@ -4959,6 +4958,39 @@ The actual service definitions are in the =~/.emacs.d/prodigy.org=, which tangle
"C-k" 'evil-window-up
"C-j" 'evil-window-down))
#+end_src
A few functions to work with apps on ports.
#+begin_src emacs-lisp
(defun my/get-apps-on-ports ()
(mapcar
(lambda (line)
(let* ((split (split-string line (rx (| (+ " ") (+ "\t")))))
(process (elt split 6)))
`((netid . ,(elt split 0))
(state . ,(elt split 1))
(recv-q . ,(elt split 2))
(send-q . ,(elt split 3))
,@(let ((data (elt split 4)))
(save-match-data
(string-match (rx (group-n 1 (* nonl)) ":" (group-n 2 (or (+ num) "*"))) data)
`((local-address . ,(match-string 1 data))
(local-port . ,(match-string 2 data)))))
,@(unless (string-empty-p process)
`((pid . ,(save-match-data
(string-match (rx "pid=" (+ num)) process)
(string-to-number (substring (match-string 0 process) 4)))))))))
(seq-filter
(lambda (s) (not (string-empty-p s)))
(split-string
(shell-command-to-string "ss -tulpnH | grep LISTEN") "\n"))))
(defun my/kill-app-on-port (port &optional signal)
(let ((apps (my/get-apps-on-ports)))
(dolist (app apps)
(when (string-equal (cdr (assoc 'local-port app)) port)
(signal-process (cdr (assoc 'pid app)) (or signal 15))
(message "Sent %d to %d" (or signal 15) (cdr (assoc 'pid app)))))))
#+end_src
*** screenshot.el
Tecosaur's plugin to make beautiful code screenshots.