forked from magnars/expand-region.el
/
env.el
26 lines (22 loc) · 915 Bytes
/
env.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
(let* ((current-directory (file-name-directory load-file-name))
(features-directory (expand-file-name ".." current-directory))
(project-directory (expand-file-name ".." features-directory)))
(setq expand-region-root-path project-directory)
(setq expand-region-util-path (expand-file-name "util" project-directory)))
(add-to-list 'load-path expand-region-root-path)
(add-to-list 'load-path (expand-file-name "espuds" expand-region-util-path))
(add-to-list 'load-path (expand-file-name "features/support/vendor/python-el" expand-region-root-path))
(require 'expand-region)
(require 'espuds)
(require 'ert)
(Before
(global-set-key (kbd "C-@") 'er/expand-region)
(global-set-key (kbd "C-S-@") 'er/contract-region)
(switch-to-buffer
(get-buffer-create "*expand-region*"))
(erase-buffer)
(transient-mark-mode 1)
(cua-mode 0)
(setq set-mark-default-inactive nil)
(deactivate-mark))
(After)