Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 42 lines (32 sloc) 1.383 kB
9da2cb1 @hyone Initial Commit.
authored
1 ;; minimal settings for plain emacs
2
3 ;;-----------------------------------------------------------------------
4 ;; Settings of load-path
5 ;;-----------------------------------------------------------------------
6
7 (defun filter (condp lst)
8 (delq nil
9 (mapcar (lambda (x) (and (funcall condp x) x)) lst)))
10
11 (defun walk-directory (dir action)
12 (funcall action dir)
13 (mapcar (lambda (x)
14 (walk-directory x action))
15 (filter 'file-directory-p
16 (directory-files dir t "^[^\\.]" t))))
17
18 (defvar hyone:emacs-home (expand-file-name "~/etc/emacs/")
19 "Root directory for emacs configuration files")
20
21 ;; set load-path recursively from site-lisp root directory
22 (let ((root (expand-file-name "site-lisp" hyone:emacs-home)))
23 (when (file-directory-p root)
24 (walk-directory root
25 (lambda (d)
26 (setq load-path (cons d load-path))))))
27
28 (add-to-list 'load-path (expand-file-name "etc" hyone:emacs-home))
29
30 ;;-----------------------------------------------------------------------
31 ;; Keybinds
32 ;;-----------------------------------------------------------------------
33
34 (require 'hyone-util)
35 (global-set-key (kbd "C-h") 'delete-backward-char)
36 (global-set-key (kbd "C-w") 'hyone:backward-kill-word-like-vim-or-region)
37 (global-set-key (kbd "C-u") 'hyone:backward-kill-line)
38
39 (when (eq window-system 'ns)
40 ; use command key as Meta
41 (setq ns-command-modifier 'meta))
Something went wrong with that request. Please try again.