;;== Defuns =======================================
(defun nk-edit-with-message (msg)
  (let ((pos1 (point)))
    (insert msg "(nknight): ")
    (message "M-C-c when finished")
    (recursive-edit)
    (comment-region pos1 (point))))

(defun tdnk ()
  (interactive)
  (nk-edit-with-message "TODO"))

(defun qnk ()
  (interactive)
  (nk-edit-with-message "QUESTION"))

(defun nnk ()
  (interactive)
  (nk-edit-with-message "NOTE"))

(defun pysum (&optional arg)
  (interactive)
  (if arg
	  (occur "^ *\\(class \\|def \\)" arg)
	(occur "^ *\\(class \\|def \\)")))

(defun gosum (&optional arg)
  (interactive)
  (if arg
      (occur "^ *\\(type \\|func \\)" arg))
  (occur "^ *\\(type \\|func \\)"))

(defun widen-in-indirect-buffer ()
  (interactive)
  (let* ((bname (buffer-name))
         (tmp-bname (concat "tmp-<" bname ">")))
    (clone-indirect-buffer tmp-bname nil)
    (switch-to-buffer tmp-bname nil t))
  (widen))


(defun shell-command-to-string-strip (cmd)
  (replace-regexp-in-string
   (rx (one-or-more (any "\n" "\r")) eol)
   ""
   (shell-command-to-string cmd)))

(defun replace-quotes ()
  (interactive)
  (let ((start (region-beginning))
        (end (region-end)))
    (replace-string "'" "\"" nil start end)))


;;== Packages =======================================
(require 'package)
(setq package-archives
      '(("gnu" . "http://elpa.gnu.org/packages/")
		("melpa" . "http://melpa.milkbox.net/packages/")))

(package-initialize)

(defvar my-packages
  '(
    company
    company-go
    company-jedi
    flycheck
    go-mode
    magit
    markdown-mode
    paredit
    pyvenv
    shift-number
    toml-mode
    web-mode
    writeroom-mode
    g)
  )

(dolist (p my-packages)
  (when (not (package-installed-p p))
    (package-install p)))


;;== Company config ======================
(defun init-company-backend (backend)
  (if (and (boundp 'company-backends) (listp company-backends))
      (add-to-list 'company-backends backend)
    (setq company-backends (list backend))))

(init-company-backend 'company-jedi)
(init-company-backend 'company-go)


;;== Keyboard Shortcuts ==========================
(global-set-key (kbd "C-c r") 'replace-regexp)
(global-set-key (kbd "C-c C-w") 'whitespace-cleanup)
(global-set-key (kbd "C-c C-q") 'replace-quotes)
(global-set-key (kbd "C-x g") 'magit-status)
(global-set-key (kbd "<f5>") 'recompile)
(global-set-key (kbd "<f7>") 'shift-number-up)
(global-set-key (kbd "<f6>") 'shift-number-down)



;;== Behaviour ===================================
(tool-bar-mode -1)
(scroll-bar-mode -1)
(menu-bar-mode -1)
(setq-default
 inhibit-splash-screen t
 confirm-kill-emacs 'yes-or-no-p
 column-number-mode t
 show-paren-mode t
 default-tab-width 4
 make-backup-files nil
 indent-tabs-mode nil
 tab-stop-list '(0 4 8))
(put 'narrow-to-region 'disabled nil)
(windmove-default-keybindings)
(setq tramp-default-method "ssh")
(global-magit-file-mode)


;;== Org Mode Setup ================================
(setq org-startup-indented t)
(setq org-export-with-toc nil)

;;== Tramp Settings ===============================


;;== File & Mode Hooks ============================
(add-hook 'haskell-mode-hook 'intero-mode)
(add-hook 'scheme-mode-hook #'paredit-mode)
(add-hook 'emacs-lisp-mode-hook #'paredit-mode)
(add-hook 'clojure-mode-hook #'paredit-mode)
(add-hook 'python-mode-hook #'flycheck-mode)
(add-hook 'sh-mode-hook #'flycheck-mode)
(add-hook 'racket-mode #'paredit-mode)
(setq flycheck-sh-shellcheck-executable "/usr/local/bin/shellcheck")
(setq flycheck-python-flake8-executable "/usr/local/bin/flake8")
(setq python-shell-interpreter "/usr/local/bin/python3")
(setq web-mode-script-padding 4)

(add-to-list 'auto-mode-alist '("\\.(md|markdown)\\'" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.(py)\\'". python-mode))
(add-to-list 'auto-mode-alist '("\\.ts\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.tsx\\'" . web-mode))

(gofmt-before-save)

(add-hook 'after-init-hook 'global-company-mode)


;;== Mac settings =================================
(setq mac-command-key-is-meta t)
(setq mac-command-modifier 'meta)
(setq ispell-program-name (shell-command-to-string-strip "which ispell"))
(setq ring-bell-function #'ignore)



;;== `custom` settingsa============================
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ansi-color-faces-vector
   [default bold shadow italic underline bold bold-italic bold])
 '(ansi-color-names-vector
   (vector "#839496" "#dc322f" "#859900" "#b58900" "#268bd2" "#d33682" "#2aa198" "#eee8d5"))
 '(compilation-environment
   (quote
    ("PATH=/usr/local/go/bin/:/usr/local/bin:/usr/bin:/bin:/usr/sbin:/sbin:/Applications/Emacs.app/Contents/MacOS/bin-x86_64-10_9:/Applications/Emacs.app/Contents/MacOS/libexec-x86_64-10_9")))
 '(custom-enabled-themes (quote (sanityinc-solarized-light)))
 '(custom-safe-themes
   (quote
    ("4cf3221feff536e2b3385209e9b9dc4c2e0818a69a1cdb4b522756bcdf4e00a4" "e97dbbb2b1c42b8588e16523824bc0cb3a21b91eefd6502879cf5baa1fa32e10" "4aee8551b53a43a883cb0b7f3255d6859d766b6c5e14bcb01bed572fcbef4328" default)))
 '(fci-rule-color "#073642")
 '(vc-annotate-background nil)
 '(vc-annotate-color-map
   (quote
    ((20 . "#dc322f")
     (40 . "#cb4b16")
     (60 . "#b58900")
     (80 . "#859900")
     (100 . "#2aa198")
     (120 . "#268bd2")
     (140 . "#d33682")
     (160 . "#6c71c4")
     (180 . "#dc322f")
     (200 . "#cb4b16")
     (220 . "#b58900")
     (240 . "#859900")
     (260 . "#2aa198")
     (280 . "#268bd2")
     (300 . "#d33682")
     (320 . "#6c71c4")
     (340 . "#dc322f")
     (360 . "#cb4b16"))))
 '(vc-annotate-very-old-color nil))
;; (color-theme-sanityinc-solarized-dark)

(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )

(server-start)