config/emacs
config/emacs
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Small modeline additions and moved some key-bindings

Browse Source
This commit is contained in:
Wojciech Kozlowski 2017-08-27 23:25:14 +01:00
parent de1f2cdab4
commit dd52b1855a
2 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
init.el
View File

@ -50,6 +50,11 @@
(setq-default linum-format "%4d \u2502") ;; Line number format (setq-default linum-format "%4d \u2502") ;; Line number format
(add-hook 'prog-mode-hook 'linum-mode) ;; Only in programming modes (add-hook 'prog-mode-hook 'linum-mode) ;; Only in programming modes
;; Modeline -----------------------------------------------------------------
(size-indication-mode 1)
(column-number-mode 1)
;; Theme -------------------------------------------------------------------- ;; Theme --------------------------------------------------------------------
;; Add the necessary paths. ;; Add the necessary paths.
@ -171,6 +176,14 @@
;; Change active window. More convenient than "C-x o". ;; Change active window. More convenient than "C-x o".
(global-set-key (kbd "M-o") 'other-window) (global-set-key (kbd "M-o") 'other-window)
;; Scroll up/down.
(global-set-key (kbd "C-<") (lambda() (interactive)
(let ((scroll-preserve-screen-position nil))
(scroll-down 1))))
(global-set-key (kbd "C->") (lambda() (interactive)
(let ((scroll-preserve-screen-position nil))
(scroll-up 1))))
;; Setup key-bindings for switching between themes. ;; Setup key-bindings for switching between themes.
(global-set-key (kbd "C-x t l") '(lambda () (interactive) (global-set-key (kbd "C-x t l") '(lambda () (interactive)
(load-theme 'havoc-light t) (load-theme 'havoc-light t)
@ -211,4 +224,4 @@
(setq-default max-specpdl-size 20000) ;; ~15x original value (setq-default max-specpdl-size 20000) ;; ~15x original value
(setq-default max-lisp-eval-depth 24000) ;; 30x orignal value (setq-default max-lisp-eval-depth 24000) ;; 30x orignal value
) ;; Reset garbage collection settings. ) ;; Reset garbage collection settings.

4
modules/editing.el
View File

@ -222,8 +222,4 @@
;; Occur. More convenient than "M-s o" ;; Occur. More convenient than "M-s o"
(global-set-key (kbd "M-s M-o") 'occur) (global-set-key (kbd "M-s M-o") 'occur)
;; Scroll up/down.
(global-set-key (kbd "C-<") (lambda() (interactive) (scroll-down 1)))
(global-set-key (kbd "C->") (lambda() (interactive) (scroll-up 1)))
) )