From a9cd8cd3b7ece76247d96fd0ca84ce891d000dc0 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Wed, 19 Nov 2014 13:05:25 +0100
Subject: move custom functions and key bindings to separate file

---
 init.el | 72 +----------------------------------------------------------------
 1 file changed, 1 insertion(+), 71 deletions(-)

(limited to 'init.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 "<C-prior>") 'backward-page)
 (global-set-key (kbd "<C-next>") '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)
-- 
cgit v1.2.3