warbo-utilities: b648cbcf396467abaa50bd7ad9f1abf9f7e7c068
1: { checkedRacket, fetchFromGitHub, racketWithPackages, wrap, xclip }:
2:
3: with {
4: racket = racketWithPackages.override { racket = checkedRacket; } [
5: (fetchFromGitHub {
6: owner = "willghatch";
7: repo = "racket-shell-pipeline";
8: rev = "7ed9a75";
9: sha256 = "06z5bhmvpdhy4bakh30fzha4s0xp2arjq8h9cyi65b1y18cd148x";
10: })
11: ];
12: };
13: wrap {
14: name = "unfreeze_emacs";
15: paths = [ racket xclip ];
16: script = ''
17: #!${racket}/bin/racket
18: #lang racket
19: (require shell/pipeline)
20:
21: ;; If emacs does become responsive, debug-on-quit will be set, which spawns
22: ;; annoying buffers whenever C-g is pressed (which is a lot!). We put the
23: ;; elisp for disabling it into the clipboard, in case we want it.
24: (run-pipeline '(echo "(setf debug-on-quit nil)")
25: '(xclip))
26:
27: (run-pipeline '(killall -s USR2 emacs))
28: '';
29: }
Generated by git2html.