;; set default font
(when (member "Fantasque Sans Mono" (font-family-list))
  (set-face-attribute 'default nil :font "Fantasque Sans Mono-16"))

;; Always use slant for italic, not underline
'(italic ((t (:slant italic))))

;; Save point
(save-place-mode 1)

;; Set column width to 88 characters
(setq-default fill-column 88)

(load-theme 'modus-vivendi-tinted t)

;; QOL packages
(use-package helpful
  :bind (("C-h f" . helpful-callable)
         ("C-h v" . helpful-variable)
         ("C-h k" . helpful-key)
         ("C-h x" . helpful-command)))

;; Org
(use-package org
  ;; The following binds are always needed. Why?
  :bind (("\C-cl" . org-store-link)
         ("\C-ca" . org-agenda)
         ("\C-cc" . org-capture))
  :hook ((org-shiftup-final . windmove-up)
         (org-shiftleft-final . windmove-left)
         (org-shiftdown-final . windmove-down)
         (org-shiftright-final . windmove-right))
  :config (load "~/.emacs.d/elisp/org-setup.el"))

(use-package org-ref)

;; Writing
(use-package writeroom-mode)

;; modeline
;; configure the default one
(load "~/.emacs.d/elisp/modeline-setup.el")

(use-package all-the-icons)

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

;; Reading
(use-package nov
  :hook ((nov-mode . visual-line-mode)
         (nov-mode . visual-fill-column-mode)
         (nov-mode . writeroom-mode))
  :config
  (setq nov-text-width t
        visual-fill-column-center-text t)
  (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode)))

(use-package pdf-tools
  :config
  (progn
   (pdf-tools-install)
   (setq pdf-view-midnight-colors '("#DCDCCC" . "#3F3F3F"))))

(use-package saveplace-pdf-view)

;; Read Gopher and Gemini
(use-package elpher)

;; Read feeds
(use-package elfeed)

;; Eshell configuration
;; We need colors in eshell
(use-package xterm-color)

(use-package eshell
  :straight (:type built-in)
  :hook ((eshell-mode . (lambda ()
                          (setenv "TERM" "xterm-256color")))
         ;; remove up and down from history keymap so we can use them to move up and
         ;; down like in a normal text
         (eshell-mode . (lambda ()
                          (keymap-set eshell-hist-mode-map "<up>" nil)
                          (keymap-set eshell-hist-mode-map "<down>" nil)))
         (eshell-before-prompt . (lambda ()
				   (setq xterm-color-preserve-properties t))))
  :config
  (require 'esh-mode)
  (add-to-list 'eshell-preoutput-filter-functions 'xterm-color-filter)
  (setq eshell-output-filter-functions
        (remove 'eshell-handle-ansi-color eshell-output-filter-functions)))


;; eat terminal emulator:
(use-package eat
  :straight (:type git
                   :host codeberg
                   :repo "akib/emacs-eat"
                   :files ("*.el" ("term" "term/*.el") "*.texi"
                           "*.ti" ("terminfo/e" "terminfo/e/*")
                           ("terminfo/65" "terminfo/65/*")
                           ("integration" "integration/*")
                           (:exclude ".dir-locals.el" "*-tests.el")))
  :hook ((eshell-first-time-mode . eat-eshell-mode)
         (eshell-first-time-mode . eat-eshell-visual-command-mode)))

;; git
(use-package magit
  :demand t
  :bind ("C-x g" . magit-status))

;; code completion
(use-package company
  :hook (after-init . global-company-mode))

(use-package tomlparse)

;; TODO I'm only using demand so <f3> is set from the start
(use-package treemacs
  :demand t
  :bind ("<f3>" . treemacs))

;; Javascript and React
(use-package rjsx-mode
  :config
  (add-to-list 'auto-mode-alist '("\\.js\\'" . rjsx-mode)))

;; Common Lisp
(use-package slime
  :config
  (load "~/.emacs.d/elisp/slime-setup.el"))

(use-package paredit
  :hook ((lisp-mode emacs-lisp-mode) . paredit-mode))

;; Clojure
(use-package cider)

;; Rust
(use-package rust-mode
  :config
  (load "~/.emacs.d/elisp/rust-setup.el"))

;; Haskell
(use-package haskell-mode)

;; Racket
(use-package racket-mode)

(use-package envrc
  :hook (after-init . envrc-global-mode))

(use-package python-black
  :after python
  :hook (python-mode . python-black-on-save-mode-enable-dwim))

(use-package ruff-format)

(use-package pydoc)

(use-package pet
  :config
  (add-hook 'python-base-mode-hook 'pet-mode -10))

;; Ivy related stuff
(use-package ivy)
(use-package ivy-bibtex)
(use-package counsel)
(use-package swiper)
(use-package counsel-dash
  :after (counsel))
(load "~/.emacs.d/elisp/ivy-setup.el")

;; View logs
(use-package log4j-mode)

(use-package eglot
  :straight (:type built-in)
  :defer t
  :hook ((python-base-mode . eglot-ensure)))

(use-package dape)

;; For a more ergonomic Emacs and `dape' experience
(use-package repeat
  :custom
  (repeat-mode +1))

;; Left and right side windows occupy full frame height
(use-package emacs
  :custom
  (window-sides-vertical t))

;; TRAMP
(load "~/.emacs.d/elisp/tramp-setup.el")
(load "~/.emacs.d/elisp/outline-keymap.el")
(load "~/.emacs.d/elisp/bibtex-setup.el")
(load "~/.emacs.d/elisp/keypad.el")

;; from https://www.anghyflawn.net/blog/2014/emacs-give-a-doi-get-a-bibtex-entry/
(defun get-bibtex-from-doi (doi)
 "Get a BibTeX entry from the DOI"
 (interactive "MDOI: ")
 (let ((url-mime-accept-string "text/bibliography;style=bibtex"))
   (with-current-buffer
     (url-retrieve-synchronously
       (format "http://dx.doi.org/%s"
       	(replace-regexp-in-string "http://dx.doi.org/" "" doi)))
     (switch-to-buffer (current-buffer))
     (goto-char (point-max))
     (setq bibtex-entry
     	  (buffer-substring
          	(string-match "@" (buffer-string))
              (point)))
     (kill-buffer (current-buffer))))
 (insert (decode-coding-string bibtex-entry 'utf-8))
 (bibtex-fill-entry))