;; Time-stamp: <2020-04-24 14:51:05 (tslil@bison)>

;; -----------------------------------------------------------------------------
;; General setup

;; Always split horizontally when compiling
;; (defadvice compile (around split-horizontally activate)
;;   (let ((split-width-threshold 0)
;;         (split-height-threshold nil))
;;     ad-do-it))

;; Resize to fill column (and a little bit)
(defadvice compile (after resize-window-properly activate)
  (let ((ww (window-width)))
    (when (< ww (+ 5 fill-column))
      (enlarge-window-horizontally (- (+ 5 fill-column) ww)))))

(defun programming-setup ()
  (subword-mode 1)
  (electric-pair-local-mode)
  ;; Emacs25 compat
  (if (fboundp 'display-line-numbers-mode)
      (display-line-numbers-mode)
    (linum-mode))
  (setq auto-hscroll-mode t))

(add-hook 'prog-mode-hook #'programming-setup)

;; -----------------------------------------------------------------------------
;; Specific packages

(use-package shift-number
  :ensure t
  :bind (("C-c s p" . shift-number-up)
         ("C-c s n" . shift-number-down)))

(use-package comment-dwim-2
  :ensure t
  :bind (("M-;" . comment-dwim-2))
  :config (setq comment-multi-line t))

(use-package aggressive-indent
  :ensure t
  :defer t)

(use-package yasnippet
  :ensure t
  :defer t)

(use-package elec-pair
  :defer t
  :config
  (setq electric-pair-delete-adjacent-pairs t
        electric-pair-skip-self 'electric-pair-default-skip-self
        electric-pair-preserve-balance t
        electric-pair-skip-whitespace t
        electric-pair-inhibit-predicate 'electric-pair-default-inhibit))

(use-package js-comint
  :ensure t
  :defer t
  :config
  (setq js-comint-program-command "node"
        js-comint-program-arguments nil))

(use-package js2-mode
  :ensure t
  :defer t
  :after js-comint
  :mode "\\.js$"
  :bind (:map js2-mode-map
              ("TAB" . js2-indent-line)
              ("C-x C-e" . js-send-last-sexp)
              ("C-c C-b" . js-send-buffer)
              ("C-c C-l" . js-load-file))
  :hook (js2-mode . (lambda ()
                      (auto-revert-mode -1)
                      (yas-minor-mode-on))))

(use-package nodemcu-mode
  :ensure t
  :defer t
  :config
  (setq nodemcu-default-keybindings t
        nodemcu-port "/dev/ttyUSB0"
        nodemcu-backend "nodemcu-uploader")

  (defun nodemcu-better-upload-current-file (&optional noreset)
    (interactive "P")
    (let ((proc (get-process "nodemcu-terminal")))
      (when proc
        (delete-process proc))
      (shell-command
       (nodemcu--get-command "upload" (file-name-nondirectory (buffer-file-name))))
      (unless noreset
        (shell-command
         (nodemcu--get-command "node restart"))
        (when proc
          (nodemcu-terminal))))))

(use-package lua-mode
  :after nodemcu-mode
  :ensure t
  :defer t
  :bind (:map lua-mode-map
              ("C-x C-e" . lua-send-current-line)
              ("C-c C-d" . lua-send-defun)
              ("C-c C-e" . lua-send-region)
              ("C-c C-u" . nodemcu-better-upload-current-file)
              ("C-c C-t" . nodemcu-terminal)
              ("M-n" . lua-forward-sexp)
              ("M-p" . lua-backwards-to-block-begin-or-end))
  :hook (lua-mode . (lambda ()
                      (require 'nodemcu-mode)
                      (use-package company-lua :ensure t :demand)
                      (nodemcu-mode 1)
                      (add-to-list 'company-backends 'company-lua))))

;; What are these?
;; (setq gdb-show-threads-by-default nil
;;       gdb-many-windows nil
;;       gdb-show-main nil)


(use-package flycheck
  :defer t
  :ensure t)

(use-package irony
  :ensure t
  :defer t
  :hook (lambda ()
          (irony-cdb-autosetup-compile-options)
          (company-irony-setup-begin-commands)))

(use-package cc-mode
  :defer t
  :config
  (c-set-offset 'case-label '+)
  (setq-default c-basic-offset 2))

(add-hook 'c-mode-hook
          (lambda ()
            (irony-mode)
            (abbrev-mode 0)
            (flycheck-mode)
            (flycheck-irony-setup)
            (c-toggle-hungry-state 1)
            (c-toggle-electric-state 1)
            (c-toggle-syntactic-indentation 1)))

(use-package flycheck-rust
  :after flycheck
  :ensure t
  :defer t)

(use-package rust-mode
  :ensure t
  :defer t
  :bind (:map rust-mode-map
              ("M-," . lh-backward-delim)
              ("M-." . lh-forward-delim)
              ("M-/" . lh-matching-delim)
              ("M-p" . beginning-of-defun)
              ("M-n" . end-of-defun)
              ("C-c C-c" . rust-compile)
              ("C-c C-r" . rust-run))
  :hook (rust-mode . (lambda ()
                       ;; For some reason this is not automatic
                       (setq-local electric-pair-pairs
                                   (cons '(?' . ?') electric-pair-pairs))
                       ;; Pair {} in rust format strings ... ?
                       (setq-local electric-pair-text-pairs
                                   (cons '(?{ . ?}) electric-pair-pairs))
                       (flycheck-rust-setup)))
  :config
  (setq rust-indent-offset 4
        rust-indent-method-chain t
        rust-indent-where-clause t
        rust-format-on-save t))

(use-package verilog-mode
  :ensure t
  :defer t
  :mode "\\.vl$"
  :hook (verilog-mode . (lambda ()
                          (setq verilog-tool 'verilog-compiler)
                          (verilog-set-compile-command)))
  :config
  (setq-default verilog-compiler "iverilog"
                verilog-tool 'verilog-compiler))