2021-03-16 20:12:46 +00:00
|
|
|
;;; development.el --- AMACS -*- lexical-binding: t; -*-
|
|
|
|
|
;;
|
|
|
|
|
;; Copyright 2021 Practically.io All rights reserved
|
|
|
|
|
;;
|
|
|
|
|
;; Use of this source is governed by a BSD-style
|
|
|
|
|
;; licence that can be found in the LICENCE file or at
|
|
|
|
|
;; https://www.practically.io/copyright/
|
|
|
|
|
;;
|
|
|
|
|
;; The main development configuration common development packages
|
|
|
|
|
;; like lsp and flycheck
|
|
|
|
|
|
|
|
|
|
(use-package lsp-mode
|
|
|
|
|
:commands (lsp lsp-deferred)
|
|
|
|
|
:config
|
2021-07-10 19:42:41 +00:00
|
|
|
(setq-default
|
|
|
|
|
lsp-intelephense-completion-trigger-parameter-hints nil
|
|
|
|
|
lsp-auto-guess-root t
|
|
|
|
|
lsp-headerline-breadcrumb-enable nil
|
|
|
|
|
lsp-enable-file-watchers nil
|
|
|
|
|
lsp-keep-workspace-alive nil
|
|
|
|
|
lsp-ui-doc-position 'top
|
|
|
|
|
lsp-modeline-diagnostics-scope :project
|
|
|
|
|
lsp-completion-provider :none))
|
|
|
|
|
|
|
|
|
|
(advice-add 'lsp :before (lambda (&rest _args) (eval '(setf (lsp-session-server-id->folders (lsp-session)) (ht)))))
|
2021-03-16 20:12:46 +00:00
|
|
|
|
|
|
|
|
(use-package lsp-ui
|
|
|
|
|
:hook (lsp-mode . lsp-ui-mode))
|
|
|
|
|
|
|
|
|
|
(use-package lsp-ivy)
|
|
|
|
|
|
2021-07-10 19:42:41 +00:00
|
|
|
(defun do-yas-expand ()
|
|
|
|
|
(let ((yas/fallback-behavior 'return-nil))
|
|
|
|
|
(yas/expand)))
|
|
|
|
|
|
|
|
|
|
(defun aa/company-tab ()
|
|
|
|
|
(interactive)
|
|
|
|
|
(if (or (not yas/minor-mode)
|
|
|
|
|
(null (do-yas-expand)))
|
|
|
|
|
(company-complete-common-or-cycle)))
|
|
|
|
|
|
2021-03-16 20:12:46 +00:00
|
|
|
(use-package company
|
|
|
|
|
:after lsp-mode
|
|
|
|
|
:bind
|
|
|
|
|
(:map company-active-map
|
2021-07-10 19:42:41 +00:00
|
|
|
("RET" . company-complete)
|
2021-03-16 20:12:46 +00:00
|
|
|
("C-l" . yas-next-field-or-maybe-expand)
|
2021-07-10 19:42:41 +00:00
|
|
|
("<tab>" . aa/company-tab)
|
|
|
|
|
("TAB" . aa/company-tab))
|
2021-03-16 20:12:46 +00:00
|
|
|
:config
|
|
|
|
|
(global-company-mode)
|
2021-07-10 19:42:41 +00:00
|
|
|
(setq company-idle-delay 0)
|
|
|
|
|
(setq company-echo-delay 0)
|
2021-03-16 20:12:46 +00:00
|
|
|
(setq company-minimum-prefix-length 1)
|
2021-07-10 19:42:41 +00:00
|
|
|
(setq company-tooltip-limit 15)
|
|
|
|
|
(setq company-dabbrev-downcase nil)
|
|
|
|
|
(setq-default company-backends
|
|
|
|
|
'((company-capf
|
|
|
|
|
:with
|
|
|
|
|
company-yasnippet
|
|
|
|
|
company-files)))
|
2021-03-16 20:12:46 +00:00
|
|
|
:hook (lsp-mode . company-mode))
|
|
|
|
|
|
|
|
|
|
(use-package company-box
|
|
|
|
|
:hook (company-mode . company-box-mode)
|
|
|
|
|
:config
|
2021-07-10 19:42:41 +00:00
|
|
|
(setq
|
|
|
|
|
company-box-backends-colors nil
|
|
|
|
|
company-box-icons-alist 'company-box-icons-all-the-icons))
|
2021-03-16 20:12:46 +00:00
|
|
|
|
|
|
|
|
(use-package flycheck
|
|
|
|
|
:ensure t
|
|
|
|
|
:init (global-flycheck-mode))
|
|
|
|
|
|
|
|
|
|
(with-eval-after-load 'flycheck
|
2021-07-10 19:42:41 +00:00
|
|
|
(setq flycheck-phpcs-standard "PSR2")
|
2021-03-16 20:12:46 +00:00
|
|
|
(setq-default flycheck-disabled-checkers '(emacs-lisp-checkdoc)))
|
|
|
|
|
|
2021-11-21 13:43:39 +00:00
|
|
|
;; Define local checkers so we can add next checkers per mode. LSP mode takes
|
|
|
|
|
;; priority and we can define the next checker in the mode hooks. Each language
|
|
|
|
|
;; will define there checkers if needed.
|
|
|
|
|
;;
|
|
|
|
|
;; Example usage for adding the php checker for php-mode
|
|
|
|
|
;; (setq flycheck-local-checkers '((lsp . ((next-checkers . (php))))))
|
|
|
|
|
(defvar-local flycheck-local-checkers nil)
|
|
|
|
|
(defun +flycheck-checker-get(fn checker property)
|
|
|
|
|
(or (alist-get property (alist-get checker flycheck-local-checkers))
|
|
|
|
|
(funcall fn checker property)))
|
|
|
|
|
(advice-add 'flycheck-checker-get :around '+flycheck-checker-get)
|
|
|
|
|
|
2021-07-10 19:36:32 +00:00
|
|
|
;; Set the default column width to 80. The default in emacs is 70 that is too small for me
|
|
|
|
|
(setq-default fill-column 80)
|
|
|
|
|
(setq-default display-fill-column-indicator-column 80)
|
|
|
|
|
|
2021-11-21 14:39:12 +00:00
|
|
|
(setq compilation-scroll-output 'first-error)
|
2021-07-10 19:36:32 +00:00
|
|
|
|
|
|
|
|
;; Set the default line number style to relative so when they are turned on I
|
|
|
|
|
;; dont need to worry about that
|
|
|
|
|
(setq display-line-numbers-type 'relative)
|
|
|
|
|
(add-hook 'prog-mode-hook 'display-line-numbers-mode)
|
|
|
|
|
|
2021-11-21 14:53:45 +00:00
|
|
|
(use-package tree-sitter :ensure t)
|
|
|
|
|
(use-package tree-sitter-langs :ensure t)
|
|
|
|
|
|
2021-03-16 20:12:46 +00:00
|
|
|
(use-package magit
|
|
|
|
|
:ensure t
|
|
|
|
|
:init
|
|
|
|
|
;; Force magit status to go full screen
|
|
|
|
|
(setq magit-display-buffer-function #'magit-display-buffer-fullframe-status-v1))
|
|
|
|
|
|
|
|
|
|
(use-package smartparens
|
|
|
|
|
:config
|
|
|
|
|
(require 'smartparens-config)
|
|
|
|
|
:init
|
|
|
|
|
(smartparens-global-mode))
|
|
|
|
|
|
|
|
|
|
;; To set different remote tyeps see https://github.com/rmuslimov/browse-at-remote#remote-types
|
|
|
|
|
(use-package browse-at-remote :defer t)
|
|
|
|
|
|
|
|
|
|
(use-package string-inflection :defer t)
|
2021-07-10 19:42:41 +00:00
|
|
|
|
|
|
|
|
(defun aa/global-tab ()
|
|
|
|
|
(interactive)
|
|
|
|
|
(if (or (not yas/minor-mode)
|
|
|
|
|
(null (do-yas-expand)))
|
|
|
|
|
(indent-for-tab-command)))
|
|
|
|
|
|
|
|
|
|
(define-minor-mode aa-tab-mode
|
|
|
|
|
"Runs fmt on file save when this mode is turned on"
|
|
|
|
|
:lighter " aa-tab"
|
|
|
|
|
:global nil
|
|
|
|
|
(global-set-key (kbd "<tab>") 'aa/global-tab)
|
|
|
|
|
(global-set-key (kbd "TAB") 'aa/global-tab))
|
|
|
|
|
|
|
|
|
|
(define-globalized-minor-mode global-aa-tab-mode aa-tab-mode
|
|
|
|
|
(lambda () (aa-tab-mode 1)))
|
|
|
|
|
|
|
|
|
|
(global-aa-tab-mode)
|