; init.el --- Summary: Emacs
;;; Commentary:
;;; First Emacs install date: 04/30/2019
;;; To install config
;;; list-package RET package-install use-package RET
;;; To update packages:
;;; M-x list-packages U-x
;;; Code:
(require 'package)
(add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))
(setq package-enable-at-startup nil)
(package-initialize)
;; (set-face-attribute 'default nil :height 130) ;; sets global font size
;; Setup use-package
;; https://github.com/jwiegley/use-package
(eval-when-compile (require 'use-package))
;; Always download packages that are not found
(setq use-package-always-ensure t)
;; Sync emacs path and shell path
(use-package exec-path-from-shell
:config
(when (memq window-system '(mac ns x))
(exec-path-from-shell-initialize)))
;; Setup helm
(use-package helm
:config
(helm-mode 1)
(helm-autoresize-mode t)
(setq helm-buffer-max-length nil))
;; Setup magit
(use-package magit)
;; Setup leader keys (TODO: switch to general.el)
(use-package evil-leader
:init
(setq evil-want-keybinding nil)
:config
(global-evil-leader-mode)
(evil-leader/set-leader "SPC")
(evil-leader/set-key
"RET" 'eshell
"x" 'helm-M-x
"b" 'helm-mini ;; In helm mini, use C-SPC to select buffers, M-D to kill all marked
"d" (lambda() (interactive) (load-theme 'spacemacs-dark))
"l" (lambda() (interactive) (load-theme 'spacemacs-light))
"f" 'helm-find-files
"s" 'rg-project
"j" 'other-window
"o" 'delete-other-windows
"g" 'magit-status
"k" (lambda() (interactive) (kill-buffer nil))
"r" (lambda() (interactive) (load-file "~/.emacs.d/init.el"))
"e" (lambda() (interactive) (find-file "~/.emacs.d/init.el"))
"C-i" (lambda() (interactive) (switch-to-buffer nil))) ;; C-i is tab
)
;; Setup evil
(use-package evil
:ensure t
:config
(evil-mode 1))
(use-package evil-collection
:after evil
:ensure t
:config
(evil-collection-init))
;; Setup theme and powerline
(use-package spacemacs-theme
:defer t
:init (load-theme 'spacemacs-light t))
(use-package spaceline
:config
(require `spaceline-config)
(spaceline-emacs-theme))
(use-package dockerfile-mode)
(defun eglot-format-buffer-on-save ()
(add-hook 'before-save-hook #'eglot-format-buffer -10 t))
;; https://github.com/casouri/tree-sitter-module
(add-to-list 'treesit-extra-load-path (concat (getenv "HOME") "/package/tree-sitter-module/dist"))
(use-package elixir-ts-mode
:ensure t
:config
(add-hook 'elixir-ts-mode-hook #'eglot-format-buffer-on-save)
)
(use-package inf-elixir)
;; :bind (("C-c i i" . 'inf-elixir)
;; ("C-c i p" . 'inf-elixir-project)
;; ("C-c i l" . 'inf-elixir-send-line)
;; ("C-c i r" . 'inf-elixir-send-region)
;; ("C-c i b" . 'inf-elixir-send-buffer)
;; ("C-c i R" . 'inf-elixir-reload-module)))
(require 'eglot)
(dolist (mode '(elixir-ts-mode heex-ts-mode))
(add-to-list 'eglot-server-programs `(,mode . ("/Users/nicolasknoebber/package/elixir-ls/language_server.sh"))))
(add-hook 'elixir-ts-mode-hook 'eglot-ensure)
(add-hook 'heex-ts-mode-hook 'eglot-ensure)
(setq eldoc-echo-area-use-multiline-p 1)
(setq js-indent-level 2)
;; Setup webmode
;; (use-package web-mode
;; :mode "\\.[tj]sx?\\'" "\\.html\\'" "\\.php\\'" "\\.tmpl\\'" "\\.erb\\'"
;; :init
;; (defun my-web-mode-hook ()
;; ;; Hooks for Web mode
;; (setq-default indent-tabs-mode nil)
;; (setq web-mode-markup-indent-offset 2)
;; (setq web-mode-code-indent-offset 2)
;; (setq web-mode-enable-auto-quoting nil))
;; (add-hook 'web-mode-hook 'my-web-mode-hook))
;; Setup linting with flycheck
;; Use 'C-c ! v' to check flycheck status in buffer.
(use-package flycheck)
(use-package rg)
(use-package htmlize)
(add-hook 'org-mode-hook 'my-org-mode-hook)
(defun my-org-mode-hook()
(flyspell-mode 1)
(auto-fill-mode 1))
;;; General config
(show-paren-mode 1)
(menu-bar-mode -1)
(tool-bar-mode -1)
(toggle-scroll-bar -1)
(setq ediff-split-window-function 'split-window-horizontally)
;; Flash the modeline instead of ringing.
(setq visible-bell nil
ring-bell-function 'flash-mode-line)
(setq user-full-name "Nicolas Knoebber")
(defun flash-mode-line ()
(invert-face 'mode-line)
(run-with-timer 0.1 nil #'invert-face 'mode-line))
;;; Enable banned commands
(put 'narrow-to-defun 'disabled nil)
(put 'narrow-to-page 'disabled nil)
(put 'narrow-to-region 'disabled nil)
;;; Don't save backup~ files in the same directory.
(setq backup-directory-alist `(("." . "~/.emacs.d/backups")))
;;; Custom functions
(defun export-nicolasknoebber ()
"Build nicolasknoebber.com."
(interactive)
(load-file "~/projects/nicolasknoebber.com/src/site.el")
(org-publish-all))
;; (setq-default org-display-custom-times nil)
;; (setq org-time-stamp-custom-formats
;; '("<%m/%d/%Y>" . "<%m/%d/%Y>"))