;;; languages.el --- Module file for programming language configuration.
;;
;; Copyright (C) 2019 Wojciech Kozlowski
;;
;; Author: Wojciech Kozlowski <wk@wojciechkozlowski.eu>
;; Created: 2019-07-20
;;
;; This file is not part of GNU Emacs.
;;
;;; Commentary:
;;
;; This module sets up language-specific configuration for editing source code.
;; Language-agnostic settings are in `programming.el'.
;;
;;; License: GPLv3

;;; Required packages:

;;; Code:

(defvar emodule/languages-packages

  '(;; CMake
    cmake-mode
    ;; C/C++
    ccls
    clang-format
    ;; Dockerfile
    dockerfile-mode
    ;; P4
    xcscope
    ;; PlantUML
    plantuml-mode
    ;; Protobuf
    protobuf-mode
    ;; Python
    cython-mode
    lsp-pyright
    pyvenv
    py-autopep8
    ;; Rust
    cargo
    flycheck-rust
    rust-mode
    toml-mode
    ;; YAML
    yaml-mode)

  )

;; Configuration:

(defun emodule/languages-init ()
  "Initialise the `languages' module."

  ;; -----------------------------------------------------------------------------------------------
  ;; Antlr.
  ;; -----------------------------------------------------------------------------------------------

  (use-package antlr-mode
    :init (autoload 'antlr-v4-mode "antlr-mode" nil t)
    :mode ("\\.g4\\'" . antlr-v4-mode))

  ;; -----------------------------------------------------------------------------------------------
  ;; CMake.
  ;; -----------------------------------------------------------------------------------------------

  (use-package cmake-mode
    :defer t)

  ;; -----------------------------------------------------------------------------------------------
  ;; C/C++.
  ;; -----------------------------------------------------------------------------------------------

  (use-package ccls
    :hook ((c-mode c++-mode objc-mode) .
           (lambda () (require 'ccls) (lsp))))

  (setq-default c-default-style "linux"
                c-basic-offset 4)

  (use-package clang-format
    :bind (:map c-mode-map
                ("C-c C-f" . clang-format-buffer)
           :map c++-mode-map
                ("C-c C-f" . clang-format-buffer)
           :map objc-mode-map
                ("C-c C-f" . clang-format-buffer)))

  ;; -----------------------------------------------------------------------------------------------
  ;; Dockerfile.
  ;; -----------------------------------------------------------------------------------------------

  (use-package dockerfile-mode
    :defer t)

  ;; -----------------------------------------------------------------------------------------------
  ;; JSON.
  ;; -----------------------------------------------------------------------------------------------

  (setq-default js-indent-level 2)

  ;; -----------------------------------------------------------------------------------------------
  ;; kOS.
  ;; -----------------------------------------------------------------------------------------------

  (use-package kos-mode
    :mode "\\.ks\\'")

  ;; -----------------------------------------------------------------------------------------------
  ;; LaTeX.
  ;; -----------------------------------------------------------------------------------------------

  (add-hook 'latex-mode-hook 'auto-fill-mode)

  ;; -----------------------------------------------------------------------------------------------
  ;; Makefile settings.
  ;; -----------------------------------------------------------------------------------------------

  (add-hook 'makefile-mode-hook (lambda () (setq indent-tabs-mode t)))

  ;; -----------------------------------------------------------------------------------------------
  ;; P4.
  ;; -----------------------------------------------------------------------------------------------

  ;; Note needs xcscope
  (use-package p4_16-mode
    :mode (("\\.p4\\'" . p4_16-mode)
           ("\\.p4i\\'" . p4_16-mode)))

  ;; -----------------------------------------------------------------------------------------------
  ;; PlantUML.
  ;; -----------------------------------------------------------------------------------------------

  (use-package plantuml-mode
    :mode "\\.pu\\'"
    :init
    (setq plantuml-default-exec-mode 'executable)
    (setq plantuml-output-type "png"))

  ;; -----------------------------------------------------------------------------------------------
  ;; Protobuf.
  ;; -----------------------------------------------------------------------------------------------

  (use-package protobuf-mode
    :defer t)

  ;; -----------------------------------------------------------------------------------------------
  ;; Python.
  ;; -----------------------------------------------------------------------------------------------

  (use-package cython-mode
    :defer t)

  (use-package python
    :init
    (setq python-shell-interpreter "python3")
    (defun x-lsp-disable-snippet ()
      "Set `lsp-enable-snippet' to nil in local buffer only."
      (make-local-variable 'lsp-enable-snippet)
      (setq lsp-enable-snippet nil))
    :hook
    (python-mode . (lambda ()
                     (require 'lsp-pyright)
                     (lsp)))
    (python-mode . x-lsp-disable-snippet))

  (use-package lsp-pyright
    :defer t
    :init
    (setq lsp-pyright-venv-path (concat (getenv "HOME") "/.virtualenvs")))

  (use-package py-autopep8
    ;; Note that this package require autopep8 to be installed.
    :bind (("C-c C-f" . py-autopep8-buffer)))

  (use-package pyvenv
    :commands pyvenv-create)

  ;; -----------------------------------------------------------------------------------------------
  ;; Rust.
  ;; -----------------------------------------------------------------------------------------------

  (defun rust-new-project (project-name project-type)
    (let ((rust-cargo-bin "cargo"))
      (unless (executable-find rust-cargo-bin)
        (error "Could not locate executable \"%s\"" rust-cargo-bin))

      (let* ((tmpf (make-temp-file "*cargo-new*"))
             (err-msg "")
             (ret (call-process
                   rust-cargo-bin
                   nil tmpf t
                   "new" project-name (concat "--" project-type))))

        (with-current-buffer (get-buffer-create tmpf)
          (setq err-msg (buffer-string))
          (kill-buffer))

        (unless (= ret 0)
          (error err-msg)))))

  (defun rust-new-project-bin (project-name)
    (interactive "sBinary project name: ")
    (rust-new-project project-name "bin"))

  (defun rust-new-project-lib (project-name)
    (interactive "sLibrary project name: ")
    (rust-new-project project-name "lib"))

  (use-package rust-mode
    ;; Adding the lsp hook this way is required to ensure local variables from .dir-locals.el are
    ;; passed to the LSP server.
    :hook ((hack-local-variables . (lambda () (when (derived-mode-p 'rust-mode) (lsp)))))
    :config
    (setq exec-path (append exec-path '("/home/wojtek/.cargo/bin"))))

  (use-package flycheck-rust
    :hook
    ((rust-mode . flycheck-mode)
     (flycheck-mode . flycheck-rust-setup)))

  ;; Add keybindings for interacting with Cargo
  (use-package cargo
    :hook (rust-mode . cargo-minor-mode))

  (use-package toml-mode
    :mode "\\.lock\\'")

  ;; -----------------------------------------------------------------------------------------------
  ;; YAML.
  ;; -----------------------------------------------------------------------------------------------

  (use-package yaml-mode
    :config
    (add-hook 'yaml-mode-hook 'display-line-numbers-mode))

  )

(provide 'emodule/languages)
;;; languages.el ends here