From a9cd8cd3b7ece76247d96fd0ca84ce891d000dc0 Mon Sep 17 00:00:00 2001 From: rekado Date: Wed, 19 Nov 2014 13:05:25 +0100 Subject: move custom functions and key bindings to separate file --- init.el | 72 +-------------------------------------------------- lisp/init-my-stuff.el | 70 +++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 71 insertions(+), 71 deletions(-) create mode 100644 lisp/init-my-stuff.el diff --git a/init.el b/init.el index 1a46d5b..3350099 100644 --- a/init.el +++ b/init.el @@ -144,30 +144,6 @@ (centered-cursor-mode)))) (my-global-centered-cursor-mode 1) -;; http://blog.vivekhaldar.com/post/4809065853/dotemacs-extract-interactively-change-font-size -(defun my/zoom-in () - "Increase font size by 10 points" - (interactive) - (set-face-attribute 'default nil - :height - (+ (face-attribute 'default :height) - 10))) - -(defun my/zoom-out () - "Decrease font size by 10 points" - (interactive) - (set-face-attribute 'default nil - :height - (- (face-attribute 'default :height) - 10))) - -;; change font size, interactively -(global-set-key (kbd "C->") 'my/zoom-in) -(global-set-key (kbd "C-<") 'my/zoom-out) - -;; easier way to jump to other window -(global-set-key (kbd "M-o") 'other-window) - (require 'smex) (smex-initialize) (global-set-key (kbd "M-x") 'smex) @@ -186,20 +162,13 @@ (define-key key-translation-map [?\C-x] [?\C-t]) (define-key key-translation-map [?\C-t] [?\C-x]) -;; kill current buffer -(global-set-key (kbd "C-x C-k") (lambda () - (interactive) - (kill-buffer (current-buffer)))) - -;; delete up to non-whitespace character -(global-set-key (kbd "C-c d") 'hungry-delete-forward) - (load "email.el") (load "init-org.el") (load "init-ido.el") (load "init-god-mode.el") (load "init-magit.el") (load "init-eshell.el") +(load "init-my-stuff.el") ;; start in fullscreen mode (add-hook 'emacs-startup-hook (lambda () (fullscreen-mode-fullscreen))) @@ -208,31 +177,6 @@ (global-set-key (kbd "") 'backward-page) (global-set-key (kbd "") 'forward-page) - -;; http://whattheemacsd.com/key-bindings.el-01.html#disqus_thread -(require 'linum) -(global-set-key [remap goto-line] 'my/goto-line-with-feedback) -(defun my/goto-line-with-feedback () - "Show line numbers temporarily, while prompting for the line number input" - (interactive) - (let ((line-numbers-off-p (not linum-mode))) - (unwind-protect - (progn - (when line-numbers-off-p - (linum-mode 1)) - (call-interactively 'goto-line)) - (when line-numbers-off-p - (linum-mode -1))))) - -(defun ssh-dtach (host) - "Open SSH connection to HOST and start dtach session." - (interactive) - (let ((explicit-shell-file-name "dtach") - (explicit-dtach-args '("-A" "/tmp/emacs.dtach" "-z" - "/bin/bash" "--noediting" "-login")) - (default-directory (format "/ssh:%s:" host))) - (shell (format "*ssh %s*" host)))) - ;; show time and date in modeline (display-time-mode 1) (setq display-time-day-and-date t) @@ -247,15 +191,6 @@ (global-prettify-symbols-mode) -(defun my/new-empty-buffer () - "Open a new empty buffer." - (interactive) - (let ((buf (generate-new-buffer "untitled"))) - (switch-to-buffer buf) - (funcall (and initial-major-mode)) - (setq buffer-offer-save t))) -(global-set-key (kbd "C-c n") 'my/new-empty-buffer) - (delete-selection-mode 1) ; delete seleted text when typing (column-number-mode 1) ; show column position of point in status bar @@ -263,8 +198,3 @@ (global-hl-line-mode 1) ; turn on highlighting current line (set-face-background 'hl-line "#222") (set-face-attribute hl-line-face nil :underline nil) -(defun my/find-user-init-file () - "Edit the `user-init-file', in another window." - (interactive) - (find-file-other-window user-init-file)) -(global-set-key (kbd "C-c I") 'my/find-user-init-file) diff --git a/lisp/init-my-stuff.el b/lisp/init-my-stuff.el new file mode 100644 index 0000000..2dcc186 --- /dev/null +++ b/lisp/init-my-stuff.el @@ -0,0 +1,70 @@ +(defun my/find-user-init-file () + "Edit the `user-init-file', in another window." + (interactive) + (find-file-other-window user-init-file)) +(global-set-key (kbd "C-c I") 'my/find-user-init-file) + +(defun my/new-empty-buffer () + "Open a new empty buffer." + (interactive) + (let ((buf (generate-new-buffer "untitled"))) + (switch-to-buffer buf) + (funcall (and initial-major-mode)) + (setq buffer-offer-save t))) +(global-set-key (kbd "C-c n") 'my/new-empty-buffer) + +;; http://whattheemacsd.com/key-bindings.el-01.html#disqus_thread +(require 'linum) +(defun my/goto-line-with-feedback () + "Show line numbers temporarily, while prompting for the line number input" + (interactive) + (let ((line-numbers-off-p (not linum-mode))) + (unwind-protect + (progn + (when line-numbers-off-p + (linum-mode 1)) + (call-interactively 'goto-line)) + (when line-numbers-off-p + (linum-mode -1))))) +(global-set-key [remap goto-line] 'my/goto-line-with-feedback) + +;; kill current buffer +(global-set-key (kbd "C-x C-k") (lambda () + (interactive) + (kill-buffer (current-buffer)))) + +;; delete up to non-whitespace character +(global-set-key (kbd "C-c d") 'hungry-delete-forward) + +(defun ssh-dtach (host) + "Open SSH connection to HOST and start dtach session." + (interactive) + (let ((explicit-shell-file-name "dtach") + (explicit-dtach-args '("-A" "/tmp/emacs.dtach" "-z" + "/bin/bash" "--noediting" "-login")) + (default-directory (format "/ssh:%s:" host))) + (shell (format "*ssh %s*" host)))) + +;; http://blog.vivekhaldar.com/post/4809065853/dotemacs-extract-interactively-change-font-size +(defun my/zoom-in () + "Increase font size by 10 points" + (interactive) + (set-face-attribute 'default nil + :height + (+ (face-attribute 'default :height) + 10))) + +(defun my/zoom-out () + "Decrease font size by 10 points" + (interactive) + (set-face-attribute 'default nil + :height + (- (face-attribute 'default :height) + 10))) + +;; change font size, interactively +(global-set-key (kbd "C->") 'my/zoom-in) +(global-set-key (kbd "C-<") 'my/zoom-out) + +;; easier way to jump to other window +(global-set-key (kbd "M-o") 'other-window) -- cgit v1.2.3