diff options
author | defanor <defanor@uberspace.net> | 2017-10-28 05:30:42 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-10-28 05:30:42 +0300 |
commit | d2460666e8bffdc4079777755e19420b6777d134 (patch) | |
tree | 9a524f34ea1e7d9adc273b57794064045b74cbc3 /pancake.el | |
parent | df97f9ad38e54107ef433ccd00d67b9315701b2b (diff) |
Support interruptions
This is mostly to kill curl processes that take too long to finish.
Diffstat (limited to 'pancake.el')
-rw-r--r-- | pancake.el | 12 |
1 files changed, 9 insertions, 3 deletions
@@ -235,6 +235,11 @@ (buffer-live-p (process-buffer process))) (kill-buffer (process-buffer process)))) +(defun pancake-interrupt () + "Send SIGINT to the process." + (interactive) + (interrupt-process pancake-process)) + (defun pancake-yank () "Insert a string." (interactive) @@ -257,14 +262,15 @@ it to `pancake-process' as input." (defvar pancake-mode-map (let ((map (make-sparse-keymap)) - (chars (cons ?? - (append (number-sequence ?0 ?9) - (number-sequence ?a ?z))))) + (chars (append (list ?? ?. ?/) + (number-sequence ?0 ?9) + (number-sequence ?a ?z)))) (dolist (char chars) (let ((str (char-to-string char))) (define-key map (kbd str) (pancake-input str)))) (define-key map (kbd "C-y") 'pancake-yank) (define-key map (kbd "<mouse-2>") 'pancake-yank-primary) + (define-key map (kbd "C-c C-c") 'pancake-interrupt) map) "Keymap for `pancake-mode'.") |