         narrow-to-region
         dired-find-alternate-file))
 
+(defalias 'yes-or-no-p 'y-or-n-p)
+
 (defun hook-all (f &rest hs) "Add F for all HS." (mapc (lambda (h) (add-hook h f)) hs))
 (defun add-hooks (h &rest fs) "Add to H all FS." (mapc (lambda (f) (add-hook h f)) fs))
 

(use-package zzz-to-char
  :bind ("M-z" . zzz-to-char))

(use-package whitespace-cleanup-mode
  :config (global-whitespace-cleanup-mode))

;;;;;;;;;;;;;;;

 ;; package
 '(package-enable-at-startup nil)
 '(package-selected-packages
   '(ace-window aggressive-indent avy benchmark-init browse-kill-ring cargo cdlatex centered-cursor-mode cider-eval-sexp-fu clj-refactor company-auctex company-math company-quickhelp counsel csv-mode ediprolog elpy ess exec-path-from-shell expand-region fix-word flx flycheck-pos-tip flycheck-rust geiser hungry-delete haskell-mode idris-mode js2-mode kibit-helper latex-preview-pane magit markdown-mode+ powerline projectile quack racer rainbow-delimiters rainbow-mode region-bindings-mode smartparens undo-tree use-package visual-regexp which-key whitespace-cleanup-mode zenburn-theme zzz-to-char)))

(mapc (lambda (cmd) (put cmd 'disabled nil))
      ;; enable some disabled commands
