;; PACKAGE
(require 'package)

(setq package-archives '(("melpa" . "https://melpa.org/packages/")
                         ("org" . "https://orgmode.org/elpa/")
                         ("elpa" . "https://elpa.gnu.org/packages/")
                         ("nongnu" . "https://elpa.nongnu.org/nongnu/")))

(package-initialize)
(unless package-archive-contents
  (package-refresh-contents))

(unless (package-installed-p 'use-package)
  (package-install 'use-package))

;; USE-PACKAGE
(require 'use-package)
(setq use-package-always-ensure t)

(load "bundle--gui")

(use-package shrface
  :defer t
  :config
  (shrface-basic)
  (shrface-trial)
  (shrface-default-keybindings) ; setup default keybindings
  (setq shrface-href-versatile t
        shrface-toggle-bullets t
        shr-width nil))

(use-package nov
  :hook (nov-mode . visual-line-mode)
  :mode ("\\.epub\\'" . nov-mode)
  :init
  (add-hook 'nov-mode-hook #'shrface-mode)
  :config
  (setq nov-text-width 82
        nov-variable-pitch t)
  (require 'shrface)
  (setq nov-shr-rendering-functions '((img . nov-render-img) (title . nov-render-title)))
  (setq nov-shr-rendering-functions (append nov-shr-rendering-functions shr-external-rendering-functions))
  (when (eq system-type 'windows-nt)
    (when (directory-name-p "c:/msys64/")
      (setq nov-unzip-program "c:/msys64/usr/bin/unzip.exe"))))

(use-package eglot
  :defer t
  :config
  (add-to-list 'eglot-server-programs '((c++-mode c-mode) "ccls")))

(use-package lisp-mode
  :ensure nil
  :mode (("\\.lisp$" . lisp-mode)
         ("\\.lsp$" . lisp-mode)
         ("\\.cl$" . lisp-mode)))

(use-package geiser
  :defer t
  :config
  (setq geiser-active-implementations '(racket guile)))

(use-package geiser-racket
  :defer t
  :after geiser
  :config
  (when (eq system-type 'windows-nt)
    (setq geiser-racket-binary "c:/Program Files/Racket/Racket.exe")))

(use-package geiser-guile
  :defer t
  :after geiser
  :config
  (setq geiser-guile-binary "guile")
  (when (eq system-type 'windows-nt)
    (when (directory-name-p "c:/msys64/")
      (setq geiser-guile-binary "c:/msys64/mingw64/bin/guile.exe"))))

(use-package cc-mode
  ;; https://www.gnu.org/prep/standards/html_node/Writing-C.html
  :ensure nil
  ;;  :hook (c-mode . eglot-ensure)
  :hook (c-mode-common . c-toggle-auto-newline)
  :custom
  (fill-column 79)                      ; according to gnu style guide
  (c-basic-offset 2)                    ; ""
  :config
  (defun me/c-mode-style-hook ()
    ;; if linux kernel source use linux style, else use gnu style
    (c-set-style
     (if (and (buffer-file-name)
              (string-match "/usr/src/linux" (buffer-file-name)))
         "linux"
       "gnu")))
  (add-hook 'c-mode-common-hook 'me/c-mode-style-hook))
  ;; (defun me/c-mode-compile-command-hook ()
  ;;   ;; if no makefile use gcc for compile command
  ;;   (unless (or (file-exists-p "makefile")
  ;;       	(file-exists-p "Makefile"))
  ;;     (set (make-local-variable 'compile-command)
  ;;          (concat "gcc " "-Wall " "-g " buffer-file-name " -o "
  ;;                  (file-name-sans-extension buffer-file-name)))))
  ;; (add-hook 'c-mode-common-hook 'me/c-mode-compile-command-hook)
  ;; (defun me/c-mode-compile-on-save ()
  ;;   ;; compile on save hook
  ;;   (make-local-variable 'after-save-hook)
  ;;   (add-hook 'after-save-hook (lambda () (compile compile-command))))
  ;; (add-hook 'c-mode-common-hook 'me/c-mode-compile-on-save))

(use-package js-mode
  :ensure nil
  :hook (js-mode . eglot-ensure)
  :mode (("\\.webmanifest\\'" . js-mode)
         ("\\.js\\'" . js-mode)))

(use-package go-mode
  :mode ("\\.go\\'" . go-mode)
  :config
  (add-hook 'before-save-hook #'gofmt-before-save)
  (add-hook 'go-mode-hook 'eglot-ensure)
  (defun me/go-mode-compile-command-hook ()
    ;; if no makefile use go vet for compile command
    (unless (or (file-exists-p "makefile")
		(file-exists-p "Makefile"))
      (set (make-local-variable 'compile-command)
	   (concat "go " "vet " buffer-file-name))))
  (add-hook 'go-mode-hook 'me/go-mode-compile-command-hook)
  (defun me/go-mode-compile-on-save ()
    ;; compile on save hook
    (make-local-variable 'after-save-hook)
    (add-hook 'after-save-hook (lambda () (compile compile-command))))
  ;; (add-hook 'go-mode-hook 'me/go-mode-compile-on-save))
  )

(use-package web-mode
  ;; :hook html-mode
  :mode (("\\.html?\\'" . web-mode)
         ("\\.xhtml?\\'" . web-mode)
         ("\\.tmpl\\'" . web-mode))
  :custom
  (web-mode-markup-indent-offset 2)
  (web-mode-css-indent-offset 2)
  (web-mode-code-indent-offset 2)
  (web-mode-enable-auto-pairing nil)
  (web-mode-enable-auto-closing t)
  (web-mode-enable-current-element-highlight t)
  (web-mode-enable-current-column-highlight t))

(use-package racket-mode
  :mode "\\.rkt\\'")

(use-package python
  :mode (("\\.py\\'" . python-mode)
         ("\\.wsgi$" . python-mode)
         ("\\.j2" . python-mode))
  :init
  (setq python-indent-offset 4)
  (setq-default indent-tabs-mode nil)
  :custom
  (fill-column 79)
  :config
  (add-hook 'python-mode-hook 'eglot-ensure))

(use-package slime
  :defer t
  :custom
  (slime-autodoc-use-multiline-p 1)
  :config
  (slime-setup '(slime-autodoc
                 slime-tramp
                 slime-fancy
                 slime-asdf
                 slime-indentation
                 slime-editing-commands
                 slime-sbcl-exts))
  (when (eq system-type 'windows-nt)
    (setq sbcl-exe "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.exe"
          sbcl-core "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.core"
          inferior-lisp-program "sbcl"
          slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core)))))
  (when (eq system-type 'gnu/linux)
    (setq inferior-lisp-program "/usr/bin/sbcl --noinform"))
  (let ((helper (expand-file-name "~/quicklisp/slime-helper.el")))
    (if (file-exists-p helper)
        (load helper)))
  (add-to-list 'slime-filename-translations
               (slime-create-filename-translator
                :machine-instance "ubuntu-2gb-nbg1-1"
                :remote-host "ubuntu-2.marcuskammer.de"
                :username "marcus")))

(use-package simple-httpd
  :defer t)

(use-package go-translate
  :defer t
  :config
  (setq gts-translate-list '(("en" "de")))
  (setq gts-default-translator
       (gts-translator
        :picker (gts-prompt-picker)
        :engines (list (gts-google-engine) (gts-google-rpc-engine))
        :render (gts-buffer-render))))

(use-package sql
  :ensure nil
  :defer t
  :config
  (when (eq system-type 'windows-nt)
    (when (directory-name-p "c:/msys64/")
      (setq sql-sqlite-program "c:/msys64/mingw64/bin/sqlite3.exe"))))

(use-package magit
  :bind ("C-x g" . magit-status)
  :config
  (global-set-key (kbd "C-x M-g") 'magit-dispatch))

(use-package yaml-mode
  :mode "\\.yml\\'")

(use-package csv-mode
  :mode "\\.csv\\'")

(use-package markdown-mode
  :mode "\\.md\\'")

(use-package clojure-mode)

(use-package cider)

(use-package typescript-mode
  :mode "\\.ts\\'"
  :hook (typescript-mode . eglot-ensure)
  :config (setq typescript-indent-level 2))

(when (eq system-type 'gnu/linux)
  (use-package spotify
    :bind ("S-<pause>" . spotify-playpause)))

(when (eq system-type 'windows-nt)
  (use-package powershell))

(load "bundle--irc")
(load "bundle--news")