My Emacs Config

;; -*- lexical-binding: t -*-

(setq
 frame-inhibit-implied-resize t ;; prevent resize window on startup
 default-frame-alist
 '((width . 130)
   (height . 45))
 visible-bell t ;; Set up the visible bell
 )

(scroll-bar-mode -1)
;; Disable visible scrollbar
(tool-bar-mode -1)
;; Disable the toolbar
(tooltip-mode -1)
;; Disable tooltips
(set-fringe-mode 10)
;; Give some breathing room
(menu-bar-mode 1)
;; menu bar

;; (hs-minor-mode 1)  ;; enable hs minor mode hide/show code block

;; Make ESC quit prompts
(global-set-key
 (kbd "<escape>") 'keyboard-escape-quit
 )
;; transparency 
;; (set-frame-parameter (selected-frame) 'alpha '(98 . 92))
(setq-default
 display-time-default-load-average nil            ; Don't display load average
 )

(setq backup-inhibited t)  ;; disable backup

(display-time-mode 1)                             ; Enable time in the mode-line
(setq display-time-format "%I:%M %p | W %U")

(unless (string-match-p "^Power N/A" (battery))   ; On laptops...
  (display-battery-mode 1))                       ; it's nice to know how much power you have

;; (global-subword-mode 1)                           ; Iterate through CamelCase words

;; Package System Setup
;; straight.el
(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))

(straight-use-package 'use-package)
(setq straight-use-package-by-default t)

;; old config
;; Initialize package sources

;; (require 'package)

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

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

;; ;; Initialize use-package on non-Linux platforms
;; (unless (package-installed-p 'use-package)
;;    (package-install 'use-package))

;; (require 'use-package)
;; (setq use-package-always-ensure t)
;; Package System Setup End 

(use-package gcmh
  :straight t
  :diminish
  :hook
  (after-init . gcmh-mode)
  :init
  (setq gcmh-idle-delay 'auto
        gcmh-auto-idle-delay-factor 10
        gcmh-high-cons-threshold (* 16 1024 1024)))

;; theme
;; (add-to-list 'custom-theme-load-path "~/.emacs.d/themes")
(straight-use-package 'kaolin-themes)
(straight-use-package 'gruvbox-theme)
;; (straight-use-package  'ef-themes)
(load-theme 'gruvbox-dark-hard t)
;; (load-theme 'ef-bio :no-confirm)
;; (load-theme 'ef-tritanopia-light :no-confirm)
;; (setq kaolin-themes-modeline-border nil
;;         kaolin-themes-italic-comments t)
;; (
;; (load-theme 'kaolin-ocean t)
;; (straight-use-package 'gruvbox-theme)
;;; dark variants
;; Range:   233 (darkest) ~ 239 (lightest)
;; Default: 237
;; (load-theme 'gruvbox-dark-hard t)
;; (load-theme 'kaolin-light t)
;; (load-theme 'kaolin-temple t)

;; Load the theme of your choice:
;; (load-theme 'modus-operandi t) ;; OR (load-theme 'modus-vivendi)
;; (define-key global-map (kbd "M-<f5>") #'modus-themes-toggle)

;; (use-package all-the-icons
;;   :straight t
;;   :ensure t
;;   )
;; (all-the-icons-install-fonts t)

(column-number-mode)
(global-display-line-numbers-mode t)
(setq display-line-numbers-type 'relative)
;; Disable line numbers for some modes
(dolist (mode '(org-mode-hook
                term-mode-hook
                vterm-mode-hook
                treemacs-mode-hook
                shell-mode-hook
                eshell-mode-hook))
  (add-hook mode (lambda () (display-line-numbers-mode 0))))

(use-package command-log-mode)

(use-package flycheck
  :straight t
  :init (global-flycheck-mode))

(use-package rainbow-delimiters
  :hook (prog-mode . rainbow-delimiters-mode))

(use-package which-key
  :init (which-key-mode)
  :diminish which-key-mode
  :config
  (setq which-key-idle-delay 1))

(use-package projectile
  :diminish projectile-mode
  :config (projectile-mode)
  :custom ((projectile-completion-system 'ivy))
  :bind-keymap
  ("C-c p" . projectile-command-map)
  :init
  ;; NOTE: Set this to the folder where you keep your Git repos!
  (when (file-directory-p "~/Desktop/Workspace")
    (setq projectile-project-search-path '("~/Desktop/Workspace" "~/Desktop/ML")))
  (setq projectile-switch-project-action #'projectile-dired))

(use-package counsel-projectile
  :config (counsel-projectile-mode))

(use-package dashboard
  :straight t
  :config
  (setq dashboard-banner-logo-title "  felladog")
  (setq dashboard-startup-banner "~/.emacs.d/pc.png")
  (setq dashboard-center-content t)
  (setq dashboard-set-heading-icons t)
  (setq dashboard-set-file-icons t)
  (setq dashboard-projects-backend 'projectile) 
  (setq dashboard-items '((recents  . 5)
                          (projects . 3)
                          (bookmarks . 5)
                          (agenda . 5)))
  (setq dashboard-footer-messages '("Happy learning! C-c m d D"))

  (dashboard-setup-startup-hook))

(setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))

                                        ; undo and redo
(use-package undo-tree)
(global-undo-tree-mode t)
(setq undo-tree-auto-save-history 'nil)

(use-package hydra)

(use-package evil
  :init
  (setq evil-want-integration t)
  (setq evil-want-keybinding nil)
  (setq evil-want-C-u-scroll t)
  (setq evil-want-C-i-jump nil)
  (setq evil-emacs-state-cursor '("#b7c63f" bar))        
  (setq evil-normal-state-cursor '("#3faec6" bar))       
  (setq evil-insert-state-cursor '("#3fabc6" bar))       
  (setq evil-undo-system 'undo-tree)
  :config
  (evil-mode 1)
  (define-key evil-insert-state-map (kbd "C-g") 'evil-normal-state)
  (define-key evil-insert-state-map (kbd "C-h") 'evil-delete-backward-char-and-join)

                                        ; alternative C-x C-s
  (define-key evil-normal-state-map (kbd ",w") 'save-buffer)
                                        ; alternative C-w c
  (define-key evil-normal-state-map (kbd ",q") 'evil-window-delete) 

                                        ; (evil-normal-state-map C-r)
  ;; 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)
  (evil-set-initial-state 'messages-buffer-mode 'normal)
  (evil-set-initial-state 'dashboard-mode 'normal))

(use-package evil-collection
  :after evil
  :config
  (evil-collection-init))

(setq tab-bar-new-tab-choice "*scratch*"
      tab-bar-close-button-show nil
      )

(use-package treemacs
  :straight t
  :defer t
  :init
  (with-eval-after-load 'winum
    (define-key winum-keymap (kbd "M-0") #'treemacs-select-window))
  :config
  (progn
    (treemacs-filewatch-mode t)
    (treemacs-fringe-indicator-mode 'always)
    (pcase (cons (not (null (executable-find "git")))
                 (not (null treemacs-python-executable)))
      (`(t . t)
       (treemacs-git-mode 'deferred))
      (`(t . _)
       (treemacs-git-mode 'simple))))
  :bind
  (:map global-map
        ("M-0" . treemacs-display-current-project-exclusively)
        ("C-x t 1"   . treemacs-delete-other-windows)
        ("C-x t t"   . treemacs)
        ("C-x t B"   . treemacs-bookmark)
        ("C-x t C-t" . treemacs-find-file)
        ("C-x t M-t" . treemacs-find-tag)))

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

(use-package treemacs-magit
  :after treemacs magit
  :straight t)

(use-package treemacs-persp ;;treemacs-perspective if you use perspective.el vs. persp-mode
  :after treemacs persp-mode;;or perspective vs. persp-mode
  :straight t
  :config (treemacs-set-scope-type 'perspectives))

(use-package term
  :config
  (setq explicit-shell-file-name "zsh") ;; change this to zsh, etc
  ;;(setq explicit-zsh-args '())         ;; use 'explicit-<shell>-args for shell-specific args

  ;; match the default bash shell prompt.  update this if you have a custom prompt
  (setq term-prompt-regexp "^[^#$%>\n]*[#$%>] *"))

(use-package eterm-256color
  :hook (term-mode . eterm-256color-mode))

(use-package vterm
  :ensure t
  :commands vterm
  :config
  (setq term-prompt-regexp "^[^#$%>\n]*[#$%>] *")  ;; set this to match your custom shell prompt
  (setq vterm-shell "zsh")                       ;; set this to customize the shell to launch
  (setq vterm-max-scrollback 10000))

(use-package dired
  :straight nil
  :commands (dired dired-jump)
  :bind (
         ("C-x C-j" . dired-jump))
  :custom ((dired-listing-switches "-agho --group-directories-first"))
  :config
  (evil-collection-define-key 'normal 'dired-mode-map
    "h" 'dired-single-up-directory
    "l" 'dired-single-buffer
    "j" 'dired-next-line))

(use-package dired-single)

(use-package all-the-icons-dired
  :hook (dired-mode . all-the-icons-dired-mode))

(use-package dired-hide-dotfiles
  :hook (dired-mode . dired-hide-dotfiles-mode)
  :config
  (evil-collection-define-key 'normal 'dired-mode-map
    "H" 'dired-hide-dotfiles-mode))

;; (add-to-list tree-sitter
;; (treesit-install-language-grammar)

(use-package org-download
  :after org
  :bind
  (:map org-mode-map
        (("s-Y" . org-download-screenshot)
         ("s-y" . org-download-yank))))

(use-package ox-hugo
  :straight t
  :after ox)

(use-package org-roam
  :straight t
  :custom
  (org-roam-directory (file-truename "~/Dropbox/org-notes/"))
  (org-roam-dailies-directory "journals/")
  (org-roam-file-extensions '("org"))
  :bind (("C-c n l" . org-roam-buffer-toggle)
         ("C-c n f" . org-roam-node-find)
         ("C-c n g" . org-roam-graph)
         :map org-mode-map
         ("C-c n i" . org-roam-node-insert)
         ("C-c n I" . org-roam-insert-immediate)
         :map org-roam-dailies-map
         ("Y" . org-roam-dailies-capture-yesterday)
         ("T" . org-roam-dailies-capture-tomorrow)
         ("D" . org-roam-dailies-capture-today))
  :bind-keymap
  ("C-c m d" . org-roam-dailies-map)
  :config
  (org-roam-setup)
  (require 'org-roam-dailies) ;; Ensure the keymap is available
  (setq org-roam-auto-replace-fuzzy-links nil)
  (setq org-roam-completion-everywhere t)
  (setq org-roam-prefer-id-links t)
  (setq org-roam-graph-exclude-matcher '("pages" "journals"))
  (setq org-roam-capture-templates
        '(("d" "default" plain (file "~/Dropbox/org-notes/templates/plainTemplate.org")
           :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" ":PROPERTIES:\n:SSOR: ignore \n:END:\n#+title: ${title} \n#+date: %(format-time-string \"%Y-%m-%d %H:%M\") \n")
           :unnarrowed t)
          ("b" "book" plain (file "~/Dropbox/org-notes/templates/plainTemplate.org")
           :if-new (file+head "book/%<%Y%m%d%H%M%S>-${slug}.org" ":PROPERTIES:\n:SSOR: ignore \n:END:\n#+title: ${title} \n#+date: %(format-time-string \"%Y-%m-%d %H:%M\") \n")
           :unnarrowed t)
          ("p" "project journal" plain (file "~/Dropbox/org-notes/templates/plainTemplate.org")
           :if-new (file+head "p_journals/%<%Y%m%d%H%M%S>-${slug}.org" ":PROPERTIES:\n:SSOR: ignore \n:END:\n#+title: ${title} \n#+date: %(format-time-string \"%Y-%m-%d %H:%M\") \n")
           :unnarrowed t)
          ("w" "work" plain (file "~/Dropbox/org-notes/templates/workTemplate.org")
           :if-new (file+head "wrok/%<%Y%m%d%H%M%S>-${slug}.org" ":PROPERTIES:\n:SSOR: ignore \n:END:\n#+title: ${title} \n#+date: %(format-time-string \"%Y-%m-%d %H:%M\") \n")
           :unnarrowed t)))
(setq org-roam-dailies-capture-templates
     '(("d" "default" entry "** %(format-time-string \"<%Y-%m-%d %H:%M>\") %?"
     :target (file+head "%<%Y-%m-%d>.org"
                        "#+title: %<%Y-%m-%d>\n#+STARTUP: content\n"))))


  ;; Org-roam interface
  ;; the directory of the node
  (cl-defmethod org-roam-node-directories ((node org-roam-node))
    (if-let ((dirs (file-name-directory (file-relative-name (org-roam-node-file node) org-roam-directory))))
        (format "(%s)" (car (f-split dirs)))
      ""))

  ;; backlinks count
  (cl-defmethod org-roam-node-backlinkscount ((node org-roam-node))
    (let* ((count (caar (org-roam-db-query
                         [:select (funcall count source)
                                  :from links
                                  :where (= dest $s1)
                                  :and (= type "id")]
                         (org-roam-node-id node)))))
      (format "[%d]" count)))
  ;; 1 title tags 
  (setq org-roam-node-display-template "${backlinkscount:4} ${directories:15} ${title:80} ${tags:60}")
  )

(setq org-roam-v2-ack t)

;; for org-roam-buffer-toggle
(add-to-list 'display-buffer-alist
             '(("\\*org-roam\\*"
                (display-buffer-in-direction)
                (direction . right)
                (window-width . 0.23)
                (window-height . fit-window-to-buffer))))

(use-package org-roam-bibtex
  :straight t
  :after (org-roam)
  :hook (org-roam-mode . org-roam-bibtex-mode)
  :config
  (require 'org-ref))

(use-package org-transclusion
  :straight '(org-transclusion :host github
                               :repo "nobiot/org-transclusion"
                               :branch "main"
                               :files ("*.el"))
  :after org
  :bind (:map global-map
              (("<f10>" . #'org-transclusion-add)
               ("C-c n t" . #'org-transclusion-mode)
               )))

(use-package org-wild-notifier
  :ensure t
  :init (org-wild-notifier-mode 1)
  :custom
  (alert-default-style 'libnotify)
  (org-wild-notifier-alert time '(1 5 30))
  (org-wild-notifier-keyword-whitelist '("TODO" "NEXT"))
  (org-wild-notifier-alert-times-property "WILD_NOTIFY")
  (org-wild-notifier-notification-title "Org Alert!"))

(setq alert-fade-time 30)

(use-package pdf-tools
  :pin manual ;; manually update
  :straight t
  :config
  ;; initialise
  (pdf-tools-install)
  ;; open pdfs scaled to fit page
  (setq-default pdf-view-display-size 'fit-page)
  ;; automatically annotate highlights
  (setq pdf-annot-activate-created-annotations t)
  ;; use normal isearch
  (define-key pdf-view-mode-map (kbd "C-s") 'isearch-forward))

(straight-use-package 'nov\.el)

(setq
 mpc-browser-tags '(Filename)
 mpc-host "0.0.0.0:6900"
 mpc-songs-format "%-20{Artist} %26{Title} %40{Album} %4{Time}")

(global-set-key (kbd "C-c C-p") 'mpc-play-at-point)
;; song_columns_list_format = "(2)[magenta]{} (23)[red]{a} (26)[yellow]{t|f} (40)[green]{b} (4)[blue]{l}"

(straight-use-package 'speed-type)

(setq org-cite-global-bibliography '("~/Dropbox/org-notes/bib/zotBiB.bib"))

(straight-use-package 'org-ref)

(use-package org-noter
  :straight t
  ;; (:host github :repo "dmitrym0/org-noter-plus-djvu" :branch "master")
  :after (:any org pdf-view)
  :config
  (setq
   ;; The WM can handle splits
   org-noter-notes-window-location 'other-frame
   ;; Please stop opening frames
   org-noter-always-create-frame nil
   ;; I want to see the whole file
   org-noter-hide-other nil
   org-noter-default-notes-file-names '("~/Dropbox/org-notes/org-noter/Notes.org")
   ;; Everything is relative to the main notes file
   org-noter-notes-search-path '("~/Dropbox/org-notes/paper_notes/" "~/Dropbox/org-notes/book/")
   )
  )

;; (straight-use-package
;;  '(org-fc
;;    :type git :repo "https://git.sr.ht/~l3kn/org-fc"
;;    :files (:defaults "awk" "demo.org")
;;    :after org
;;    :custom (org-fc-directories '("~/Dropbox/org-notes/orgfc/"))
;;    :config
;;    (require 'org-fc-hydra)))

(straight-use-package 'yasnippet)
(setq yas-snippet-dirs
      '("~/Desktop/emacs_config/snippets"                 ;; personal snippets
        ))
(yas-global-mode 1)
;; tetsst

(use-package ledger-mode
  :straight t
  :ensure t
  :init
  (setq ledger-clear-whole-transactions 1)
  :config
  (add-to-list 'evil-emacs-state-modes 'ledger-report-mode)
  :mode "\\.dat\\'")

(straight-use-package 'annotate\.el)

(straight-use-package 'deadgrep)

(straight-use-package 'hl-line)
;; (set-face-background 'hl-line "#e7e2ef")
(add-hook 'prog-mode-hook 'hl-line-mode)
(add-hook 'org-mode-hook 'hl-line-mode)

(fset 'yes-or-no-p 'y-or-n-p)
(setq use-dialog-box nil)

(put 'downcase-region 'disabled nil)

                                        ; stream 3
(use-package general
  :config
  (general-create-definer rune/leader-keys
    :keymaps '(normal insert visual emacs)
    :prefix "SPC"
    :global-prefix "C-SPC")
  )

;; (define-key dired-next-line (kbd "SPC") nil)

(straight-use-package 'rainbow-mode)

(setq calendar-week-start-day 1)

(setq calendar-intermonth-text
      '(propertize
        (format "%2d"
                (car
                 (calendar-iso-from-absolute
                  (calendar-absolute-from-gregorian (list month day year)))))
        'font-lock-face 'font-lock-warning-face))

(setq calendar-intermonth-header
      (propertize "Wk"                  ; or e.g. "KW" in Germany
                  'font-lock-face 'font-lock-keyword-face))

(straight-use-package '(gptel :host github :repo "karthink/gptel"))
(setq gptel--debug nil)

(straight-use-package
 '(gptel :host github :repo "karthink/gptel")
 )
(setq gptel--debug t)