-
Notifications
You must be signed in to change notification settings - Fork 5
Expand file tree
/
Copy pathinterface.el
More file actions
60 lines (51 loc) · 2.14 KB
/
Copy pathinterface.el
File metadata and controls
60 lines (51 loc) · 2.14 KB
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
(require 'uniquify)
(global-set-key (kbd "C-s-F") 'toggle-frame-fullscreen)
(column-number-mode 1)
(global-font-lock-mode 1)
(global-hl-line-mode -1)
(menu-bar-mode -1)
(show-paren-mode -1)
(set-fringe-mode '(8 . 0))
;; Echo-area/minibuffer text otherwise sits one left-fringe (a full
;; column) right of where the mode-line strip starts, which reads as a
;; stray indent under the mode-line. Window-level fringe settings beat
;; the frame default, so zeroing the minibuffer window's fringes
;; aligns the echo area flush while leaving `set-fringe-mode' and
;; spacious-padding's fringes alone everywhere else. Every frame owns
;; a minibuffer window, so cover existing frames and each new one.
(defun m/flush-minibuffer-fringes (&optional frame)
"Remove the fringes of FRAME's minibuffer window."
(set-window-fringes (minibuffer-window frame) 0 0))
(add-hook 'after-make-frame-functions #'m/flush-minibuffer-fringes)
(mapc #'m/flush-minibuffer-fringes (frame-list))
(pixel-scroll-precision-mode 1)
(winner-mode 1)
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(if (fboundp 'tooltip-mode) (tooltip-mode -1))
;; Clear minibuffer after startup
(add-hook 'emacs-startup-hook (lambda () (message "")))
(setq-default cursor-in-non-selected-windows nil)
(setq display-time-24hr-format t
display-time-default-load-average nil
frame-title-format nil
Info-use-header-line nil
isearch-lazy-highlight nil
max-mini-window-height 0
pop-up-windows nil
ring-bell-function 'ignore
show-paren-style 'parenthesis
show-paren-delay 0
show-trailing-whitespace t
uniquify-buffer-name-style 'forward
uniquify-ignore-buffers-re "^\\*"
x-select-enable-clipboard t
xterm-mouse-mode t)
(setq-default mode-line-position
'((-3 "%p") (size-indication-mode ("/" (-4 "%I")))
" "
(line-number-mode
("%l" (column-number-mode ":%c")))))
;; remove $ at end of truncated lines
;; http://stackoverflow.com/questions/8370778/remove-glyph-at-end-of-truncated-lines
(set-display-table-slot standard-display-table 0 ?\ )