diff options
| author | Jesús <heckyel@hyperbola.info> | 2018-06-29 22:31:11 -0500 |
|---|---|---|
| committer | Jesús <heckyel@hyperbola.info> | 2018-06-29 22:31:11 -0500 |
| commit | 15ea85ee14a5c40a8ed40d66fe591fe528a8719d (patch) | |
| tree | ecb241b06ffc1a3ab3e1b275c83d761d03b35fc8 /lisp/init-gui.el | |
| download | emacs-base-15ea85ee14a5c40a8ed40d66fe591fe528a8719d.tar.lz emacs-base-15ea85ee14a5c40a8ed40d66fe591fe528a8719d.tar.xz emacs-base-15ea85ee14a5c40a8ed40d66fe591fe528a8719d.zip | |
first commit
Diffstat (limited to 'lisp/init-gui.el')
| -rw-r--r-- | lisp/init-gui.el | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/lisp/init-gui.el b/lisp/init-gui.el new file mode 100644 index 0000000..86f0177 --- /dev/null +++ b/lisp/init-gui.el @@ -0,0 +1,45 @@ +;;----------------------- +;; Remove some GUI stuff +;;----------------------- +(setq use-file-dialog nil) +(setq use-dialog-box nil) +(setq inhibit-startup-screen t) +(setq inhibit-startup-echo-area-message t) +(tool-bar-mode 0) +(set-scroll-bar-mode nil) +(menu-bar-mode 0) +(setq make-backup-files nil) + +;;---------------------------------------------------------------------------- +;; Editor configuration +;;---------------------------------------------------------------------------- +(setq indicate-empty-lines t) + +(let ((no-border '(internal-border-width . 0))) + (add-to-list 'default-frame-alist no-border) + (add-to-list 'initial-frame-alist no-border)) + +(setq frame-title-format + '((:eval (if (buffer-file-name) + (abbreviate-file-name (buffer-file-name)) + "%b")))) +;; Non-zero values for `line-spacing' can mess up ansi-term and co, +;; so we zero it explicitly in those cases. +(add-hook 'term-mode-hook + (lambda () + (setq line-spacing 0))) + +;;---------------------------------------------------------------------------- +;; Configure keys +;;---------------------------------------------------------------------------- +(global-unset-key (kbd "C-z")) ; Stops C-z from minimizing window +(global-set-key (kbd "M-<down>") (lambda () (interactive) (sanityinc/adjust-opacity nil -2))) ; M-down less visibility +(global-set-key (kbd "M-<up>") (lambda () (interactive) (sanityinc/adjust-opacity nil 2))) ; M-up more visibility +(global-set-key (kbd "M-0") (lambda () (interactive) (modify-frame-parameters nil '((alpha . 100))))) ; M-0 standard visibility +(global-set-key (kbd "<f11>") 'myemacs/toggle-fullscreen) ; F11 FullScreen +(global-set-key (kbd "s-C-+") 'sacha/increase-font-size) ; C-+ increase font size +(global-set-key (kbd "s-C--") 'sacha/decrease-font-size) ; C-- decrease font size +(global-set-key (kbd "<f12>") 'revert-buffer-no-confirm) +(global-set-key (kbd "s-h") 'global-hl-line-mode) ; Highlight current line + +(provide 'init-gui) |