summary refs log tree commit diff
diff options
context:
space:
mode:
authorFranck Cuny <franck@fcuny.net>2023-11-06 17:24:15 -0800
committerFranck Cuny <franck@fcuny.net>2023-11-06 17:24:15 -0800
commit3ad1e38a031780c50c1131462eb93eb5e27e9807 (patch)
treeb5e0ba72630d7232e2e8e5bfdd6bf3a5582ad45d
parentdrop rust configuration (diff)
downloademacs.d-3ad1e38a031780c50c1131462eb93eb5e27e9807.tar.gz
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.
-rw-r--r--init.org292
1 files changed, 0 insertions, 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