From 4392425517272acf008f7ee8957ddbc645d7e484 Mon Sep 17 00:00:00 2001
From: Peng Li <seudut@gmail.com>
Date: Fri, 15 Sep 2017 10:15:14 +0800
Subject: [PATCH] Emacs - Some bindings

---
 emacs.d/config.org         |  6 ++++++
 emacs.d/elisp/utilities.el | 15 +++++++++++++++
 emacs.d/emacs-evil.org     | 10 ++++++----
 3 files changed, 27 insertions(+), 4 deletions(-)

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 28a33c1..569db17 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -1987,6 +1987,8 @@ here on Mac, just use "open" commands to pen =.pdf=,  =.html= and image files
     ;; should map both (kbd "TAB") and [tab],https://github.com/company-mode/company-mode/issues/75
     (define-key company-active-map (kbd "TAB") #'company-complete-selection)
     (define-key company-active-map [tab] #'company-complete-selection)
+    (define-key company-active-map (kbd "C-w") nil)
+    (define-key company-active-map (kbd "C-h") nil)
     (global-company-mode)
     ;; magig-commit is text-modeh
     (setq company-global-modes '(not org-mode magit-status-mode text-mode eshell-mode gfm-mode markdown-mode)))
@@ -2947,6 +2949,10 @@ We can use [[https://www.gnu.org/software/emms/quickstart.html][Emms]] for multi
 
 * Key Bindings
 Here are some global key bindings for basic editting
+** Global key bingding
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (global-set-key (kbd "C-h") 'delete-backward-char)
+#+END_SRC
 ** Esc in minibuffer
 Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g=
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
diff --git a/emacs.d/elisp/utilities.el b/emacs.d/elisp/utilities.el
index aeb5a5d..7304762 100644
--- a/emacs.d/elisp/utilities.el
+++ b/emacs.d/elisp/utilities.el
@@ -56,6 +56,21 @@ one window, window undo"
       (kill-region (point) (mark))
     (backward-kill-word 1)))
 
+;; https://www.emacswiki.org/emacs/TransparentEmacs
+(defun sd/transparency (value)
+  "Sets the transparency of the frame window with a value from 0 to 100."
+  (interactive "nTransparency Value 0 - 100 opague:(default 80) ")
+  (set-frame-parameter (select-frame) 'alpha value))
+
+(defun sd/toggle-transparency ()
+  "Enable or disable transparency"
+  (interactive)
+  (let ((alpha (frame-parameter nil 'alpha)))
+    (set-frame-parameter nil 'alpha
+			 (if (eql alpha 80)
+			     100
+			   80))))
+
 
 
 (provide 'utilities)
diff --git a/emacs.d/emacs-evil.org b/emacs.d/emacs-evil.org
index fb2998a..174e05f 100644
--- a/emacs.d/emacs-evil.org
+++ b/emacs.d/emacs-evil.org
@@ -155,14 +155,16 @@ There are three kinds key bindings
             (define-key map (kbd "C--") (lambda () (interactive) (evil-window-decrease-height 3)))
             (define-key map (kbd "C-=") (lambda () (interactive) (balance-windows))))
           (list evil-normal-state-map evil-motion-state-map))
-
+    ;; normal state
     (define-key evil-normal-state-map (kbd "C-SPC") 'mode-line-other-buffer)
     (define-key evil-normal-state-map (kbd "C-;") 'previous-multiframe-window)
-
+    ;; insert state
     (define-key evil-insert-state-map (kbd "C-p") 'previous-line)
     (define-key evil-insert-state-map (kbd "C-n") 'next-line)
-    (define-key evil-insert-state-map (kbd "C-h") 'delete-backward-char))
-
+    (define-key evil-insert-state-map (kbd "C-h") 'delete-backward-char)
+    ;; motion mode
+    (define-key evil-motion-state-map (kbd "SPC") 'scroll-up-command)
+    (define-key evil-motion-state-map (kbd "S-SPC") 'scroll-down-command))
 #+END_SRC
 
 
-- 
2.11.0