init.el

;;---------Straight package manager-------
(defvar bootstrap-version)
(let ((bootstrap-file
       (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
      (bootstrap-version 5))

  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
         "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
         'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))

;;Use-package integration
(straight-use-package 'use-package)
(setq straight-use-package-by-default t)

;;;--------General Defaults--------
(add-to-list 'load-path "~/.emacs.d/lisp/")

(menu-bar-mode t)

;;Disable backup files
(setq make-backup-files nil)
(auto-save-mode 0)

(setq initial-scratch-message "")

;; Revert Dired and other buffers
(customize-set-variable 'global-auto-revert-non-file-buffers t)

;; Revert buffers when the underlying file has changed
(global-auto-revert-mode 1)

;;Start emacs maximized
;;(add-hook 'window-setup-hook 'toggle-frame-maximized t)

;; Use "y" and "n" to confirm/negate prompt instead of "yes" and "no"
;; Using `advice' here to make it easy to reverse in custom
;; configurations with `(advice-remove 'yes-or-no-p #'y-or-n-p)'
;;
;; N.B. Emacs 28 has a variable for using short answers, which should
;; be preferred if using that version or higher.
(if (boundp 'use-short-answers)
    (setq use-short-answers t)
  (advice-add 'yes-or-no-p :override #'y-or-n-p))

;; Do not saves duplicates in kill-ring
(customize-set-variable 'kill-do-not-save-duplicates t)

;; Make scrolling less stuttered
(setq auto-window-vscroll nil)
(customize-set-variable 'fast-but-imprecise-scrolling t)
(customize-set-variable 'scroll-conservatively 101)
(customize-set-variable 'scroll-margin 0)
(customize-set-variable 'scroll-preserve-screen-position t)

;; Better support for files with long lines
(setq-default bidi-paragraph-direction 'left-to-right)
(setq-default bidi-inhibit-bpa t)
(global-so-long-mode 1)

(add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p)

;;System variables
(straight-use-package 'exec-path-from-shell)

(when (memq window-system '(mac ns x))
  (exec-path-from-shell-initialize))

(when (daemonp)
  (exec-path-from-shell-initialize))

(setq tab-width 4)

(straight-use-package 'logos)
(straight-use-package 'olivetti)
(straight-use-package 'darkroom)

;;;-------Highlight todo---
(straight-use-package 'hl-todo)
(global-hl-todo-mode 1)

(straight-use-package 'evil)
;;(straight-use-package 'undo-tree)
(straight-use-package 'evil-collection)
(straight-use-package 'evil-nerd-commenter)
(straight-use-package 'undo-fu)

;; Turn on undo-tree globally
;;(global-undo-tree-mode)

;; Set some variables that must be configured before loading the package
(customize-set-variable 'evil-want-integration t)
(customize-set-variable 'evil-want-keybinding nil)
(customize-set-variable 'evil-want-C-i-jump nil)
(customize-set-variable 'evil-respect-visual-line-mode t)
(customize-set-variable 'evil-undo-system 'undo-fu)

(setq evil-want-C-u-scroll t)

;; Turn on Evil Nerd Commenter
(evilnc-default-hotkeys)

;; Make C-g revert to normal state
(define-key evil-insert-state-map (kbd "C-g") 'evil-normal-state)

;; Rebind `universal-argument' to 'C-M-u' since 'C-u' now scrolls the buffer
(global-set-key (kbd "C-M-u") 'universal-argument)
(global-set-key (kbd "C-u") #'evil-scroll-up)

;; C-h is backspace in insert state
(define-key evil-insert-state-map (kbd "C-h") 'evil-delete-backward-char-and-join)

;; Use visual line motions even outside of visual-line-mode buffers
(evil-global-set-key 'motion "j" 'evil-next-visual-line)
(evil-global-set-key 'motion "k" 'evil-previous-visual-line)

;; Load Evil and enable it globally
(require 'evil)
(evil-mode 1)

;; Make sure some modes start in Emacs state
(dolist (mode '(custom-mode
                eshell-mode
                term-mode))
  (add-to-list 'evil-emacs-state-modes mode))
 
(evil-collection-init)

;;;---------UI Improvements----------
(setq default-frame-alist '((font . "Fira Mono Medium 18")))

(straight-use-package 'gruber-darker-theme)
(straight-use-package 'modus-themes)
(straight-use-package 'ef-themes)
(straight-use-package 'all-the-icons)
(straight-use-package 'doom-modeline)
(straight-use-package 'elisp-demos)
(straight-use-package 'helpful)
(straight-use-package 'modus-themes)

(disable-theme 'deeper-blue)
(require 'modus-themes)
;(modus-themes-load-themes)
(modus-themes-load-vivendi)

(setq modus-themes-bold-constructs t)

(use-package almost-mono-themes
  :config
  ;(load-theme 'almost-mono-black t)
  ;;(disable-theme 'deeper-blue)
  ;; (load-theme 'almost-mono-gray t)
  ;; (load-theme 'almost-mono-cream t)
 ;; (load-theme 'almost-mono-white t)
  )

(straight-use-package 'rainbow-delimiters)
(add-hook 'emacs-lisp-mode-hook #'rainbow-delimiters-mode)
(add-hook 'lisp-mode-hook #'rainbow-delimiters-mode)
(add-hook 'clojure-mode-hook #'rainbow-delimiters-mode)
(add-hook 'clojure-script-mode-hook #'rainbow-delimiters-mode)

;; Configure `doom-modeline'
(customize-set-variable 'doom-modeline-height 10)
(customize-set-variable 'doom-modeline-bar-width 6)
(customize-set-variable 'doom-modeline-minor-modes t)
(customize-set-variable 'doom-modeline-buffer-file-name-style 'truncate-except-project)
(doom-modeline-mode 1)

(straight-use-package 'all-the-icons-dired)
(add-hook 'dired-mode-hook 'all-the-icons-dired-mode)

;; Make `describe-*' screens more helpful
(require 'helpful)
(define-key helpful-mode-map [remap revert-buffer] #'helpful-update)
(global-set-key [remap describe-command] #'helpful-command)
(global-set-key [remap describe-function] #'helpful-callable)
(global-set-key [remap describe-key] #'helpful-key)
(global-set-key [remap describe-symbol] #'helpful-symbol)
(global-set-key [remap describe-variable] #'helpful-variable)
(global-set-key (kbd "C-h F") #'helpful-function)
(global-set-key (kbd "C-h K") #'describe-keymap)
;; also add some examples
(require 'elisp-demos)
(advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)

;;Beacon (line highlight when changing buffer/position)
(straight-use-package 'beacon)
(beacon-mode 1)

;;Raibow delimiters
(straight-use-package 'rainbow-delimiters)
(add-hook 'lisp-mode-hook #'rainbow-delimiters-mode)
(add-hook 'emacs-lisp-mode-hook #'rainbow-delimiters-mode)
(add-hook 'clojure-mode-hook #'rainbow-delimiters-mode)
(add-hook 'clojurescript-mode-hook #'rainbow-delimiters-mode)

(global-prettify-symbols-mode 1)

;;;-------COMPLETION/SEARCHING------------

(straight-use-package 'cape)
(straight-use-package 'consult)
(straight-use-package 'corfu-doc)
(straight-use-package 'corfu)
(straight-use-package 'embark)
(straight-use-package 'embark-consult)
(straight-use-package 'marginalia)
(straight-use-package 'orderless)
(straight-use-package '( vertico :files (:defaults "extensions/*")
                         :includes (vertico-buffer
                                    vertico-directory
                                    vertico-flat
                                    vertico-indexed
                                    vertico-mouse
                                    vertico-quick
                                    vertico-repeat
                                    vertico-reverse)))

(require 'vertico)

(defun minibuffer-backward-kill (arg)
  "When minibuffer is completing a file name delete up to parent
folder, otherwise delete a word"
  (interactive "p")
  (if minibuffer-completing-file-name
      ;; Borrowed from /~https://github.com/raxod502/selectrum/issues/498#issuecomment-803283608
      (if (string-match-p "/." (minibuffer-contents))
          (zap-up-to-char (- arg) ?/)
        (delete-minibuffer-contents))
    (backward-kill-word arg)))

;; Configure directory extension.
(use-package vertico-directory
  :after vertico
  :ensure nil
  ;; More convenient directory navigation commands
  :bind (:map vertico-map
              ("RET" . vertico-directory-enter)
              ("DEL" . vertico-directory-delete-char)
              ("M-DEL" . vertico-directory-delete-word))
  ;; Tidy shadowed file names
  :hook (rfn-eshadow-update-overlay . vertico-directory-tidy))

(with-eval-after-load 'evil
  (define-key vertico-map (kbd "C-j") 'vertico-next)
  (define-key vertico-map (kbd "C-k") 'vertico-previous)
  (define-key vertico-map (kbd "M-h") 'vertico-directory-up))

;; Cycle back to top/bottom result when the edge is reached
(customize-set-variable 'vertico-cycle t)

;; Start Vertico
(vertico-mode 1)

;;; Marginalia
;; Configure Marginalia
(require 'marginalia)
(customize-set-variable 'marginalia-annotators '(marginalia-annotators-heavy marginalia-annotators-light nil))
(marginalia-mode 1)

;; Set some consult bindings
(global-set-key (kbd "C-s") 'consult-line)
(define-key minibuffer-local-map (kbd "C-r") 'consult-history)

(setq completion-in-region-function #'consult-completion-in-region)

;;; Orderless
;; Set up Orderless for better fuzzy matching
(require 'orderless)
(customize-set-variable 'completion-styles '(orderless))
;;; Embark
(require 'embark)
(require 'embark-consult)

(global-set-key [remap describe-bindings] #'embark-bindings)
(global-set-key (kbd "C-.") 'embark-act)

;; Use Embark to show bindings in a key prefix with `C-h`
(setq prefix-help-command #'embark-prefix-help-command)

(with-eval-after-load 'embark-consult
  (add-hook 'embark-collect-mode-hook #'consult-preview-at-point-mode))

;;; Corfu
;; Setup corfu for popup like completion
(customize-set-variable 'corfu-cycle t) ; Allows cycling through candidates
(customize-set-variable 'corfu-auto t)  ; Enable auto completion
(customize-set-variable 'corfu-auto-prefix 2) ; Complete with less prefix keys
(customize-set-variable 'corfu-auto-delay 0.0) ; No delay for completion
(customize-set-variable 'corfu-echo-documentation 0.25) ; Echo docs for current completion option

(global-corfu-mode 1)

(add-hook 'corfu-mode-hook #'corfu-doc-mode)
(define-key corfu-map (kbd "M-p") #'corfu-doc-scroll-down)
(define-key corfu-map (kbd "M-n") #'corfu-doc-scroll-up)
(define-key corfu-map (kbd "M-d") #'corfu-doc-toggle)

;;; Cape

;; Setup Cape for better completion-at-point support and more
(require 'cape)

;; Add useful defaults completion sources from cape
(add-to-list 'completion-at-point-functions #'cape-file)
(add-to-list 'completion-at-point-functions #'cape-dabbrev)

;; Silence the pcomplete capf, no errors or messages!
;; Important for corfu
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent)

;; Ensure that pcomplete does not write to the buffer
;; and behaves as a pure `completion-at-point-function'.
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify)
(add-hook 'eshell-mode-hook
          (lambda () (setq-local corfu-quit-at-boundary t
				 corfu-quit-no-match t
				 corfu-auto nil)
            (corfu-mode)))

(straight-use-package 'company)

;;;---------WHICH-KEY----------
(straight-use-package 'which-key)
(require 'which-key)
(setq which-key-idle-delay 0.3)
(which-key-mode 1)

;;;---------GENERAL KEYBINDINGS------------
(use-package general
  :config
  (general-evil-setup t)
  (general-create-definer leader-keys
    :keymaps '(normal)
    :prefix "SPC"
    :global-prefix "C-SPC")

  (general-define-key
   :states 'normal
   "K" 'lsp-ui-doc-glance)

  (setq lsp-ui-doc-position 'at-point)

  (global-set-key (kbd "C-u") #'evil-scroll-up)
  (global-set-key (kbd "C-M-l") #'lsp-format-buffer)
  (global-set-key (kbd "M-k") #'lsp-ui-doc-glance)

  (leader-keys
    "." '(find-file-at-point :which-key "find File"))
  (leader-keys
    "h" '(:ignore t :which-key "help")
    "hf" '(describe-function :which-key "function")
    "hv" '(describe-variable :which-key "variable")
    "hk" '(describe-key :which-key "key"))
  (leader-keys
    "b" '(:ignore t :which-key "buffer")
    "bk" '(kill-current-buffer :which-key "kill buffer")
    "bi" '(ibuffer :which-key "ibuffer")
    "bf" '(consult-buffer :which-key "find buffer"))
  (leader-keys
    "c" '(:ignore t :which-key "Code")
    "cd" '(lsp-find-definition :which-key "jump to definition")
    "cf" '(lsp-find-references :which-key "find references")
    "ck" '(lsp-describe-thing-at-point  :which-key "documentation")
    "cl" '(lsp-format-buffer :which-key "format buffer")
    "cs" '(consult-line :which-key "search buffer")
    "cc" '(recompile :which-key "compile")
    "cr" '(lsp-rename :which-key "rename"))
  (leader-keys
    "e" '(:ignore t :which-key "+cider")
    "ee" '(cider-eval-last-sexp :which-key "eval last s-exp")
    "ed" '(cider-eval-defun-at-point :which-key "eval function")
    "eb" '(cider-eval-buffer :which-key "eval buffer")
    "ea" '(cider-eval-all-files :which-key "eval all files")
    "ep" '(cider-eval-print-last-sexp :which-key "eval print last sexp")
    "ei" '(cider-inspect-defun-at-point :which-key "inspect func at point"))
  (leader-keys
    "n" '(:ignore t :which-key "+notes")
    "nc" '(denote :which-key "create note")
    "nj" '(create-denote-journal :which-key "journal")
    "nf" '(consult-notes :which-key "find note")
    "nl" '(dired-notes :which-key "list notes"))
  (leader-keys
    "w" '(:ignore t :which-key "+window")
    "wl" '(evil-window-right :which-key "jump right")
    "wh" '(evil-window-left :which-key "jump left")
    "wj" '(evil-window-down :which-key "jump down")
    "wk" '(evil-window-up :which-key "jump up"))
  (leader-keys
    "g" '(:ignore t :which-key "+magit")
    "gg" '(magit :which-key "status")
    "gf" '(magit-fetch :which-key "fetch")
    "gF" '(magit-fetch :which-key "pull"))
  (leader-keys
    "s" '(:ignore t :which-key "+search")
    "sl" '(consult-line :which-key "line")
    "sb" '(consult-buffer :which-key "buffer")
    "sa" '(consult-org-agenda :which-key "agenda")
    "sn" '(consult-notes :which-key "notes")
    "sm" '(consult-bookmark :which-key "bookmark")
    "st" '(consult-theme :which-key "themes")
    "sp" '(consult-project-buffer :which-key "themes"))
  (leader-keys
    "m" '(:ignore t :which-key "+mail")
    "mm" '(notmuch :which-key "open mail")
    "md" '(tag-mail-as-deleted :which-key "mark mail as deleted"))
  (leader-keys
    "j" '(:ignore t :which-key "+janet")
    "jb" '(ijanet-eval-buffer :which-key "eval buffer")
    "je" '(ijanet-eval-sexp-at-point :which-key "eval expression"))
  (leader-keys
    "f" '(:ignore t :which-key "file")
    "ff" '(find-file-at-point :which-key "find file")
    "fs" '(save-buffer :which-key "save file")
    "fd" '(dired-jump :which-key "dired"))
  (leader-keys
    "d" '(:ignore t :which-key "directory")
    "dd" '(dired-jump :which-key "dired")
    "dc" '(make-directory :which-key "create directory")
    "dk" '(delete-directory :which-key "delete directory"))
  (leader-keys
    "t" '(gts-do-translate :which-key "translate"))
  (leader-keys
    "o" '(:ignore t :which-key "+org")
    "oa" '(org-agenda :which-key "agenda")
    "oc" '(org-capture :which-key "capture")
    "os" '(org-schedule :which-key "schedule")
    "od" '(org-schedule :which-key "deadline"))
  (leader-keys
    "p" '(:ignore t :which-key "+projectile")
    "pf" '(projectile-find-file :which-key "find file in project")
    "pd" '(projectile-find-dir :which-key "find dir in project")
    "pb" '(projectile-switch-to-buffer :which-key "find buffer in project")
    "pv" '(projectile-run-vterm :which-key "project vterm")
    "ps" '(projectile-switch-project :which-key "switch to project"))
  (leader-keys
    "v" '(:ignore t :which-key "+ehsell")
    "vv" '(eshell :which-key "open eshell")))

(defun tag-mail-as-deleted ()
  "Tag current email as deleted in notmuch."
  (interactive)
  (notmuch-tag (list "+deleted" "-inbox")))

(defun dired-notes ()
  "Open Dired in the ~/notes folder."
  (interactive)
  (dired "~/notes"))

;;;---------LSP----------------
(use-package lsp-mode
  :init
  ;; set prefix for lsp-command-keymap (few alternatives - "C-l", "C-c l")
  (setq lsp-keymap-prefix "C-c l")
  :hook (;; replace XXX-mode with concrete major-mode(e. g. python-mode)
         (clojure-mode . lsp)
		 (rust-mode . lsp)
		 (c-mode . lsp)
		 (go-mode . lsp)
		 (lua-mode . lsp)
		 (nim-mode . lsp)
		 ;; if you want which-key integration
		 (lsp-mode . lsp-enable-which-key-integration))
  :commands lsp)

(use-package lsp-ui :commands lsp-ui-mode)

;;Syntax checking
(use-package flycheck
  :ensure t
  :init (global-flycheck-mode))

;;For debugging
(use-package dap-mode)

(setq lsp-ui-doc-show-with-mouse nil)
;;;---------DASHBOARD----------
(use-package dashboard
  :ensure t
  :config
  (dashboard-setup-startup-hook))

;;;---------Treemacs-----------
(use-package treemacs
  :ensure t
  :defer t
  :config
(progn
    (setq treemacs-collapse-dirs                   (if treemacs-python-executable 3 0)
          treemacs-deferred-git-apply-delay        0.5
          treemacs-directory-name-transformer      #'identity
          treemacs-display-in-side-window          t
          treemacs-eldoc-display                   'simple
          treemacs-file-event-delay                5000
          treemacs-file-extension-regex            treemacs-last-period-regex-value
          treemacs-file-follow-delay               0.2
          treemacs-file-name-transformer           #'identity
          treemacs-follow-after-init               t
          treemacs-expand-after-init               t
          treemacs-find-workspace-method           'find-for-file-or-pick-first
          treemacs-git-command-pipe                ""
          treemacs-goto-tag-strategy               'refetch-index
          treemacs-header-scroll-indicators        '(nil . "^^^^^^")
          treemacs-indentation                     2
          treemacs-indentation-string              " "
          treemacs-is-never-other-window           nil
          treemacs-max-git-entries                 5000
          treemacs-missing-project-action          'ask
          treemacs-move-forward-on-expanf          nil
          treemacs-no-png-images                   nil
          treemacs-no-delete-other-windows         t
          treemacs-project-follow-cleanup          nil
          treemacs-persist-file                    (expand-file-name ".cache/treemacs-persist" user-emacs-directory)
          treemacs-position                        'left
          treemacs-read-string-input               'from-child-frame
          treemacs-recenter-distance               0.1
          treemacs-recenter-after-file-follow      nil
          treemacs-recenter-after-tag-follow       nil
          treemacs-recenter-after-project-jump     'always
          treemacs-recenter-after-project-expand   'on-distance
          treemacs-litter-directories              '("/node_modules" "/.venv" "/.cask")
          treemacs-show-cursor                     nil
          treemacs-show-hidden-files               t
          treemacs-silent-filewatch                nil
          treemacs-silent-refresh                  nil
          treemacs-sorting                         'alphabetic-asc
          treemacs-select-when-already-in-treemacs 'move-back
          treemacs-space-between-root-nodes        t
          treemacs-tag-follow-cleanup              t
          treemacs-tag-follow-delay                1.5
          treemacs-text-scale                      nil
          treemacs-user-mode-line-format           nil
          treemacs-user-header-line-format         nil
          treemacs-wide-toggle-width               70
          treemacs-width                           35
          treemacs-width-increment                 1
          treemacs-width-is-initially-locked       t
          treemacs-workspace-switch-cleanup        nil)
    (treemacs-follow-mode t)
    (treemacs-filewatch-mode t)
    (treemacs-fringe-indicator-mode 'always)))

(use-package treemacs-evil
  :after (treemacs evil)
  :ensure t)

(use-package treemacs-icons-dired
  :hook (dired-mode . treemacs-icons-dired-enable-once)
  :ensure t)

;;;---------DIRVISH------------
;(use-package dirvish
;  :ensure t
;  :init
;  ;; Let Dirvish take over Dired globally
;  (dirvish-override-dired-mode))

;;;---------RUST---------------
(use-package rustic)
(add-hook 'rust-mode-hook #'smartparens-mode)

;;;---------GO-----------------
(straight-use-package 'go-mode)
(add-hook 'go-mode-hook (lambda () (setq tab-width 4)))
(add-hook 'go-mode-hook (lambda () (company-mode 0)))
(add-hook 'go-mode-hook (lambda () (evil-define-key 'normal go-mode-map (kbd "K") nil)))
(add-hook 'go-mode-hook #'smartparens-mode)


;;;---------CLOJURE------------
(straight-use-package 'cider)
(straight-use-package 'clojure-mode)
(require 'cider)
(require 'clojure-mode)
(add-hook 'clojure-mode-hook #'smartparens-mode)

;;;---------JANEGT------------

(straight-use-package
 '(ijanet
   :type git
   :host github
   :repo "serialdev/ijanet-mode"
))

;(require 'janet-mode)
;(add-hook 'janet-mode-hook #'smartparens-mode)


;;;---------MAGIT-------------
(straight-use-package 'magit)
(straight-use-package 'evil-magit)

;;;---------PROJECTILE-------
(straight-use-package 'projectile)
(projectile-mode +1)

;;---------SMARTPARENS--------
(straight-use-package 'smartparens)
(require 'smartparens-config)
(add-hook 'lisp-mode-hook #'smartparens-mode)
(add-hook 'elisp-mode-hook #'smartparens-mode)

;;---------ORG--------
;(straight-use-package 'org-appear)

;; Return or left-click with mouse follows link
;;(customize-set-variable 'org-mouse-1-follows-link t)

;; Display links as the description provided
;(customize-set-variable 'org-descriptive-links t)

;; Hide markup markers
;(customize-set-variable 'org-hide-emphasis-markers t)

;(add-hook 'org-mode-hook 'org-appear-mode)

(customize-set-variable 'org-return-follows-link t)

(setq org-agenda-files '("~/notes/agenda.org"))

;;Capture Templates
(setq org-capture-templates
      '(("t" "Todo" entry
		 (file "~/notes/agenda.org")
         "* TODO %?\n  %i\n  %a")))

;;;---------DENOTE------------
(straight-use-package 'denote)
(setq denote-directory (expand-file-name "~/notes"))

;;(require 'denote-dired)
;;(add-hook 'dired-mode-hook #'denote-dired-mode)

;;TODO Check if file already exists
;;Use file-exists-p
(defun create-denote-journal ()
  "Create an entry tagged 'journal' with the date as its title."
  (interactive)
  (denote
   (format-time-string "%A %e %B %Y") ; format like Tuesday 14 June 2022
   '("journal"))) ; multiple keywords are a list of strings: '("one" "two")

(use-package consult-notes
  :straight (:type git :host github :repo "mclear-tools/consult-notes")
  :commands (consult-notes
             consult-notes-search-in-all-notes)
             ;consult-notes-org-roam-find-node
             ;consult-notes-org-roam-find-node-relation)
  :config (setq consult-notes-sources '(("Notes" ?d "~/notes"))))


(add-hook 'denote-link-insert-functions 'denote-link-backlinks t)

;;TODO Move this to org mode section
(setq org-agenda-custom-commands
      `(("a" "Daily agenda and top priority tasks"
         ((tags-todo "*"
                     ((org-agenda-skip-function '(org-agenda-skip-if nil '(timestamp)))
                      ;(org-agenda-skip-function
                       ;`(org-agenda-skip-entry-if
                      (org-agenda-block-separator nil)
                      (org-agenda-overriding-header "Tasks\n")))
          (agenda "" ((org-agenda-span 1)
                      (org-deadline-warning-days 0)
                      (org-agenda-block-separator nil)
                      (org-scheduled-past-days 0)
                      ;; We don't need the `org-agenda-date-today'
                      ;; highlight because that only has a practical
                      ;; utility in multi-day views.
                      (org-agenda-day-face-function (lambda (date) 'org-agenda-date))
                      (org-agenda-format-date "%A %-e %B %Y")
                      (org-agenda-overriding-header "\nToday\n")))
          (agenda "" ((org-agenda-start-on-weekday nil)
                      (org-agenda-start-day "+1d")
                      (org-agenda-span 7)
                      (org-deadline-warning-days 0)
                      (org-agenda-block-separator nil)
                      (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
                      (org-agenda-overriding-header "\nWeek\n")))
          (agenda "" ((org-agenda-time-grid nil)
                      (org-agenda-start-on-weekday nil)
                      ;; We don't want to replicate the previous section's
                      ;; three days, so we start counting from the day after.
                      (org-agenda-start-day "+4d")
                      (org-agenda-span 14)
                      (org-agenda-show-all-dates nil)
                      (org-deadline-warning-days 0)
                      (org-agenda-block-separator nil)
                      ;(org-agenda-entry-types '(:deadline))
                      (org-agenda-skip-function '(org-agenda-skip-entry-if 'done))
                      (org-agenda-overriding-header "\nFuture (+14d)\n")))))))

;;;---------GO-TRANSLATE------
(straight-use-package 'go-translate)
(require 'go-translate)

(setq gts-translate-list '(("de" "en")))

(setq gts-default-translator
      (gts-translator
       :picker (gts-prompt-picker)
       :engines (list (gts-bing-engine) (gts-google-engine))
       :render (gts-buffer-render)))

;;;---------POSFRAME----------
(straight-use-package 'posframe)

;;;---------EPUB--------------
(straight-use-package 'nov)
(setq nov-text-width 80)

;;;---------VTERM-------------
(use-package vterm
  :commands vterm
  :config
  (setq term-prompt-regexp "^[^#$%>\n]*[#$%>] *")
  (setq vterm-shell "zsh")
  (setq vterm-max-scrollback 10000))

;;;---------OBSIDIAN----------
(use-package obsidian
  :straight (:type git :host github :repo "licht1stein/obsidian.el")
  :ensure t
  :demand t
  :config
  (obsidian-specify-path "~/notes")
  (global-obsidian-mode t)
  :custom
  (obsidian-inbox-directory "inbox"))

;;Highlight source code blocks in markdown files
(setq markdown-fontify-code-blocks-natively t)

;;;---------LUA-------------
(straight-use-package 'lua-mode)
(setq lsp-clients-lua-lsp-server-install-dir "/opt/homebrew/bin//lua-language-server")

(use-package pico8-mode
  :straight (:type git :host github :repo "Kaali/pico8-mode"))

;;;--------Line Numbers------
(global-display-line-numbers-mode 1)
(setq global-display-line-numbers 'relative)
(setq display-line-numbers 'relative)

;;;--------Projectile-----------
(straight-use-package 'projectile)
(projectile-mode +1)
(define-key projectile-mode-map (kbd "C-c C-p") 'projectile-command-map)

;;;---------NotMuch-------------
(use-package notmuch
  :ensure t
  :defer t)

(setq message-kill-buffer-on-exit t)

(shell-command "notmuch search --output=files --format=text0 tag:deleted | xargs -r0 rm")
(shell-command "offlineimap &")

;;;---------JSON----------------
(straight-use-package 'json-mode)

;;;----------Email------------
;; (straight-use-package '(mu4e :host github :repo "emacsmirror/mu4e"
;;                              :files (:defaults "mu4e/*.el")))

;; (setq mu4e-mu-binary (executable-find "mu"))
;; (setq mu4e-maildir "~/mail")
;; (setq mu4e-get-mail-command "offlineimap")
;; (setq mu4e-update-interval 300)
;; (setq mu4e-attachment-dir "~/Downloads")

;;;---------Sly---------------
(straight-use-package 'sly)

;;;---------Elfeed------------
(straight-use-package 'elfeed)
(setq elfeed-feeds
      '(("https://www.juxt.pro/blog/rss.xml" clojure programming)
	("http://planet.clojure.in/atom.xml" clojure programming)
	("https://blog.michielborkent.nl/atom.xml" clojure programming)
	("https://rss.dw.com/atom/rss-en-all" news)
	("https://hnrss.org/frontpage.atom" news programming)))

;;;---------Nim-------------
(straight-use-package 'nim-mode)
(setq nimsuggest-path "~/.nimble/bin/nimsuggest")

(defun my--init-nim-mode ()
  "Local init function for `nim-mode'."

  ;; Make files in the nimble folder read only by default.
  ;; This can prevent to edit them by accident.
  (when (string-match "/\.nimble/" (or (buffer-file-name) "")) (read-only-mode 1))

  ;; The following modes are disabled for Nim files just for the case
  ;; that they are enabled globally.
  ;; Anything that is based on smie can cause problems.
  (auto-fill-mode 0)
  (electric-indent-local-mode 0)
)

(add-hook 'nim-mode-hook 'my--init-nim-mode)
(add-hook 'nim-mode-hook #'smartparens-mode)

;;Nim Repl
(straight-use-package
 '(inim
   :type git
   :host github
   :repo "serialdev/inim-mode"
   :config
   (add-hook inim-mode-hook #'evcxr-minor-mode)
))

;------------------------------
(provide 'ínit)
;;; init.el ends here
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(custom-safe-themes 'nil)
 '(ignored-local-variable-values '((cider-shadow-cljs-default-options . "app")))
 '(warning-suppress-types '(((unlock-file)))))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )