emacs.d/bundle/bundle--package.el

;; PACKAGE
(require 'package)

(use-package htmlize)

(use-package tramp
  :ensure nil
  :config
  (when (eq system-type 'windows-nt)
    (setq tramp-default-method "sshx")))

(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))

(defun mk/nov-font-settings ()
  (setq-local line-spacing 2))

(use-package nov
  :hook ((nov-mode . visual-line-mode)
         (nov-mode . mk/nov-font-settings))
  :mode ("\\.epub\\'" . nov-mode)
  :init
  (add-hook 'nov-mode-hook #'shrface-mode)
  :custom
  (nov-header-line-format nil)
  (nov-text-width 82)
  (nov-variable-pitch t)
  :config
  (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)
;;   (setq nov-unzip-program "c:/msys64/usr/bin/unzip.exe")))

(use-package eglot
  :ensure nil
  :defer t
  :config
  (if (eq system-name 'windows-nt)
      ;; %USERPROFILE%\AppData\Local\Programs\clangd-windows-17.0.3\clangd_17.0.3\bin
      (add-to-list 'eglot-server-programs '((c++-mode c-mode) "clangd"))
    (add-to-list 'eglot-server-programs '((c++-mode c-mode) "ccls"))))

(use-package sql
  :ensure nil
  :defer t
  :config
  (when (eq system-type 'windows-nt)
    (setq sql-sqlite-options '("-interactive"))
    (setq sql-mariadb-options '("-C" "-t" "-f" "-n"))
    (setq sql-mysql-options '("-C" "-t" "-f" "-n"))))

(defun me/c-mode-style-hook ()
  ;; https://www.gnu.org/prep/standards/html_node/Writing-C.html
  ;; 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")))

(use-package cc-mode
  :defer t
  :ensure nil
  :hook ((c-mode-common . c-toggle-auto-newline)
         (c-mode-common . me/c-mode-style-hook))
  :custom
  (fill-column 79)
  (c-basic-offset 2)
  (indent-tabs-mode nil)
  :config
  (define-key c-mode-base-map (kbd "RET") 'newline-and-indent))

;; (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)
;;        ("\\.mjs\\'" . js-mode)
;;        ("\\.cjs\\'" . js-mode)))

(use-package js2-mode
  :defer t
  :mode
  (("\\.webmanifest\\'" . js2-mode)
   ("\\.js\\'" . js2-mode)
   ("\\.mjs\\'" . js2-mode)
   ("\\.cjs\\'" . js2-mode))
  :config
  (add-to-list 'interpreter-mode-alist '("node" . js2-mode)))

;; (use-package go-mode
;;   :defer t
;;   :mode ("\\.go\\'" . go-mode)
;;   :hook ((before-save . gofmt-before-save)
;;          (go-mode . eglot-ensure))
;;   :config
;;   (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
  :defer t
  ;; :hook html-mode
  :mode (("\\.html?\\'" . web-mode)
         ("\\.xhtml?\\'" . web-mode)
         ("\\.tmpl\\'" . web-mode)
         ("\\.hbs\\'" . web-mode)
         ("\\.handlebars\\'" . 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 python
  :defer t
  :mode (("\\.py\\'" . python-mode)
         ("\\.wsgi$" . python-mode)
         ("\\.j2" . python-mode))
  :hook (python-mode . abbrev-mode)
  :init
  (setq python-indent-guess-indent-offset nil)
  (setq python-indent-offset 4)
  (setq python-shell-interpreter "ipython")
  (setq python-shell-interpreter-args "-i --simple-prompt --InteractiveShell.display_page=True")
  :custom
  (fill-column 79))

;; (use-package simple-httpd
;;   :defer t)

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

(use-package magit
  :defer t
  :bind ("C-x g" . magit-status)
  :init
  (when (eq system-type 'windows-nt)
    (setq magit-git-executable "C:/Program Files/Git/mingw64/libexec/git-core/git.exe"))
  :custom
  (magit-diff-refine-hunk 'all)
  (magit-display-buffer-function 'magit-display-buffer-fullcolumn-most-v1)
  (magit-ediff-dwim-show-on-hunks t)
  (magit-log-arguments '("--graph" "--color" "--decorate" "--show-signature" "--follow" "-n256"))
  (magit-log-margin-show-committer-date t)
  (magit-log-remove-graph-args '("--follow" "--grep" "-G" "-S" "-L"))
  (magit-todos-insert-after '(bottom))
  :config
  (global-set-key (kbd "C-x M-g") 'magit-dispatch))

;; (use-package yaml-mode
;;   :defer t
;;   :mode "\\.yml\\'"
;;   :config
;;   (defun disable-auto-fill ()
;;     (auto-fill-mode -1))
;;   :hook
;;   (yaml-mode . disable-auto-fill))

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

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

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

(use-package geiser
  :defer t
  :init
  (if (eq system-type 'windows-nt)
      (setq geiser-active-implementations '(racket))
    (setq geiser-active-implementations '(racket guile))))

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

(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")))

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

  (use-package geiser-guile
    :defer t
    :after geiser
    :custom (geiser-guile-binary "guile"))

  (use-package journalctl-mode
    :defer t
    :commands journalctl
    :bind (("C-c t j" . journalctl))))

(use-package mastodon
  :defer t
  :custom
  (mastodon-instance-url "https://emacs.ch")
  (mastodon-active-user "qhBidG3d"))

(use-package jabber
  :defer t
  :custom
  (jabber-activity-mode nil)
  (jabber-account-list
   '(("marcus.kammer@mailbox.org")))
  (jabber-muc-autojoin
   '("lisp@conference.a3.pm"
     "emacs@salas.suchat.org"
     "cl-sbt@conference.mailbox.org"))
  (jabber-muc-default-nicknames
   '(("lisp@conference.a3.pm" . "marcus")
     ("emacs@salas.suchat.org" . "marcus")
     ("cl-sbt@conference.mailbox.org" . "marcus"))))

;; (use-package hyperbole
;;   :config
;;   (setq hyrolo-date-format "%Y-%m-%d %H:%M:%S")
;;   (add-hook 'hyperbole-init-hook
;;             (lambda ()
;;               (setq hyrolo-file-list
;;                     (append (hyrolo-initialize-file-list)
;;                             (cons "~/.rolo.otl"
;;                                   (directory-files-recursively org-directory (rx "." (or "org" "otl") eos))))))))

(use-package ispell
  :ensure nil
  :config
  ;; On windows: Copy *.aff and *.dic files to C:\msys64\ucrt64\share\hunspell
  ;; `hunspell -D`, the program will display the dictionaries and affix files it
  ;; finds and loads.
  ;; (when (eq system-type 'windows-nt)
  ;;   (setq ispell-program-name "c:/msys64/ucrt64/bin/hunspell.exe"))
  (setq ispell-dictionary "german,english")
  (setq ispell-local-dictionary-alist
        '(("german" "[[:alpha:]]" "[^[:alpha:]]" "[']" t ("-d" "de_DE_frami,de_AT_frami,de_CH_frami") nil utf-8)
          ("english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "en_US,en_GB") nil utf-8)
          ("german,english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "de_DE_frami,en_US") nil utf-8)))
  (setq ispell-hunspell-dictionary-alist ispell-local-dictionary-alist))

(use-package plantuml-mode
  :defer t
  :mode ("\\.puml\\'" "\\.plantuml\\'")
  :custom
  (plantuml-default-exec-mode 'jar)
  (plantuml-jar-path "~/plantuml.jar")
  (org-plantuml-jar-path "~/plantuml.jar")
  (plantuml-java-args '("-DPLANTUML_DPI=300" "-Djava.awt.headless=true" "-jar" "--illegal-access=deny")))

(use-package tex-mode
  :defer t
  :ensure auctex
  :hook ((LaTeX-mode . turn-on-reftex)
         (LaTeX-mode . flyspell-mode)
         (LaTeX-mode . LaTeX-math-mode))
  :config
  ;; TeX mode settings for editing .tex files
  (setq TeX-auto-save t) ; Enable auto-save
  (setq TeX-electric-math (cons "$" "$")) ; Shortcut for math mode
  (if (eq system-type 'windows-nt)
      (progn
	    (setq TeX-view-program-list '(("SumatraPDF" "~/AppData/Local/SumatraPDF/SumatraPDF.exe %o")))
	    (setq TeX-view-program-selection '((output-pdf "SumatraPDF"))))
    (setq TeX-view-program-selection '((output-pdf "Evince"))))
  (setq TeX-source-correlate-start-server t) ; Enable source-correlate
  (setq TeX-master nil) ; Default master file
  (setq TeX-engine 'luatex) ; Set engine to XeTeX
  (setq TeX-command-extra-options "-shell-escape")) ; Allow shell escape

(use-package epg
  :ensure nil
  :config
  (when (eq system-type 'windows-nt)
    (setq epg-gpg-home-directory "~/AppData/Roaming/gnupg"
	      epg-gpg-program "c:/Program Files (x86)/GnuPG/bin/gpg.exe"
	      epg-gpgconf-program "c:/Program Files (x86)/GnuPG/bin/gpgconf.exe")))

(use-package which-key
  :init (which-key-mode))

(use-package ssh-config-mode
  :defer t
  :mode ("/sshd_config\\'" . ssh-config-mode)
  :config
  (add-hook 'ssh-config-mode-hook 'turn-on-font-lock))

(use-package nginx-mode
  :defer t
  :mode ("/nginx/.*\\'" . nginx-mode))

(use-package dashboard
  :config
  (dashboard-setup-startup-hook))

;; (use-package flymake-json)

;; (use-package json-mode
;;   :ensure nil
;;   :mode "\\.json\\'"
;;   :hook (json-mode . flymake-json-load))

;; (use-package json-navigator
;;   :defer t
;;   :after json-mode)

;; (use-package jq-format
;;   :defer t
;;   :after json-mode)

(use-package gptel
  :defer t
  :bind (("C-c G m" . gptel-menu)
         ("C-c G n" . gptel)
         ("C-c G s" . gptel-send))
  :custom
  (gptel-default-mode 'org-mode)
  (gptel-model "gpt-4")
  (gptel-directives
   '((default . "You are a large language model living in Emacs and a helpful assistant. Respond concisely.")
     (programming . "You are a large language model and a careful programmer. Provide code and only code as output without any additional text, prompt or note.")
     (writing . "You are a large language model and a writing assistant. Respond concisely.")
     (chat . "You are a large language model and a conversation partner. Respond concisely.")
     (ux . "I want you to act as a UX/UI designer. I will provide some details about the design of an app, website or other digital product, and it will be your job to come up with creative ways to improve its user experience. This could involve creating prototypes, testing different designs and providing feedback on what works best.")
     (cl . "I want you to act as a common lisp developer. I will provide some specific information about app requirements, and it will be your job to come up with an architecture and code for developing secure app with common lisp.")
     (emacser . "You are a Emacs maven. Reply only with the most approriate built-in Emacs command for the task I specify. Do NOT generate any additional description or explanation.")
     (elisp . "Consider yourself an experienced Emacs Lisp developer with a deep understanding of Emacs's extensibility and customization capabilities. You're well-versed in creating and modifying Emacs modes, optimizing workflows, and integrating Emacs with other tools and services.")))
  :config
  (when (eq system-type 'windows-nt)
    (setq gptel-use-curl t)))

(use-package gnuplot
  :defer t)