diff --git a/private_dot_config/doom/config.el b/private_dot_config/doom/config.el index 9e20dff..50a361b 100644 --- a/private_dot_config/doom/config.el +++ b/private_dot_config/doom/config.el @@ -156,9 +156,9 @@ :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)) + (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 @@ -166,14 +166,15 @@ ;; This way it just waits until you've been idle for a while to avoid disturbing ;; the user. (setq-default org-caldav-inbox nil) - (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-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 @@ -203,7 +204,6 @@ (setq org-icalendar-categories '(local-tags)) :config - (setq org-caldav-calendar-id "work") (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 @@ -221,7 +221,7 @@ (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-hook 'kill-emacs-hook 'org-caldav-sync-at-close) (add-to-list 'org-caldav-todo-percent-states '( 0 "IDEA") ) diff --git a/private_dot_config/doom/flycheck_config.el b/private_dot_config/doom/flycheck_config.el new file mode 100644 index 0000000..50a361b --- /dev/null +++ b/private_dot_config/doom/flycheck_config.el @@ -0,0 +1,539 @@ +;;; $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 'doom-gruvbox) +(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")) + ) + + (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)) + (add-to-list 'org-capture-templates + '("w" "Work" entry + (file+headline "~/org/work.org" "Inbox") + "* TODO [#A] %?\n %i" :empty-lines 1)) + (add-to-list 'org-capture-templates + '("i" "Content idea" entry + (file+headline "~/org/work.org" "Ideas") + "* TODO %? :idea:\n %i" :empty-lines 1)) + (add-to-list 'org-capture-templates + '("l" "Someday" entry + (file+headline "~/org/someday.org" "Inbox") + "* TODO %? \n %i " :empty-lines 1)) + (add-to-list 'org-capture-templates + '("s" "Studies" entry + (file+headline "~/org/studies.org" "Inbox") + "* TODO [#C] %?\n %i" :empty-lines 1)) + (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)) + ;; 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)) + (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)) + (add-to-list 'org-capture-templates + '("h" "Home" entry + (file+headline "~/org/home.org" "Inbox") + "* TODO [#A] %?\n %i" :empty-lines 1)) + (add-to-list 'org-capture-templates + '("b" "Quote" plain + (file "~/org/quotes.org") + "%i" :empty-lines 0)) + (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)