#+TITLE: Languages

* Intro
  This is where Programming Language modes are configured.

* Default Settings
  
#+begin_src emacs-lisp
  (defun lang-default-settings ()
    "default setting for a language"
    (display-line-numbers-mode)
    (eglot-ensure)
    (company-mode))
#+end_src

* Built-in Modes
** hook default settings to configured language modes
#+begin_src emacs-lisp
  (let ((langs '("sh" "c++" "mhtml" "java" "js" "json" "python" "latex")))
    (dolist (lang langs)
      (add-hook (intern (concat lang "-mode-hook")) (lambda () (lang-default-settings)))))
#+end_src

** add LSP server program names to eglot's configuration
#+begin_src emacs-lisp
    (let ((server-programs '((c++-mode . ("clangd" "--stdio"))
                             (mhtml-mode . ("html-language-server" "--stdio"))
                             (java-mode . ("jdtls" "--stdio"))
                             (js-mode . ("typescript-language-server" "--stdio"))
                             (python-mode . ("pyright-langserver" "--stdio"))
                             (latex-mode . ("texlab"))
                             (json-mode . ("vscode-json-languageserver" "--stdio")))))
      (setq eglot-server-programs (append server-programs eglot-server-programs)))
#+end_src
      
* Installed Modes
** Go
#+begin_src emacs-lisp
  (use-package go-mode
    :mode "\\.go\\'"
    :hook
    (go-mode . (lambda () (lang-default-settings)))
    :config
    (setq go-tab-width default-custom-tab-size))

#+end_src
  
** TypeScript
#+begin_src emacs-lisp
  (use-package typescript-mode
    :mode "\\.ts\\'"
    :init
    (add-to-list 'eglot-server-programs `(typescript-mode . ("typescript-language-server")))
    :hook
    (typescript-mode . (lambda () (lang-default-settings))))
#+end_src

** Markdown

#+begin_src emacs-lisp
  (use-package markdown-mode
    :commands (markdown-mode gfm-mode)
    :mode (("\\.md\\'". markdown-mode)
           ("\\.markdown\\'" . markdown-mode))
    :init
    (setq markdown-command "multimarkdown"))
#+end_src

** JSON
#+begin_src emacs-lisp
  (use-package json-mode
    :mode (("\\.json\\'" . json-mode)
           ("\\.jsonl\\'" . json-mode)))
#+end_src

** Python
*** Pyenv
python venv manager

#+begin_src emacs-lisp
  (use-package pyvenv
    :commands (pyvenv-mode pyvenv-activate pyvenv-workon pyvenv-exec-shell pyvenv-virtual-env)
    :hook (python-mode . pyvenv-mode)
    :config
    (setenv "WORKON_HOME" (expand-file-name ".local/opt/miniforge3/envs" (safe-getenv "HOME" user-home-path))))
#+end_src

*** Tab Size
Python code is recomendded to set the tab size to 4

#+begin_src emacs-lisp
  (add-hook 'python-mode-hook
            (lambda ()
              (let ((custom-tab-size 4))
                (setq-default default-tab-width custom-tab-size
                              tab-width custom-tab-size
                              c-basic-offset custom-tab-size))))
#+end_src