;; Time-stamp: <2019-11-05 15:36:26 (tslil@basingstoke)>

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

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

(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-i" . shift-number-up)
         ("C-c S-d" . shift-number-down)))

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

(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 t
        electric-pair-preserve-balance t
        electric-pair-skip-whitespace t))

(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 lua-mode
  :ensure t
  :defer t
  :bind (:map lua-mode-map
              ("C-c C-e" . lua-send-current-line)
              ("C-c C-f" . lua-send-defun)
              ("C-c C-s" . lua-send-region)
              ("M-n" . lua-forward-sexp)
              ("M-p" . lua-backwards-to-block-begin-or-end))
  :hook (lua-mode . (lambda ()
                      (use-package company-lua :ensure t)
                      (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
              ("C-c C-c" . rust-compile))
  :hook (rust-mode . (lambda ()
                       (flycheck-mode)
                       (flycheck-rust-setup))))