Files
dotfiles/private_dot_config/doom/config.el
2023-10-11 18:25:42 +03:00

245 lines
9.0 KiB
EmacsLisp

;;; $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 "linly@swagg.ml")
;; 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 "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 '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)
;; 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"))))
(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)
(org-todo 'todo))
(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.
(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)))
;; Actual calendar configuration edit this to meet your specific needs
(setq org-caldav-url "http://132.145.236.249:48575/remote.php/dav/calendars/Aly")
(setq org-caldav-calendars
'(
;; (:calendar-id "capture-1"
;; :files ("~/org/todo.org")
;; :inbox "~/org/todo.org")
(:calendar-id "poggers"
:files ("~/org/work.org")
:inbox "~/org/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/someday.org")
:inbox "~/org/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)
;; 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 t)
(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))
(setq auth-sources '("~/.authinfo.gpg"))
;; MORE TEMPLATES
(after! org
(add-to-list 'org-capture-templates
'("w" "Work" entry
(file "~/org/work.org")
"* TODO %?" :empty-lines 1))
(add-to-list 'org-capture-templates
'("l" "Someday" entry
(file "~/org/someday.org")
"* TODO %?" :empty-lines 1))
(add-to-list 'org-capture-templates
'("s" "Studies" entry
(file "~/org/studies.org")
"* TODO %?" :empty-lines 1))
(add-to-list 'org-capture-templates
'("h" "Home" entry
(file "~/org/home.org")
"* TODO %?" :empty-lines 1))
)
(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))