   (global-set-key (kbd "C-c C-g") 'ace-jump-line-mode))
 
 ;; expand-region
-(setup-lazy '(er/expand-region) "expand-region")
+(setup-lazy '(er/expand-region er/contract-region) "expand-region")
 (global-set-key (kbd "<C-prior>") 'er/expand-region)
 (global-set-key (kbd "<C-next>") 'er/contract-region)
 

        (goto-char vispos)
      (when (= oldpos (point))
        (beginning-of-line)))))
(global-set-key "\C-a" 'smart-beginning-of-line)

(defun smart-end-of-line ()
  "Move point to end of visual line or, if already there, to end of logical line."

  (setq guide-key/popup-window-position 'bottom))


;; smartarens
(setup "smartparens-config"
  (smartparens-global-mode t)
  (show-smartparens-global-mode t)
