-
Notifications
You must be signed in to change notification settings - Fork 70
/
spacehammer.el
182 lines (156 loc) · 6.95 KB
/
spacehammer.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
;;; spacehammer.el --- Spacehammer Elisp Helpers -*- lexical-binding: t; -*-
;;
;; Copyright (C) 2022 Ag Ibragimov and Collaborators
;;
;; Author: Ag Ibragimov <agzam.ibragimov@gmail.com>
;; Maintainer: Ag Ibragimov <agzam.ibragimov@gmail.com>
;; Version: 1.0.0
;; Keywords: extensions tools
;; Homepage: https://github.com/agzam/spacehammer
;; Package-Requires: ((emacs "27"))
;;
;; This file is not part of GNU Emacs.
;;
;;; Commentary:
;;
;; A few elisp helpers for Spacehammer
;;
;;; Code:
(require 'cl-seq)
(defun spacehammer-switch-to-app (pid)
"Switch to app with the given PID."
(unless (executable-find "hs")
(user-error "Hammerspoon IPC command line (hs) not found."))
(when (and pid (eq system-type 'darwin))
(call-process (executable-find "hs") nil 0 nil "-c"
(concat "require(\"emacs\").switchToApp (\"" pid "\")"))))
(defvar spacehammer-edit-with-emacs-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-c C-c") #'spacehammer-finish-edit-with-emacs)
(define-key map (kbd "C-c C-k") #'spacehammer-cancel-edit-with-emacs)
map))
(define-minor-mode spacehammer-edit-with-emacs-mode
"Minor mode enabled on buffers opened by spacehammer/edit-by-emacs."
:init-value nil
:lighter " editwithemacs"
:keymap spacehammer-edit-with-emacs-mode-map
:group 'spacehammer)
(defun spacehammer--turn-on-edit-with-emacs-mode ()
"Turn on `spacehammer-edit-with-emacs-mode' if the buffer derives from that mode."
(when (string-match-p "* spacehammer-edit " (buffer-name (current-buffer)))
(spacehammer-edit-with-emacs-mode t)))
(define-global-minor-mode spacehammer-global-edit-with-emacs-mode
spacehammer-edit-with-emacs-mode spacehammer--turn-on-edit-with-emacs-mode
:group 'spacehammer)
(defvar spacehammer-edit-with-emacs-hook nil
"Hook for when edit-with-emacs buffer gets activated.
Hook function must accept arguments:
- `buffer-name' - the name of the edit buffer
- `pid' - PID of the app that invoked Edit-with-Emacs
- `title' - title of the app that invoked Edit-with-Emacs")
(defvar spacehammer-before-finish-edit-with-emacs-hook nil
"Fires when editing is done and the dedicated buffer is about be killed.
Hook function must accept arguments:
- `buffer-name' - the name of the edit buffer
- `pid' - PID of the app that invoked Edit-with-Emacs")
(defvar spacehammer-before-cancel-edit-with-emacs-hook nil
"Fires when editing is canceled and the dedicated buffer is about to be killed.
Hook function must accept arguments:
- `buffer-name' - the name of the edit buffer
- `pid' - PID of the app that invoked Edit-with-Emacs")
(defvar spacehammer--caller-pid nil
"Buffer local var to store the process id of the app that invoked
the edit buffer")
(defun spacehammer--find-buffer-by-name-prefix (prefix)
"Find the first buffer with a name that starts with PREFIX."
(let ((buffer-list (buffer-list)))
(cl-find-if (lambda (buffer)
(string-prefix-p prefix (buffer-name buffer)))
buffer-list)))
(defun spacehammer-edit-with-emacs (&optional pid title screen)
"Edit anything with Emacs.
The caller is responsible for setting up the arguments.
PID - process ID of the caller app.
TITLE - title of the window.
SCREEN - the display from which the call initiates, see:
www.hammerspoon.org/docs/hs.screen.html."
(let* ((buf-name (concat "* spacehammer-edit " title " *"))
;; hook functions later could modify the buffer name, you can't expect to always
;; find the buffer originating from the same app using its full-name, but prefix
;; search would work
(buffer (or (spacehammer--find-buffer-by-name-prefix buf-name)
(get-buffer-create buf-name ))))
(unless (bound-and-true-p spacehammer-global-edit-with-emacs-mode)
(spacehammer-global-edit-with-emacs-mode +1))
(with-current-buffer buffer
(put 'spacehammer--caller-pid 'permanent-local t)
(setq-local spacehammer--caller-pid pid)
(clipboard-yank)
(deactivate-mark)
(spacehammer-edit-with-emacs-mode +1))
(pop-to-buffer buffer)
(run-hook-with-args 'spacehammer-edit-with-emacs-hook buf-name pid title)))
(defun spacehammer-finish-edit-with-emacs ()
"Invoke this command when done editing."
(interactive)
(unless (executable-find "hs")
(user-error "Hammerspoon IPC command line (hs) not found."))
(when (boundp 'spacehammer--caller-pid)
(let ((pid (buffer-local-value 'spacehammer--caller-pid (current-buffer))))
(run-hook-with-args
'spacehammer-before-finish-edit-with-emacs-hook
(buffer-name (current-buffer)) pid)
(clipboard-kill-ring-save (point-min) (point-max))
(if (one-window-p)
(kill-buffer)
(kill-buffer-and-window))
(call-process
(executable-find "hs") nil 0 nil "-c"
(concat "require(\"emacs\").switchToAppAndPasteFromClipboard (\"" pid "\")")))))
(defun spacehammer-cancel-edit-with-emacs ()
"Invoke it to cancel previous editing session."
(interactive)
(when (boundp 'spacehammer--caller-pid)
(let ((pid (buffer-local-value 'spacehammer--caller-pid (current-buffer))))
(run-hook-with-args
'spacehammer-before-cancel-edit-with-emacs-hook
(buffer-name (current-buffer)) pid)
(kill-buffer-and-window)
(spacehammer-switch-to-app pid))))
;;;; System-wide org capture
(defvar spacehammer--capture-previous-app-pid nil
"Last app that invokes `spacehammer-activate-capture-frame'.")
(defun spacehammer-activate-capture-frame (&optional pid title keys)
"Run ‘org-capture’ in capture frame.
PID is a pid of the app (the caller is responsible to set that right)
TITLE is a title of the window (the caller is responsible to set that right)
KEYS is a string associated with a template (will be passed to `org-capture')"
(setq spacehammer--capture-previous-app-pid pid)
(select-frame-by-name "capture")
(set-frame-position nil 400 400)
(set-frame-size nil 1000 400 t)
(switch-to-buffer (get-buffer-create "*scratch*"))
(org-capture nil keys))
(defadvice org-switch-to-buffer-other-window
(after supress-window-splitting activate)
"Delete the extra window if we're in a capture frame."
(if (equal "capture" (frame-parameter nil 'name))
(delete-other-windows)))
(defadvice org-capture-finalize
(after delete-capture-frame activate)
"Advise capture-finalize to close the frame."
(when (and (equal "capture" (frame-parameter nil 'name))
(not (eq this-command 'org-capture-refile)))
(spacehammer-switch-to-app spacehammer--capture-previous-app-pid)
(delete-frame)))
(defadvice org-capture-refile
(after delete-capture-frame activate)
"`org-refile' should close the frame."
(delete-frame))
(defadvice user-error
(before before-user-error activate)
"Failure to select capture template should close the frame."
(when (eq (buffer-name) "*Org Select*")
(spacehammer-switch-to-app spacehammer--capture-previous-app-pid)))
(provide 'spacehammer)
;;; spacehammer.el ends here