contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Removed unused keybinds and code

This commit is contained in:
Kashish Sharma 2015-03-26 03:58:52 +05:30
parent b75e7dbbfc
commit 7f93a196e1
1 changed files with 0 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
init.el
View File

@ -88,7 +88,6 @@
(define-key isearch-mode-map (kbd "C-h") 'isearch-delete-char)
(global-set-key (kbd "C-y") 'whole-line-or-region-yank)
(global-set-key (kbd "M-w") 'whole-line-or-region-kill-ring-save)
;(global-set-key (kbd "C-w") 'whole-line-or-region-kill-region)
(global-set-key (kbd "C-w") 'backward-kill-word)
(global-set-key (kbd "C-x C-k C-l") 'whole-line-or-region-kill-region)
@ -99,7 +98,6 @@
(setq dired-bind-jump nil)
(global-set-key (kbd "C-x C-j") 'join-line)
(global-set-key (kbd "C-x C-b") 'eval-buffer)
(global-set-key (kbd "C-x C-l") 'helm-mini)
(defun kill-line-0 ()
@ -155,16 +153,10 @@
;(global-set-key (kbd "C-`") 'point-to-register)
;(global-set-key (kbd "C-'") 'jump-to-register)
(global-set-key (kbd "C-x C-d") 'dired-jump)
(global-set-key (kbd "C-x l") 'helm-mini)
;(global-set-key (kbd "C-x l") 'recentf-open-files)
;(global-set-key (kbd "C-x") 'backward-kill-word)
;(global-set-key (kbd "C-,") 'string-rectangle 'TAB)
(global-unset-key (kbd "C-x d"))
(global-set-key (kbd "C-x df") 'delete-frame)
;;;; make-frame key is after Helm's config
(global-set-key (kbd "C-x z") 'switch-to-buffer)
(global-set-key (kbd "C-x b") 'eval-buffer)
(global-unset-key (kbd "C-c s"))
(global-set-key (kbd "C-x O") 'org-mode)
;(setq compilation-read-command nil)
(global-set-key (kbd "M-c") 'compile)
@ -182,31 +174,6 @@
kept-old-versions 2
version-control t)
;;;; Fix multi-line indenting - thanks forcer!
;(defun hn/add-tab-in-front-of-every-line-in-region (beg end) (interactive "r")
;(save-excursion (goto-char beg) (goto-char (point-at-bol)) (while (re-search-forward "^" end t) (insert "\t"))))
;(global-set-key (kbd "C-.") 'hn/add-tab-in-front-of-every-line-in-region)
;;;; Indicate god-mode with cursor color
;(defun my-update-cursor ()
;(set-cursor-color
;(if (or god-local-mode buffer-read-only) "#ffffff" "#ff0000")))
;(add-hook 'god-mode-enabled-hook 'my-update-cursor)
;(add-hook 'god-mode-disabled-hook 'my-update-cursor)
;;;; Transparent Emacs window
;;(set-frame-parameter (selected-frame) 'alpha '(<active> [<inactive>]))
;(set-frame-parameter (selected-frame) 'alpha '(90 50))
;(add-to-list 'default-frame-alist '(alpha 90 50))
;;;; MELPA
;(require 'package)
;(add-to-list 'package-archives
; '("melpa" . "http://melpa.milkbox.net/packages/") t)
;(require 'package)
;(add-to-list 'package-archives
; '("melpa-stable" . "http://melpa-stable.milkbox.net/packages/") t)
(setq scheme-program-name "csi -:c")
(setq comint-prompt-read-only t)
@ -333,11 +300,6 @@
;;;; org
(require 'org)
; evil-ify org-mode
(define-key outline-mode-map (kbd "M-c i") 'outline-up-heading)
(define-key outline-mode-map (kbd "M-c j") 'org-backward-heading-same-level)
(define-key outline-mode-map (kbd "M-c l") 'org-forward-heading-same-level)
(define-key outline-mode-map (kbd "M-c n") 'outline-next-visible-heading)
(define-key outline-mode-map (kbd "M-c p") 'outline-previous-visible-heading)
(setq org-M-RET-may-split-line 'nil)
(add-hook 'org-mode-hook 'org-display-inline-images)