dotfiles/private_dot_config/doom/config.el

;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-

;; Place your private configuration here! Remember, you do not need to run 'doom
;; sync' after modifying this file!


;; Some functionality uses this to identify you, e.g. GPG configuration, email
;; clients, file templates and snippets. It is optional.
(setq user-full-name "Aly Sewelam"
      user-mail-address "linlysmolworthy@gmail.com")

;; Doom exposes five (optional) variables for controlling fonts in Doom:
;;
;; - `doom-font' -- the primary font to use
;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable)
;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for
;;   presentations or streaming.
;; - `doom-unicode-font' -- for unicode glyphs
;; - `doom-serif-font' -- for the `fixed-pitch-serif' face
;;
;; See 'C-h v doom-font' for documentation and more examples of what they
;; accept. For example:
;;
(setq doom-font (font-spec :family "MiraCode" :size 13.5))
;;(font-spec :family "Fira Code" :size 12.5 :weight 'semi-light)
;;    doom-variable-pitch-font (font-spec :family "Fira Sans" :size 13))
;;
;; If you or Emacs can't find your font, use 'M-x describe-font' to look them
;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to
;; refresh your font settings. If Emacs still can't find your font, it likely
;; wasn't installed correctly. Font issues are rarely Doom issues!

;; There are two ways to load a theme. Both assume the theme is installed and
;; available. You can either set `doom-theme' or manually load a theme with the
;; `load-theme' function. This is the default:
(setq doom-theme nil)
(setq darkman-themes '(:light doom-gruvbox-light :dark doom-gruvbox))
;; This determines the style of line numbers in effect. If set to `nil', line
;; numbers are disabled. For relative line numbers, set this to `relative'.
(setq display-line-numbers-type 'relative)
(when (daemonp)
  (add-hook 'server-after-make-frame-hook #'darkman-mode)
  (advice-add 'darkman-mode
              :after
              (lambda ()
                (remove-hook 'server-after-make-frame-hook
                             #'darkman-mode))))
;; If you use `org' and don't want your org files in the default location below,
;; change `org-directory'. It must be set before org loads!
(setq org-directory "~/org/")


;; Whenever you reconfigure a package, make sure to wrap your config in an
;; `after!' block, otherwise Doom's defaults may override your settings. E.g.
;;
;;   (after! PACKAGE
;;     (setq x y))
;;
;; The exceptions to this rule:
;;
;;   - Setting file/directory variables (like `org-directory')
;;   - Setting variables which explicitly tell you to set them before their
;;     package is loaded (see 'C-h v VARIABLE' to look up their documentation).
;;   - Setting doom variables (which start with 'doom-' or '+').
;;
;; Here are some additional functions/macros that will help you configure Doom.
;;
;; - `load!' for loading external *.el files relative to this one
;; - `use-package!' for configuring packages
;; - `after!' for running code after a package has loaded
;; - `add-load-path!' for adding directories to the `load-path', relative to
;;   this file. Emacs searches the `load-path' when you load packages with
;;   `require' or `use-package'.
;; - `map!' for binding new keys
;;
;; To get information about any of these functions/macros, move the cursor over
;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k').
;; This will open documentation for it, including demos of how they are used.
;; Alternatively, use `C-h o' to look up a symbol (functions, variables, faces,
;; etc).
;;
;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
;; they are implemented.


;; org-roam
(use-package! org-roam
  :custom
  (org-roam-directory "~/org/Brain")
  (org-roam-dailies-directory "daily/")

  (org-roam-capture-templates
   '(("d" "default" plain
      (function org-roam-capture--get-point)
      "%?"
      :file-name "${slug}"     ;  <---------- see?
      :head "#+title: ${title}\n#+created: %u\n#+last_modified: %U\n#+roam_tags:${tag}\n\n"
      :unnarrowed t
      :immediate-finish t  :config)))

  (org-roam-dailies-capture-templates
   '(("d" "default" entry
      "* %?"
      :target (file+head "%<%Y-%m-%d>.org"
			 "#+title: %<%Y-%m-%d>\n"))))
  :config
  (org-roam-db-autosync-enable)
  (require 'org-roam-dailies)
  (require 'org-roam-graph)
  (require 'org-roam-protocol))

(eval-after-load 'org-list
  '(add-hook 'org-checkbox-statistics-hook (function ndk/checkbox-list-complete)))

(defun ndk/checkbox-list-complete ()
  (save-excursion
    (org-back-to-heading t)
    (let ((beg (point)) end)
      (end-of-line)
      (setq end (point))
      (goto-char beg)
      (if (re-search-forward "\\[\\([0-9]*%\\)\\]\\|\\[\\([0-9]*\\)/\\([0-9]*\\)\\]" end t)
            (if (match-end 1)
                (if (equal (match-string 1) "100%")
                    ;; all done - do the state change
                    (org-todo 'done)
                  )
              (if (and (> (match-end 2) (match-beginning 2))
                       (equal (match-string 2) (match-string 3)))
                  (org-todo 'done)
		(org-todo 'todo)
                ))))))

;; ctrl+a and ctrl+x is awesome
(evil-define-key '(normal visual) 'global (kbd "C-a") 'evil-numbers/inc-at-pt)
(evil-define-key '(normal visual) 'global (kbd "C-x") 'evil-numbers/dec-at-pt)
(evil-define-key '(normal visual) 'global (kbd "C-a") 'evil-numbers/inc-at-pt-incremental)
(evil-define-key '(normal visual) 'global (kbd "C-x") 'evil-numbers/dec-at-pt-incremental)

;; YAY I LOVE PRESSING s
(remove-hook 'doom-first-input-hook
    #'evil-snipe-mode)
;; TABBSS
;; use tab indentation everywhere
(setq-default indent-tabs-mode t)
(setq-default tab-width 4) ; Assuming you want your tabs to be four spaces wide
(defvaralias 'c-basic-offset 'tab-width)
;;Chezmoi
(use-package chezmoi)

;; Silly Latex
(setq-default org-latex-toc-command "\\tableofcontents \\clearpage ")

;;org-caldav
(use-package! org-caldav
  :init
  ;; This is the sync on close function; it also prompts for save after syncing so
  ;; no late changes get lost
 (defun org-caldav-sync-at-close ()
   (org-caldav-sync)
   (save-some-buffers))
;;
  ;; This is the delayed sync function; it waits until emacs has been idle for
  ;; "secs" seconds before syncing.  The delay is important because the caldav-sync
  ;; can take five or ten seconds, which would be painful if it did that right at save.
  ;; This way it just waits until you've been idle for a while to avoid disturbing
  ;; the user.
  (setq-default org-caldav-inbox nil)
  (setq org-caldav-calendar-id "work")
  ;; (defvar org-caldav-sync-timer nil
  ;;    "Timer that `org-caldav-push-timer' used to reschedule itself, or nil.")
  ;; (defun org-caldav-sync-with-delay (secs)
  ;;   (when org-caldav-sync-timer
  ;;     (cancel-timer org-caldav-sync-timer))
  ;;   (setq org-caldav-sync-timer
  ;; 	  (run-with-idle-timer
  ;; 	   (* 1 secs) nil 'org-caldav-sync)))

  (setq org-caldav-files '("~/org/.archive/appointments.org"))
  ;; Actual calendar configuration edit this to meet your specific needs
  (setq org-caldav-url "https://cloud.sewelam.org/remote.php/dav/calendars/Aly")
      (setq org-caldav-calendars
    '(
;;      (:calendar-id "capture-1"
;;	    	:files ("~/org/todo.org")
;;		:inbox "~/org/todo.org")
      (:calendar-id "work"
		    :files ("~/org/work.org")
		    ;; :inbox "~/org/from_work.org"
		    )
      (:calendar-id "home"
      		    :files: ("~/org/home.org")
      		    :inbox "~/org/home.org")
      (:calendar-id "studies-1"
		    :files: ("~/org/studies.org")
		    :inbox "~/org/studies.org"
		    )
      ;; (:calendar-id "some-day-1"
      ;; 		    :files: ("~/org/.archive/someday.org")
      ;; 		    :inbox "~/org/.archive/someday.org")
      ))
  (setq org-caldav-backup-file "~/org-caldav/org-caldav-backup.org")
  (setq org-caldav-save-directory "~/org-caldav/")
  (setq org-icalendar-categories '(local-tags))

  :config
  (setq org-icalendar-alarm-time 1)
  (setq org-caldav-sync-direction 'org->cal)
  ;; This makes sure to-do items as a category can show up on the calendar
  (setq org-icalendar-include-todo 'all)
  (setq org-caldav-sync-todo nil)
  (setq org-caldav-delete-calendar-entries 'always)
  (setq org-caldav-delete-org-entries 'always)
  ;; This ensures all org "deadlines" show up, and show up as due dates
  (setq org-icalendar-use-deadline '(todo-due))
  ;; This ensures "scheduled" org items show up, and show up as start times
  (setq org-icalendar-use-scheduled '(todo-start))
  ;; Add the delayed save hook with a five minute idle timer
  ;; (add-hook 'after-save-hook
  ;; 	    (lambda ()
  ;; 	      (when (eq major-mode 'org-mode)
  ;; 		(org-caldav-sync-with-delay 300))))
  ;; Add the close emacs hook
  (add-hook 'kill-emacs-hook 'org-caldav-sync-at-close)
  (add-to-list 'org-caldav-todo-percent-states
	       '( 0 "IDEA")
	       )
  (add-to-list 'org-caldav-todo-percent-states
	       '( 0 "WAIT")
	       )
  )
(setq auth-sources '("~/.authinfo.gpg"))

;; MORE TEMPLATES
(after! org
  (use-package! org-contacts
    :after org
    :custom (org-contacts-files '("~/org/contacts.org"))
  )
  ;; the oj templates
(setq org-capture-templates
 '(("t" "Personal todo" entry
  (file+headline +org-capture-todo-file "Inbox")
  "* TODO %?\n%i\n%a" :prepend t)
 ("n" "Personal notes" entry
  (file+headline +org-capture-notes-file "Inbox")
  "* %u %?\n%i\n%a" :prepend t)
 ("j" "Journal" entry
  (file+olp+datetree +org-capture-journal-file)
  "* %U %?\n%i\n%a" :prepend t)
 ("p" "Templates for projects")
 ("pt" "Project-local todo" entry
  (file+headline +org-capture-project-todo-file "Inbox")
  "* TODO %?\n%i\n%a" :prepend t)
 ("pn" "Project-local notes" entry
  (file+headline +org-capture-project-notes-file "Inbox")
  "* %U %?\n%i\n%a" :prepend t)
 ("pc" "Project-local changelog" entry
  (file+headline +org-capture-project-changelog-file "Unreleased")
  "* %U %?\n%i\n%a" :prepend t)
 ("o" "Centralized templates for projects")
 ("ot" "Project todo" entry #'+org-capture-central-project-todo-file "* TODO %?\n %i\n %a" :heading "Tasks" :prepend nil)
 ("on" "Project notes" entry #'+org-capture-central-project-notes-file "* %U %?\n %i\n %a" :heading "Notes" :prepend t)
 ("oc" "Project changelog" entry #'+org-capture-central-project-changelog-file "* %U %?\n %i\n %a" :heading "Changelog" :prepend t))
      )
  (add-to-list 'org-capture-templates
	       '("c" "Contact" entry
		(file+headline "~/org/contacts.org" "Contacts")
		"* %^{Name|John Doe}
:PROPERTIES:
:PHONE: %^{Phone Number}
:ADDRESS: %^{Address}
:BIRTHDAY: %^{yyyy-mm-dd}
:EMAIL: %^{Email}
:NOTE: %^{NOTE}
:END:"
		:empty-lines 1) t)
  (add-to-list 'org-capture-templates
	       '("w" "Work" entry
		 (file+headline "~/org/work.org" "Inbox")
		 "* TODO [#A] %?\n %i" :empty-lines 1) t)
  (add-to-list 'org-capture-templates
	       '("i" "Content idea" entry
		 (file+headline "~/org/work.org" "Ideas")
		 "* TODO %? :idea:\n %i" :empty-lines 1) t)
  (add-to-list 'org-capture-templates
	       '("l" "Someday" entry
		 (file+headline "~/org/someday.org" "Inbox")
		 "* TODO %? \n %i " :empty-lines 1) t)
  (add-to-list 'org-capture-templates
	       '("s" "Studies" entry
		 (file+headline "~/org/studies.org" "Inbox")
		 "* TODO [#C] %?\n %i" :empty-lines 1) t)
  (add-to-list 'org-capture-templates
	       '("S" "Lecture" entry
		 (file+headline "~/org/studies.org" "Schedule")
		 "* %^{Subject} %^{Type|Lecture|Section}
:PROPERTIES:
:WILD_NOTIFY_BEFORE: %^{Reminders}
:LOCATION: %^{Location}
:END:
%^{Time}T"
 		:empty-lines 1) t)
  ;; add this for reminder stuff
  ;; :PROPERTIES:\n\n:WILD_NOTIFY_BEFORE: %^{Reminders}\n:END:\n
  (add-to-list 'org-capture-templates
	       '("W" "Event" entry
		 (file+headline "~/org/work.org" "Schedule")
		 "* %^{Title} %^{Type|Meeting|Class}

:PROPERTIES:
:WILD_NOTIFY_BEFORE: %^{Reminders}
:LOCATION: %^{Location}
:END:
%^{Time}T"
 		:empty-lines 1) t)
  (add-to-list 'org-capture-templates
	       '("H" "Home Event" entry
		 (file+headline "~/org/home.org" "Schedule")
		 "* %^{Title} %^{Type|Meeting|Class}
:PROPERTIES:
:WILD_NOTIFY_BEFORE: %^{Reminders}
:LOCATION: %^{Location}
:END:
%^{Time}T"
 		:empty-lines 1) t)
  (add-to-list 'org-capture-templates
	       '("h" "Home" entry
		 (file+headline "~/org/home.org" "Inbox")
		 "* TODO [#A] %?\n %i" :empty-lines 1) t)
  (add-to-list 'org-capture-templates
	       '("b" "Quote" plain
		 (file "~/org/quotes.org")
		 "%i" :empty-lines 0) t)
  (setq-default org-archive-location "~/org/.archive/%s_archive::* Finished Tasks")

  ;; Import ox-latex to get org-latex-classes and other funcitonality
  ;; for exporting to LaTeX from org
  (use-package! ox-latex
    :init
    ;; code here will run immediately
    :config
    ;; code here will run after the package is loaded
    (setq org-latex-pdf-process
          '("pdflatex -interaction nonstopmode -output-directory %o %f"
            "bibtex %b"
            "pdflatex -interaction nonstopmode -output-directory %o %f"
            "pdflatex -interaction nonstopmode -output-directory %o %f"))
    (setq org-latex-with-hyperref nil) ;; stop org adding hypersetup{author..} to latex export
    ;; (setq org-latex-prefer-user-labels t)

    ;; deleted unwanted file extensions after latexMK
    (setq org-latex-logfiles-extensions
          (quote ("lof" "lot" "tex~" "aux" "idx" "log" "out" "toc" "nav" "snm" "vrb" "dvi" "fdb_latexmk" "blg" "brf" "fls" "entoc" "ps" "spl" "bbl" "xmpi" "run.xml" "bcf" "acn" "acr" "alg" "glg" "gls" "ist")))

    (unless (boundp 'org-latex-classes)
      (setq org-latex-classes nil))
  (use-package! ox-extra
    :config
    (ox-extras-activate '(latex-header-blocks ignore-headlines)))
  ;; (setq-default org-startup-folded 'content)
  ))
(after! ox
  (use-package! ox-hugo
    ))
(setq-default cache-long-scans nil)

;; zsh pls
(setq explicit-shell-file-name "/usr/bin/zsh")
(setq shell-file-name "zsh")
(setq explicit-zsh-args '("--login" "--interactive"))
(defun zsh-shell-mode-setup ()
  (setq-local comint-process-echoes t))
(add-hook 'shell-mode-hook #'zsh-shell-mode-setup)

(after! telega
  (telega-notifications-mode 1))
(setq-default org-export-with-broken-links t)
(setq org-modern-label-border 0.1)
(global-org-modern-mode)
(add-hook 'python-mode-hook #'flymake-ruff-load)
;; Jetbrains comment keybind )
(evil-define-key '(normal insert) 'global (kbd "C-/") 'comment-line)
(evil-define-key '(visual) 'global (kbd "C-/") 'comment-dwim)
(evil-define-key '(normal visual) 'global (kbd "C-b") 'comment-box)
(setq-default ispell-dictionary "british")
(setq-default org-log-into-drawer "LOGBOOK")

;; binds for ctrl+hjkl
(evil-define-key '(normal insert) 'global (kbd "C-h") 'evil-window-left)
(evil-define-key '(normal insert) 'global (kbd "C-j") 'evil-window-down)
(evil-define-key '(normal insert) 'global (kbd "C-k") 'evil-window-up)
(evil-define-key '(normal insert) 'global (kbd "C-l") 'evil-window-right)
(setq conda-env-home-directory "~/anaconda3")

(ranger-override-dired-mode t)
;; ("\\.pdf\\'" . default) is already member in `org-file-apps'
;; Use "xdg-open" to open files by default
;; (setcdr (assq t org-file-apps-gnu) 'browse-url-xdg-open)
(setq doc-view-continuous t)
(setq telega-open-file-function 'org-open-file)
(setq org-log-done 'time)


;; (use-package! org-alert
;;   :config
;;   (setq alert-default-style 'libnotify)
;;   (setq org-alert-interval 300
;; 	org-alert-notify-cutoff 10
;; 	org-alert-notify-after-event-cutoff 10)

;;   'org-alert-enable
;;   :ensure t
;;   )
(setq org-wild-notifier-predicate-blacklist
  '((lambda (marker)
      (-contains? (org-entry-properties marker 'all)
                  '("STYLE" . "habit")))))
;; processing things
(autoload 'processing-mode "processing-mode" "Processing mode" t)
(add-to-list 'auto-mode-alist '("\\.pde$" . processing-mode))
(setq-default processing-location "~/bin/processing-java")
;; idk what this is
;;org-agenda filter
(custom-set-variables
 '(org-agenda-custom-commands
   '(("c" "Custom agenda, ignore someday tag"
      ((agenda ""))
      ((org-agenda-tag-filter-preset '("-someday")))))))

;;Setup prayer times mashallah
;; (use-package! awqat
;;   :commands (awqat-display-prayer-time-mode
;; awqat-times-for-day)
;;   :config
;;   (setq calendar-latitude  30.87605680
;;         calendar-longitude 29.74260400
;;         awqat-mode-line-format " 🕌 ${prayer} (${hours}h${minutes}m) "))
;; (add-hook 'doom-after-init-hook #'awqat-display-prayer-time-mode)
;; (add-hook 'doom-after-init-hook #'org-alert-enable)
(add-hook 'doom-after-init-hook #'org-wild-notifier-mode)
(load-file "~/.config/doom/ox-ipynb.el")

;;no auto () when chat mode
(add-hook 'telega-chat-mode-hook #'turn-off-smartparens-mode)


;;EMAIL? IN EMAKS?? OH YEA
;; Each path is relative to the path of the maildir you passed to mu
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")
(after! mu4e
  (set-email-account! "Gmail"
		      '((mu4e-sent-folder       . "/gmail/[Gmail].Sent Mail")
			(mu4e-drafts-folder     . "/gmail/[Gmail].Drafts")
			(mu4e-trash-folder      . "/gmail/[Gmail].Trash")
			(mu4e-refile-folder     . "/gmail/[Gmail].All Mail")
			(smtpmail-smtp-user     . "thatguymax9001@gmail.com")
			(mu4e-compose-signature . "---\nAly Sewelam"))
		      t)

  (set-email-account! "Work"
		      '((mu4e-sent-folder       . "/work/[Work].Sent Mail")
			(mu4e-drafts-folder     . "/work/[Work].Drafts")
			(mu4e-trash-folder      . "/work/[Work].Trash")
			(mu4e-refile-folder     . "/work/[Work].All Mail")
			(smtpmail-smtp-user     . "linlysmolworthy@gmail.com")
			(mu4e-compose-signature . "---\nLIN LEE"))
		      t)
  (setq-default mu4e-update-interval 300)
  )

;; Telega and ranger
(map! :leader
 :nv "o g" #'telega
 :nv "o r" #'ranger
 :nv "o p" #'org-pomodoro
 :nv "n d" #'org-agenda-day-view
 :nv "n w" #'org-agenda-week-view
 )
(setq-default org-roam-extract-new-file-path "${slug}.org" )

;;org latex moment
(setq-default org-latex-toc-command "\\clearpage \\tableofcontents \\clearpage")
(add-hook 'doc-view-mode-hook 'auto-revert-mode)

(defun disable-dunst-notifs ()
  (call-process-shell-command "dunstctl set-paused true"))

(defun enable-dunst-notifs ()
  (call-process-shell-command "dunstctl set-paused false"))

(add-hook 'org-pomodoro-started-hook #'disable-dunst-notifs)
(add-hook 'org-pomodoro-finished-hook #'enable-dunst-notifs)
(add-hook 'org-pomodoro-killed-hook #'enable-dunst-notifs)

(setq org-pomodoro-play-sounds t)
(setq-default doom-modeline-buffer-file-name-style 'file-name-with-project)
(setq chezmoi-command "/home/linly/bin/chezmoi")
(setq auto-save-visited-mode t)
(setq auto-save-visited-interval 10)
(auto-save-visited-mode +1)
(setq alert-default-style 'libnotify)
(setq org-pomodoro-finished-sound "~/Music/yippee.wav")
(setq org-pomodoro-short-break-sound "~/Music/shortbreak.wav")
(setq org-pomodoro-long-break-sound "~/Music/longbreak.wav")
(setq x-select-enable-clipboard-manager nil)
(setq org-trello-files '("~/org/grad-trello.org"))
(setq straight-disable-native-compile '("org-trello") )
(setq org-agenda-span 'day)
(setq org-agenda-start-day "-0d")
(setq org-agenda-start-with-clockreport-mode t)

;;this is for rest api testing in emacs )
(map! :leader
 :nv "v s" #'verb-send-request-on-point-other-window-stay
 :nv "v r" #'verb-re-send-request
 :nv "v k" #'verb-kill-all-response-buffers
 )

(setq verb-auto-kill-response-buffers 5)
(setq verb-trim-body-end "[ \t\n\r]+")
(org-babel-do-load-languages
 'org-babel-load-languages
 '((verb . t)))
(setq org-agenda-skip-scheduled-if-done t)
(setq org-agenda-skip-deadline-if-done t)
(setq org-agenda-skip-timestamp-if-done t)
(setq org-pomodoro-format "Work~%s")
(setq org-pomodoro-short-break-format "Br~%s")
(setq org-pomodoro-length 20)
(setq org-pomodoro-short-break-length 10)
(setq org-pomodoro-long-break-format "Br~%s")
(setq org-clock-clocked-in-display nil)
(setq doom-modeline-major-mode-icon t)
(setq org-agenda-skip-deadline-prewarning-if-scheduled t)

(setq mu4e-root-maildir "~/.mail")
(setq +mu4e-backend 'offlineimap)
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")
;; (add-hook 'org-agenda-mode-hook
;;       (lambda ()
;;         (setq-local doom-modeline-buffer-name nil)))
;; Define your custom doom-modeline
;; (doom-modeline-def-modeline 'minimal-line
;;   '(bar matches buffer-info remote-host buffer-position parrot selection-info)
;;   '(misc-info input-method buffer-encoding))
;; (add-to-list 'doom-modeline-mode-alist '(org-agenda-mode . minimal-line))
;; case insensitive search )
(defun case-insensitive-org-roam-node-read (orig-fn &rest args)
  (let ((completion-ignore-case t))
    (apply orig-fn args)))

(advice-add 'org-roam-node-read :around #'case-insensitive-org-roam-node-read)
(defun org-archive-done-tasks ()
  (interactive)
  (org-map-entries
   (lambda ()
     (org-archive-subtree)
     (setq org-map-continue-from (org-element-property :begin (org-element-at-point))))
   "/DONE" 'agenda)
  (org-save-all-org-buffers))
;; (add-hook 'kill-emacs-hook 'org-archive-done-tasks)
;;why my agenda break haa?
(setq org-element-use-cache nil)
;; (add-hook 'darkman-after-mode-changed-hook #'toggle-theme)