My name is Henrik and I'm an emacs addict. (Hello Henrik)

init/core-editor.el

@@ -0,0 +1,173 @@
+;; Global editor behavior
+(electric-indent-mode 1)
+(setq electric-indent-chars '(?  ?: ?{))
+(add-hook! 'org-mode-hook (electric-indent-mode -1))
+
+(add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
+
+(setq-default fill-column 80)
+;; Sane scroll settings
+(setq scroll-margin 5)
+(setq scroll-conservatively 9999)
+(setq scroll-preserve-screen-position 1)
+;; I'll use visual mode, kthxbai
+(setq shift-select-mode nil)
+
+;;;; Modes 'n hooks ;;;;;;;;;;;;;;;;;
+(associate-mode "/LICENSE[^/]*$"                     'text-mode)
+(associate-mode "zsh\\(env\\|rc\\)?$"                'sh-mode)
+(associate-mode "z\\(profile\\|login\\|logout\\)?$"  'sh-mode)
+(associate-mode "zsh/"                               'sh-mode)
+(associate-mode "\\.applescript$"                    'applescript-mode)
+(associate-mode "Cask$"                              'emacs-lisp-mode)
+(associate-mode "\\.el\\.gz$"                        'emacs-lisp-mode)
+(associate-mode "/Makefile$"                         'makefile-gmake-mode)
+(associate-mode "\\.plist$"                          'nxml-mode)
+
+(add-hook 'help-mode-hook 'visual-line-mode)
+(add-hook 'before-save-hook 'delete-trailing-whitespace)
+
+;; (setenv "SHELL" (s-trim (shell-command-to-string "which zsh")))
+(setenv "SHELL" "/usr/local/bin/zsh")
+(setenv "EMACS" "1")
+
+;; show-paren faces
+(set-face-background 'show-paren-match nil)
+(set-face-foreground 'show-paren-match "orange")
+(set-face-attribute 'show-paren-match nil :weight 'extra-bold)
+(setq show-paren-delay 0)
+
+(let ((face 'evil-search-highlight-persist-highlight-face))
+  (set-face-attribute face nil :inherit 'isearch-lazy-highlight-face)
+  (set-face-foreground face nil)
+  (set-face-background face nil))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(use-package smartparens
+  :config
+  (progn
+    (require 'smartparens-config)
+    (smartparens-global-mode 1)
+
+    (setq blink-matching-paren t)
+    (setq sp-autowrap-region nil            ; let evil-surround handle this
+          sp-highlight-pair-overlay nil
+          sp-show-pair-delay 0
+          sp-autoescape-string-quote nil)
+
+    ;; Handle newlines + spaces
+    (sp-pair "{" "}" :post-handlers '(("||\n[i]" "RET") ("| " " ")) :unless '(sp-point-before-word-p sp-point-before-same-p))
+    (sp-pair "(" ")" :post-handlers '(("||\n[i]" "RET") ("| " " ")) :unless '(sp-point-before-word-p sp-point-before-same-p))
+
+    ;; Auto-close more conservatively
+    (sp-pair "[" nil  :unless '(sp-point-before-word-p sp-point-before-same-p))
+    (sp-pair "'" nil  :unless '(sp-point-after-word-p sp-point-before-word-p sp-point-before-same-p))
+    (sp-pair "\"" nil :unless '(sp-point-after-word-p sp-point-before-word-p sp-point-before-same-p))
+
+    (sp-with-modes '(json-mode js2-mode ruby-mode enh-ruby-mode python-mode)
+      (sp-local-pair "[" nil :post-handlers '(("||\n[i]" "RET"))))
+
+    (sp-with-modes '(c-mode c++-mode objc-mode java-mode scss-mode css-mode php-mode)
+      (sp-local-pair "/* " " */" :post-handlers '(("||\n[i]" "RET")))
+      (sp-local-pair "/**" "*/" :post-handlers '(("||\n[i]" "RET"))))
+
+    (sp-with-modes '(objc-mode scss-mode css-mode)
+      (sp-local-pair "/*\n" "\n */" :post-handlers '(("||[i]" "RET"))))
+
+    (sp-with-modes '(c-mode c++-mode php-mode java-mode)
+      (sp-local-pair "/*" "" :post-handlers '((" ||\n[i]*/" "RET"))))
+
+    (after "yasnippet"
+      (defadvice yas-expand (before advice-for-yas-expand activate)
+        (sp-remove-active-pair-overlay)))))
+
+(use-package rotate-text
+  :commands (rotate-word-at-point rotate-region))
+
+(use-package smart-forward
+  :commands (smart-up smart-down smart-left smart-right))
+
+(use-package expand-region
+  :commands (er/expand-region er/contract-region))
+
+(use-package hl-todo
+  :commands hl-todo-mode
+  :init (add-hook 'prog-mode-hook 'hl-todo-mode))
+
+(use-package emr
+  :commands (emr-initialize emr-show-refactor-menu)
+  :config   (bind popup-menu-keymap [escape] 'keyboard-quit))
+
+(use-package dash-at-point
+  :if is-mac
+  :commands (dash-at-point dash-at-point-with-docset)
+  :config
+  (add-to-list 'dash-at-point-mode-alist
+               '(java-mode . "java,droid,javafx,grails,groovy,playjava,spring,cvj,processing,javadoc")))
+
+(use-package rainbow-delimiters
+  :commands rainbow-delimiters-mode
+  :init (add-hooks '(emacs-lisp-mode-hook js2-mode-hook scss-mode-hook)
+                   'rainbow-delimiters-mode)
+  :config
+  (progn
+    (setq rainbow-delimiters-outermost-only-face-count 1)
+    (set-face-attribute 'rainbow-delimiters-depth-1-face nil
+                        :foreground 'unspecified
+                        :inherit 'my-outermost-paren-face)))
+
+(use-package yaml-mode
+  :mode "\\.ya?ml$"
+  :init (add-hook 'yaml-mode-hook 'enable-tab-width-2))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(progn ; Code building
+  (defvar my-build-command '("make %s" . "Makefile"))
+  (make-variable-buffer-local 'my-build-command)
+
+  (defun set-build-command (command &optional file)
+    (when (or (null file)
+              (project-has-files file))
+      (setq my-build-command `(,command . ,file))))
+
+  (evil-define-command my:build (arg)
+    "Call a build command in the current directory.
+If ARG is nil this function calls `recompile', otherwise it calls
+`compile' passing ARG as build command."
+    (interactive "<sh>")
+    (when (null my-build-command)
+      (user-error "No build command was set"))
+    (let ((build-file (cdr my-build-command))
+          (build-cmd (car my-build-command)))
+      (if (project-has-files build-file)
+          (compile (format "cd '%s' && %s" build-file (format build-cmd (or arg ""))))
+        (error "Could not find Makefile")))))
+
+(progn ; Code running
+  (evil-define-operator my:eval-region (beg end)
+    :move-point nil
+    (interactive "<r>")
+    (cond ((eq major-mode 'emacs-lisp-mode)
+           (eval-region beg end))
+          (t
+           (let ((interp (my--get-interpreter))
+                 (max-mini-window-height 1))
+             (when interp (shell-command-on-region beg end interp))))))
+
+  (evil-define-command my:eval-buffer ()
+    (interactive)
+    (cond ((eq major-mode 'emacs-lisp-mode)
+           (eval-buffer))
+          (t
+           (let ((interp (my--get-interpreter))
+                 (max-mini-window-height 1))
+             (when interp (shell-command-on-region (point-min) (point-max) interp))))))
+
+  (defun my--get-interpreter ()
+    (car (--first (eq (cdr it) major-mode) interpreter-mode-alist))))
+
+
+(provide 'core-editor)
+;;; core-editor.el ends here