blob: 4d9b43013664c14ab83e79d42b26ba58bdd19bdb (
plain)
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
|
;;; eb --- Episode Browser development functions for Emacs
;;; Commentary:
;;; Code:
(defcustom eb-system "vs2019"
"Build system (mingw/vs2019)."
:group 'eb
:type 'string)
(defcustom eb-cwd "b"
"Working directory for executable."
:group 'eb
:type 'directory)
;;;###autoload
(defun eb-run ()
"Launch built executable, displaying its output in a buffer."
(interactive)
(require 'project)
(let ((buf (get-buffer-create "*eb-run*"))
(exe (concat (project-root (project-current))
"/b/"
eb-system
(if (not (string-equal eb-system "mingw")) "/Debug/" "")
"EpisodeBrowser.exe"))
(default-directory eb-cwd))
(with-current-buffer buf
(compilation-mode))
(start-process "EpisodeBrowser" buf exe)
(display-buffer buf)))
;;;###autoload
(defun eb-compile ()
"Compile without prompt."
(interactive)
(require 'projectile)
(let ((compilation-read-command nil))
(call-interactively #'projectile-compile-project)))
(defvar-local eb--list-buffers nil)
;;;###autoload
(defun eb-list-buffers (&optional arg)
"List project buffers."
(interactive "P")
(require 'projectile)
(let ((buffer
(list-buffers-noselect (not arg)
(if arg
(projectile-project-buffers)
(mapcan
(lambda (b) (and (buffer-file-name b) (list b)))
(projectile-project-buffers))))))
(display-buffer-in-direction buffer '((direction . up)))
(select-window (get-buffer-window buffer))
(with-current-buffer buffer
(setq-local eb--list-buffers t))))
(define-advice Buffer-menu-mouse-select (:around (f event) eb-list-buffers)
(if eb--list-buffers
(progn
(select-window (posn-window (event-end event)))
(let ((buffer (tabulated-list-get-id (posn-point (event-end event)))))
(display-buffer buffer t)
(quit-window)))
(funcall f event)))
;;;###autoload
(defun eb-dired ()
"Open the root of the current project with `dired'."
(interactive)
(dired (project-root (project-current))))
(defvar-local eb-tool-bar-mode--old-map nil)
(defvar-local eb-tool-bar-mode--old-back-button-mode nil)
(defvar-local eb-tool-bar-mode--old-back-button-show-toolbar-buttons nil)
;;;###autoload
(define-minor-mode eb-tool-bar-mode
"Useful tool bar buttons."
nil " EB" nil
(if eb-tool-bar-mode
(progn
(require 'back-button)
(setq eb-tool-bar-mode--old-map tool-bar-map)
(setq eb-tool-bar-mode--old-back-button-mode back-button-mode)
(setq eb-tool-bar-mode--old-back-button-show-toolbar-buttons back-button-show-toolbar-buttons)
(back-button-mode 1)
(setq-local back-button-show-toolbar-buttons nil)
(let ((map (make-sparse-keymap)))
(tool-bar-local-item "close" #'bury-buffer 'bury-buffer map
:label "Bury" :help "Bury buffer")
(tool-bar-local-item "index" #'eb-list-buffers 'list-buffers map
:label "Buffers" :help "Show project buffers")
(tool-bar-local-item "diropen" #'eb-dired 'dired map
:label "Root" :help "Browse project root")
(define-key-after map [separator-1] menu-bar-separator)
(tool-bar-local-item "refresh" #'eb-compile 'compile map
:label "Compile" :help "Compile project")
(tool-bar-local-item "search-replace" #'projectile-grep 'grep map
:label "Grep" :help "Grep project")
(tool-bar-local-item "connect" #'projectile-vc 'vc map
:label "Version Control" :help "Open project version control")
(define-key-after map [separator-2] menu-bar-separator)
;; back-button
(tool-bar-local-item "left-arrow"
'back-button-global-backward
'back-button
map
:label "Back By Mark"
:visible '(and back-button-mode))
(tool-bar-local-item "mpc/add"
'back-button-push-mark-local-and-global
'back-button-push
map
:label "push Mark"
:visible '(and back-button-mode))
(tool-bar-local-item "right-arrow"
'back-button-global-forward
'forward-button
map
:label "Forward By Mark"
:visible '(and back-button-mode))
(setq-local tool-bar-map map)))
(setq-local tool-bar-map eb-tool-bar-mode--old-map)
(if (not eb-tool-bar-mode--old-back-button-mode)
(back-button-mode 0))
(setq-local back-button-show-toolbar-buttons eb-tool-bar-mode--old-back-button-show-toolbar-buttons)))
(define-global-minor-mode global-eb-tool-bar-mode eb-tool-bar-mode
(lambda () (eb-tool-bar-mode 1)))
(provide 'eb)
;;; eb.el ends here
|