;; dotfiles -- emacs.johannst.el
;; author: johannst

(provide 'johannst)

;; config
(custom-set-variables
 '(font-use-system-font t)
 '(indent-tabs-mode nil)
 '(inhibit-startup-screen t)
 '(tool-bar-mode nil)
 '(whitespace-style '(trailing tabs newline tab-mark newline-mark))
 '(backup-directory-alist `(("." . "~/.emacs.saves")))
 )

;; global kbd maps
(global-set-key (kbd "C-x C-b") 'ibuffer)
(define-key isearch-mode-map (kbd "M-o") 'isearch-occur)

;; only y/n prompt (no RET needed)
(defalias 'yes-or-no-p 'y-or-n-p)

;; fix 'bad request' on package-refresh-contents (should be fixed with emcas 26.3)
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")

;; ELPA & MELPA
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-archives '("gnu" . "https://elpa.gnu.org/packages/") t)
(setq package-enable-at-startup nil)
(package-initialize)

;; bootstrap use-package
(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))
(eval-when-compile
  (require 'use-package))

;; theme
(use-package spacemacs-theme
  :ensure t
  :defer t
  :init
  (load-theme 'spacemacs-dark t)
  )

;; evil
(use-package evil
  :ensure t
  :config
  (evil-mode t)
  ;; leader key
  (defvar leader-map (make-sparse-keymap)
    "Keymap for <leader> key.")
  (define-key evil-normal-state-map (kbd "SPC") leader-map)
  ;; scrolling
  (define-key evil-normal-state-map (kbd "C-k") 'evil-scroll-up)
  (define-key evil-normal-state-map (kbd "C-j") 'evil-scroll-down)
  )

;; org
(use-package org
  :bind
  (("\C-cc" . org-capture)
   :map org-mode-map
   ("M-j" . org-metadown)
   ("M-h" . org-metaleft)
   ("M-l" . org-metaright)
   ("M-k" . org-metaup)
   )
  :config
  (setq org-directory "~/org")
  (setq org-default-notes-file (concat org-directory "/capture.org"))
  (setq org-log-done t)
  (setq org-confirm-babel-evaluate nil)
  (setq org-todo-keywords '((sequence "TODO" "WAIT" "DONE")))
  (setq org-hide-leading-stars t)
  )

;; helm
;(use-package helm
;  :ensure t
;  :config
;  (define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action)
;  (define-key helm-map (kbd "C-z")  'helm-select-action)
;  (define-key leader-map "pf" 'helm-projectile-find-file)
;  (helm-mode t)
;  )

;; helm
;(use-package helm-projectile
;  :ensure t
;  )

;; magit
(use-package magit
  :ensure t
  )

;; lsp
(use-package lsp-mode
  :ensure t
  :config
  (setq lsp-rust-server 'rust-analyzer)
  :hook
    (rust-mode . (lambda ()
                   (lsp)
                   (lsp-rust-analyzer-inlay-hints-mode)))
  )

;; company
(use-package company
  :ensure t
  :config
;  (global-company-mode t)
  (setq company-idle-delay                0
        company-minimum-prefix-length     1
        company-show-numbers              t
        company-dabbrev-downcase          nil
        company-tooltip-align-annotations t
        )
  :hook (
    (rust-mode . company-mode)
    (c-mode . company-mode)
    (c++-mode . (lambda ()
                   (company-mode)
                   (add-to-list 'company-dabbrev-code-modes 'c++-mode)))
    )
  :bind (
    :map company-mode-map
    ("<tab>" . company-indent-or-complete-common)
    :map company-active-map
    ("C-p" . 'company-select-previous-or-abort)
    ("C-n" . 'company-select-next-or-abort)
    ("<backtab>" . 'company-select-previous-or-abort)
    ("<tab>"   . 'company-select-next-or-abort)
    )
  )

;; company-c-headers
(use-package company-c-headers
  :ensure t
  :requires (company)
  :config
  (add-to-list 'company-backends 'company-c-headers)
  ;; simple heuristic to find latest c++ headers installed on system
  (add-to-list 'company-c-headers-path-system (concat "/usr/include/c++/" (car (last (directory-files "/usr/include/c++" nil "^[1-9]")))))
  )

;; rust-mode
(use-package rust-mode
  :ensure t
  :mode ("\\.rs\\'" . rust-mode)
  )

;; clang-format
(use-package clang-format
  :ensure t
  )