From 3ad1e38a031780c50c1131462eb93eb5e27e9807 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Mon, 6 Nov 2023 17:24:15 -0800 Subject: remove a lot of unused org-mode settings Since I'm using bear for my notes, and I don't use the agenda (I'm using Apple's reminder instead), I can delete a lot of things related to org-mode. --- init.org | 292 --------------------------------------------------------------- 1 file changed, 292 deletions(-) diff --git a/init.org b/init.org index b6e3d69..e1995e6 100644 --- a/init.org +++ b/init.org @@ -1376,32 +1376,10 @@ an uptime / SLO calculator. #+begin_src emacs-lisp (use-package org - :commands org-resolve-clocks - :bind* (("C-c c" . org-capture) - ("C-c a" . org-agenda)) - :bind (:map - org-mode-map - ("C-,") - ("C-c #" . org-priority) - ("C-c .") - ("C-c ," . org-priority) - ("C-c !" . org-time-stamp-inactive) - ("C-c <" . org-time-stamp) - ("C-c x" . org-todo) - ("C-c C-x @" . visible-mode) - ("C-c C-x U" . org-insert-url-link) - ("C-c C-x o" . my-org-todoize) - ([(control meta return)] . org-insert-heading-after-current)) :hook - (org-mode . abbrev-mode) (org-mode . turn-on-flyspell) (org-mode . visual-line-mode) (org-mode . org-indent-mode) - (org-log-buffer-setup . abbrev-mode) - (org-log-buffer-setup . visual-line-mode) - (org-log-buffer-setup . turn-on-flyspell) - (org-capture-after-finalize . org-save-all-org-buffers) - (org-capture-prepare-finalize-hook . org-save-all-org-buffers) :custom ;;; general settings (org-startup-folded t) @@ -1411,16 +1389,7 @@ an uptime / SLO calculator. (org-pretty-entities t) (org-return-follows-link t) (org-startup-with-inline-images t) - (org-startup-indented t) - (org-clone-delete-id t) - (org-deadline-warning-days 14) - (org-default-notes-file "~/documents/notes/inbox.org") - (org-directory "~/documents/notes/") (org-export-backends '(html md)) - (org-export-use-babel nil) - (org-footnote-section nil) - (org-icalendar-timezone "America/Los_Angeles") - (org-image-actual-width 800) (org-imenu-depth 4) (org-insert-heading-respect-content t) (org-outline-path-complete-in-steps nil) @@ -1436,133 +1405,12 @@ an uptime / SLO calculator. ("e" . "example") ("q" . "quote") ("V" . "verbatim"))) - - ;;; refile - (org-refile-targets '(("~/documents/notes/tasks.org" :maxlevel . 1) - ("~/documents/notes/notes.org" :maxlevel . 1))) - (org-refile-use-cache nil) - (org-refile-use-outline-path t) - (org-reverse-note-order t) - (org-todo-keywords - '((sequence "TODO(t)" "STARTED(s)" "|" "DONE(d@)" "CANCELED(x@)"))) - (org-todo-repeat-to-state "TODO") - (org-fontify-done-headline t) - (org-fontify-quote-and-verse-blocks t) - (org-fontify-todo-headline nil) - (org-fontify-whole-block-delimiter-line t) - (org-fontify-whole-heading-line nil) - (org-enforce-todo-dependencies t) - (org-track-ordered-property-with-tag t) - (org-highest-priority ?A) - (org-lowest-priority ?C) - (org-default-priority ?A) - (org-confirm-babel-evaluate nil) - (org-tags-column -97) - - ;;; log - (org-log-done 'time) - (org-log-into-drawer t) - (org-log-note-clock-out nil) - (org-log-redeadline 'time) - (org-log-reschedule 'time) - (org-read-date-prefer-future 'time) - - ;;; capture - (org-capture-templates - '(("t" "tasks" entry (file "inbox.org") - "* TODO [#D] %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n") - - ("T" "TIL" entry (file+headline "til.org" "Today I learned") - "* %^{title} :%^{tag}:\n:PROPERTIES:\n:CREATED: %U\n:END:\n%?\nSource: %^C") - - ("n" "note" entry (file "notes.org") - "* %?\n:PROPERTIES:\n:CREATED: %T\n:END:\n") - - ("f" "feed" entry (file "inbox.org") - ,(concat "* TODO [#D] %:elfeed-entry-title :feed:\n" - ":PROPERTIES:\n:CREATED: %T\n:END:\n" - "%a\n")) - - ("b" "bookmark" entry (file "bookmarks.org") - ,(concat "* %(org-cliplink-capture) :%^{tag}:\n" - ":PROPERTIES:\n:CREATED: %T\n:END:%?\n") :prepend t :empty-lines 1) - - ("j" "journal" entry (file+olp+datetree "journal.org") - "* %?\n:PROPERTIES:\n:CREATED: %T\n:END:\n" :tree-type day))) - :config (font-lock-add-keywords 'org-mode '(("^ *\\(-\\) " (0 (ignore (compose-region (match-beginning 1) (match-end 1) "•"))))))) #+end_src -*** org-agenda - -#+begin_src emacs-lisp - (use-package org-agenda - :commands org-agenda-list - :bind* (("C-c a" . org-agenda)) - :bind (:map - org-agenda-mode-map - (" " . org-agenda-tree-to-indirect-buffer) - (">" . org-agenda-filter-by-top-headline) - ("C-n" . next-line) - ("C-p" . previous-line) - ("F" . org-agenda-follow-mode) - ("M-m") - ("M-n" . org-agenda-later) - ("M-p" . org-agenda-earlier) - ("b" . org-agenda-date-earlier) - ("f" . org-agenda-date-later) - ("g" . org-agenda-redo) - ("q" . delete-window) - ("r" . org-agenda-refile) - ("x" . org-agenda-todo) - ("z" . pop-window-configuration)) - :custom - (org-agenda-auto-exclude-function 'org-my-auto-exclude-function) - (org-agenda-cmp-user-defined 'org-compare-todo-age) - (org-agenda-compact-blocks t) - (org-agenda-deadline-leaders '("!D!: " "D%02d: " "D-%02d:")) - (org-agenda-default-appointment-duration 60) - (org-agenda-files - '("~/documents/notes/inbox.org" - "~/documents/notes/notes.org" - "~/documents/notes/tasks.org" - "~/documents/notes/bookmarks.org" - "~/documents/notes/journal.org")) - (org-agenda-fontify-priorities t) - (org-agenda-include-diary t) - (org-agenda-inhibit-startup t) - (org-agenda-log-mode-items '(closed clock state)) - (org-agenda-ndays 1) - (org-agenda-persistent-filter t) - (org-agenda-prefix-format - '((agenda . " %-11c%?-12t% s") - (timeline . " % s") - (todo . " %-11c") - (tags . " %-11c"))) - (org-agenda-show-all-dates t) - (org-agenda-show-outline-path nil) - (org-agenda-skip-deadline-if-done t) - (org-agenda-skip-scheduled-if-deadline-is-shown t) - (org-agenda-skip-scheduled-if-done t) - (org-agenda-skip-unavailable-files t) - (org-agenda-sorting-strategy - '((agenda habit-down time-up todo-state-up priority-down) - (todo priority-down category-keep) - (tags priority-down category-keep) - (search category-keep))) - (org-agenda-span 'day) - (org-agenda-start-on-weekday 1) - (org-agenda-tags-column -100) - (org-agenda-tags-todo-honor-ignore-options t) - (org-agenda-text-search-extra-files '(agenda-archives)) - (org-agenda-todo-ignore-scheduled 'past) - (org-agenda-use-time-grid nil) - (org-agenda-window-frame-fractions '(0.5 . 0.75))) -#+end_src - *** org-bullet This is to make =org-mode= document looks a bit nicer. @@ -1581,34 +1429,6 @@ This is to make =org-mode= document looks a bit nicer. :hook (org-mode . org-auto-tangle-mode)) #+end_src -*** org-habit - -#+begin_src emacs-lisp - (use-package org-habit - :after org-agenda - :custom - (org-habit-preceding-days 42) - (org-habit-today-glyph 45)) -#+end_src - -*** org-attach - -#+begin_src emacs-lisp -(use-package org-attach - :after org - :init - (defun my-org-attach-visit-headline-from-dired () - "Go to the headline corresponding to this org-attach directory." - (interactive) - (let* ((id-parts (last (split-string default-directory "/" t) 2)) - (id (apply #'concat id-parts))) - (let ((m (org-id-find id 'marker))) - (unless m (user-error "Cannot find entry with ID \"%s\"" id)) - (pop-to-buffer (marker-buffer m)) - (goto-char m) - (move-marker m nil))))) -#+end_src - *** org-babel #+begin_src emacs-lisp @@ -1631,119 +1451,7 @@ This is to make =org-mode= document looks a bit nicer. #'(lambda (_info) (run-hooks 'emacs-lisp-mode-hook)))) #+end_src -*** org-bookmark-heading - -#+begin_src emacs-lisp -(use-package org-bookmark-heading - :ensure t - :after org) -#+end_src - -*** org-download - -#+begin_src emacs-lisp -(use-package org-download - :after org - :ensure t - :bind (:map org-mode-map - ("C-c C-x C" . org-download-clipboard) - ("C-c C-x Y" . org-download-yank)) - :custom - (org-download-method 'attach)) -#+end_src - -*** org-id - -#+begin_src emacs-lisp -(use-package org-id - :after org - :bind (:map org-mode-map - ("C-c C-x i" . org-id-get-create)) - :custom - (org-id-locations-file (user-data "org-id-locations"))) -#+end_src - -*** org-protocol - -#+begin_src emacs-lisp -(use-package org-protocol - :after org) -#+end_src - -*** org-ql - -#+begin_src emacs-lisp -(use-package org-ql - :ensure t - :commands org-ql-search) -#+end_src - -*** org-rich-yank - -#+begin_src emacs-lisp -(use-package org-rich-yank - :ensure t - :bind (:map org-mode-map - ("C-M-y" . org-rich-yank))) -#+end_src - -*** org-sticky-header - -#+begin_src emacs-lisp -(use-package org-sticky-header - :ensure t - :commands org-sticky-header-mode) -#+end_src - -*** org-super-agenda - -#+begin_src emacs-lisp -(use-package org-super-agenda - :after org - :ensure t - :custom - (org-super-agenda-groups - '((:name "Important" :priority "A") - (:name "Needs review" :todo "WAITING" :todo "DELEGATED") - (:name "Optional" :priority "C" :order 9) - (:name "Tasks" :not (:priority "A" :priority "C")))) - (org-super-agenda-header-separator "") - :config - (org-super-agenda-mode)) -#+end_src - -*** org-web-tools - -#+begin_src emacs-lisp -(use-package org-web-tools - :ensure t - :bind (("C-c w C-y" . my-org-insert-url) - ("C-c w C-M-y" . org-web-tools-insert-web-page-as-entry)) - :functions (org-web-tools--org-link-for-url - org-web-tools--get-first-url) - :preface - (defun my-org-insert-url (&optional arg) - (interactive "P") - (require' org-web-tools) - (let ((link (org-web-tools--org-link-for-url - (org-web-tools--get-first-url)))) - (if arg - (progn - (org-set-property "URL" link) - (message "Added pasteboard link to URL property")) - (insert link))))) -#+end_src - -*** orgit - -#+begin_src emacs-lisp -(use-package orgit - :ensure t - :after org) -#+end_src - *** ox - **** ox-gfm #+begin_src emacs-lisp -- cgit 1.4.1