;; 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)))
* 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
(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)
(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