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.