From: Adam Faryna <adamfaryna@gmail.com>
To: emacs-orgmode@gnu.org
Subject: Bug: org-agenda-sorting-strategy priority has no effect [9.3.7 (9.3.7-16-g521d7f-elpaplus @ /Users/devil/.emacs.d/elpa/org-plus-contrib-20200803/)]
Date: Wed, 05 Aug 2020 13:54:14 +0100 [thread overview]
Message-ID: <m2pn85w8w9.fsf@gmail.com> (raw)
org-agenda-sorting-strategy priority sorting doesn't work in my setup.
I have a single file for all the tasks for agenda. Its structure looks similar to
this:
# -*- mode: org; mode: my/org-agenda-appt -*-
#+STARTUP: overview
#+CATEGORY: Tasks
#+ARCHIVE: ../archive/tasks_archive.org::
* Tasks
:PROPERTIES:
:CATEGORY: Single
:END:
** TODO task 1
** TODO task 2
* Repeatable
:PROPERTIES:
:CATEGORY: Repeat
:END:
** TODO task 3
** TODO task 4
* Waiting
:PROPERTIES:
:CATEGORY: Wait
:END:
** TODO task 5
** TODO task 6
* Projects
:PROPERTIES:
:CATEGORY: Project
:END:
** TODO task 7
** TODO task 8
My setup to display agenda looks similar to this:
(agenda ""
((org-agenda-skip-function
'(or
(org-agenda-skip-entry-if 'todo '("WAITING"))
))
(org-agenda-cmp-user-defined 'jarfar/org-agenda-cmp-user-defined-birthday)
(org-agenda-sorting-strategy '(time-up todo-state-down user-defined-down habit-down priority-up deadline-up scheduled-up effort-down alpha-up))
(org-agenda-remove-tags nil)
(ps-number-of-columns 2)
(ps-landscape-mode 1)
(org-agenda-files (append org-agenda-files `(,my/org-events-file-path)))))
The agenda show records with different priorities totally mixed up. When I run
agenda with org-agenda-sorting-strategy set to just priority-up it
doesn't change anything.
------------------------------------------------------------------------
Emacs : GNU Emacs 26.3 (build 1, x86_64-apple-darwin18.2.0, NS appkit-1671.20 Version 10.14.3 (Build 18D109))
of 2019-09-02
Package: Org mode version 9.3.7 (9.3.7-16-g521d7f-elpaplus @ /Users/devil/.emacs.d/elpa/org-plus-contrib-20200803/)
current state:
==============
(setq
org-caldav-delete-org-entries 'never
org-icalendar-store-UID t
org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
org-agenda-scheduled-leaders '("" "")
org-after-todo-state-change-hook '(jarfar/org-state-canceled-timestamp-toggle org-checklist)
org-columns-default-format "%25ITEM(Task) %TODO %3PRIORITY %7Effort %8CLOCKSUM %TAGS"
org-agenda-skip-scheduled-if-deadline-is-shown t
org-link-shell-confirm-function 'yes-or-no-p
org-blank-before-new-entry '((heading . auto) (plain-list-item))
org-drill-adjust-intervals-for-early-and-late-repetitions-p t
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-global-properties '(("Effort_ALL" . "0:05 0:15 0:30 1:00 2:00 4:00"))
org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
org-refile-targets '(("/Users/devil/Documents/emacs/agenda/tasks.org" :level . 1)
("/Users/devil/Documents/emacs/projects/trip_to_nottingham.org" :level . 1)
("/Users/devil/Documents/emacs/projects/trip_to_edinburgh.org" :level . 1)
("/Users/devil/Documents/emacs/projects/become_confident_pua.org" :level .
1)
("/Users/devil/Documents/emacs/projects/service_arbitrage.org.gpg" :level .
1)
("/Users/devil/Documents/emacs/projects/best_offers_club.org.gpg" :level .
1)
("/Users/devil/Documents/emacs/projects/indie-dev.org.gpg" :tag .
"PROJECT_ACTIVE")
("/Users/devil/Documents/emacs/projects/guru.org.gpg" :level . 1)
("/Users/devil/Documents/emacs/projects/switch_to_self_accounting.org.gpg"
:level . 1)
("/Users/devil/Documents/emacs/orgs/projects.org" :level . 1))
org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
org-log-done-with-time nil
org-icalendar-combined-agenda-file "/Users/devil/.emacs.d/caldav/org.ics"
org-pretty-entities t
org-enforce-todo-dependencies t
org-edit-src-content-indentation 0
org-use-property-inheritance t
org-src-tab-acts-natively t
org-odt-format-headline-function 'org-odt-format-headline-default-function
org-caldav-sync-direction 'org->cal
org-agenda-files '("/Users/devil/Documents/emacs/agenda/tasks.org")
org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
org-contacts-birthday-format "%h (%Y)"
org-clock-report-include-clocking-task t
org-tag-alist '(("health" . 104) ("wealth" . 119) ("career" . 99) ("relations" . 114)
("fun" . 102) ("tax" . 116) ("service" . 115) ("saw" . 97) ("work" . 106)
("@poland" . 110) (:startgroup) ("@home" . 111) ("@office" . 105)
("@delegate" . 100) (:endgroup) (:startgroup) ("@phone" . 112)
("@computer" . 109) (:endgroup))
org-modules '(ol-w3m ol-bbdb ol-bibtex ol-docview ol-gnus ol-info ol-irc ol-mhe ol-rmail ol-eww
org-habit org-drill org-collector org-depend org-eww org-checklist)
org-shiftup-final-hook '(windmove-up)
org-ascii-headline-spacing '(1 . 1)
org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent org-depend-block-todo)
org-export-creator-string "Adam Faryna (appdy.net)"
org-odt-preferred-output-format "doc"
org-mode-hook '(#[0 "\301\211\207" [imenu-create-index-function org-imenu-get-tree] 2]
(closure
(org-agenda-skip-regexp org-table1-hline-regexp
org-table-tab-recognizes-table\.el org-table-dataline-regexp
org-table-any-border-regexp org-agenda-restriction-lock-overlay
org-agenda-overriding-restriction org-agenda-diary-file
org-complex-heading-regexp calendar-mode-map t)
nil (setq imenu-create-index-function (quote org-imenu-get-tree)))
org-clock-load
(lambda nil (set (make-local-variable (quote paragraph-start)) "[:graph:]+$")
(set (make-local-variable (quote paragraph-separate)) "[:space:]*$"))
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook org-show-all append local] 5]
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook org-babel-show-result-all append local] 5]
(closure
(org--rds reftex-docstruct-symbol org-element-greater-elements
org-clock-history org-agenda-current-date org-with-time org-defdecode org-def
org-read-date-inactive org-ans2 org-ans1 org-columns-current-fmt-compiled
org-clock-current-task org-clock-effort org-agenda-skip-function
org-agenda-skip-comment-trees org-agenda-archives-mode org-end-time-was-given
org-time-was-given org-log-note-extra org-log-note-purpose
org-log-post-message org-last-inserted-timestamp org-last-changed-timestamp
org-entry-property-inherited-from org-blocked-by-checkboxes org-state
org-agenda-headline-snapshot-before-repeat org-capture-last-stored-marker
org-agenda-start-on-weekday org-agenda-buffer-tmp-name org-priority-regexp
org-mode-abbrev-table org-mode-syntax-table buffer-face-mode-face org-tbl-menu
org-org-menu org-struct-menu org-entities org-last-state org-id-track-globally
org-clock-start-time texmathp-why remember-data-file
org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist
calc-embedded-open-mode calc-embedded-open-formula calc-embedded-close-formula
align-mode-rules-list org-emphasis-alist org-emphasis-regexp-components
org-export-registered-backends org-modules org-babel-load-languages
org-id-overriding-file-name org-indent-indentation-per-level
org-element-paragraph-separate ffap-url-regexp org-inlinetask-min-level t)
nil
(add-hook (quote change-major-mode-hook) (quote org-show-all) (quote append)
(quote local))
)
(closure
(org-src-window-setup *this* org-babel-confirm-evaluate-answer-no
org-babel-tangle-uncomment-comments org-src-preserve-indentation
org-src-lang-modes org-link-file-path-type org-edit-src-content-indentation
org-babel-library-of-babel t)
nil
(add-hook (quote change-major-mode-hook) (quote org-babel-show-result-all)
(quote append) (quote local))
)
org-babel-result-hide-spec org-babel-hide-all-hashes org-eldoc-load)
org-clock-persist t
org-export-with-smart-quotes t
org-odt-format-drawer-function '(closure
(hfy-user-sheet-assoc hfy-html-quote-regex hfy-html-quote-map
hfy-face-to-css hfy-begin-span-handler hfy-end-span-handler
archive-zip-extract nxml-auto-insert-xml-declaration-flag t)
(_name contents) contents)
org-archive-hook '(org-attach-archive-delete-maybe)
org-confirm-elisp-link-function 'yes-or-no-p
org-mime-src-mode-hook '(org-mime-src-mode-configure-edit-buffer)
org-reverse-note-order t
org-priority-start-cycle-with-default nil
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-hide-block-startup t
org-metaup-hook '(org-babel-load-in-session-maybe)
org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 "\n\n(fn ENTRY)"]
org-adapt-indentation nil
org-latex-format-drawer-function '(closure (t) (_ contents) contents)
org-contacts-files '("/Users/devil/Documents/emacs/private/contacts.org.gpg")
org-babel-pre-tangle-hook '(save-buffer)
org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
org-caldav-url 'google
org-babel-load-languages '((emacs-lisp . t) (ledger . t) (python . t) (gnuplot . t) (shell . t)
(latex . t))
org-shiftright-final-hook '(windmove-right)
org-log-done 'time
org-caldav-select-tags '("work")
org-clock-in-resume t
org-checklist-export-function 'org-export-as-ascii
org-ascii-format-drawer-function '(closure (t) (_name contents _width) contents)
org-trigger-hook '(org-depend-trigger-todo)
org-fast-tag-selection-single-key t
org-src-lang-modes '(("arduino" . arduino) ("redis" . redis) ("php" . php) ("C" . c)
("C++" . c++) ("asymptote" . asy) ("bash" . sh) ("beamer" . latex)
("calc" . fundamental) ("cpp" . c++) ("ditaa" . artist)
("dot" . fundamental) ("elisp" . emacs-lisp) ("ocaml" . tuareg)
("screen" . shell-script) ("shell" . sh) ("sqlite" . sql))
org-icalendar-include-todo t
org-fontify-done-headline t
org-caldav-delete-calendar-entries 'always
org-ascii-links-to-notes nil
org-habit-show-habits-only-for-today nil
org-occur-hook '(org-first-headline-recenter)
org-agenda-mode-hook '((lambda nil (hl-line-mode 1)))
org-log-into-drawer t
org-agenda-search-headline-for-time nil
org-lowest-priority 68
org-agenda-include-diary t
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-todo-keywords '((sequence "TODO(t)" "IN-PROCESS(p!)" "BLOCKED(b!)" "WAITING(w@/!)"
"DELEGATED(e@/!)")
(sequence "|" "DONE(d!)" "CANCELED(c@)" "UNDOABLE(u@)"))
org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate)
org-habit-graph-column 62
org-closed-keep-when-no-todo t
org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
org-default-priority 68
org-agenda-use-tag-inheritance nil
org-drill-maximum-duration 12
org-caldav-save-directory "~/.emacs.d/caldav"
org-babel-tangle-lang-exts '(("latex" . "tex") ("python" . "py") ("clojure" . "clj")
("emacs-lisp" . "el") ("elisp" . "el"))
org-refile-allow-creating-parent-nodes 'confirm
org-refile-use-outline-path t
org-font-lock-set-keywords-hook '(org-drill-add-cloze-fontification)
org-caldav-backup-file "/tmp/emacs/org-caldav-backup.org"
org-confirm-shell-link-function 'yes-or-no-p
org-stuck-projects '("+project/-DONE" ("TODO") nil)
org-link-parameters '(("bookmark-other-win" :follow bookmark-jump-other-window :export nil)
("bookmark" :follow bookmark-jump :export nil)
("mu4e" :follow org-mu4e-open :store org-mu4e-store-link) ("tel")
("eww" :follow eww :store org-eww-store-link)
("rmail" :follow org-rmail-open :store org-rmail-store-link)
("mhe" :follow org-mhe-open :store org-mhe-store-link)
("irc" :follow org-irc-visit :store org-irc-store-link :export
org-irc-export)
("info" :follow org-info-open :export org-info-export :store
org-info-store-link)
("gnus" :follow org-gnus-open :store org-gnus-store-link)
("docview" :follow org-docview-open :export org-docview-export :store
org-docview-store-link)
("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete
org-bbdb-complete-link :store org-bbdb-store-link)
("w3m" :store org-w3m-store-link)
("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
("attachment" :follow org-attach-open-link :export org-attach-export-link
:complete org-attach-complete-link)
("id" :follow org-id-open)
("elfeed" :follow elfeed-link-open :store elfeed-link-store-link)
("file+sys") ("file+emacs") ("shell" :follow org-link--open-shell)
("news" :follow
#[257 "\301\300\302Q!\207" ["news" browse-url ":"] 5 "\n\n(fn URL)"])
("mailto" :follow
#[257 "\301\300\302Q!\207" ["mailto" browse-url ":"] 5 "\n\n(fn URL)"])
("https" :follow
#[257 "\301\300\302Q!\207" ["https" browse-url ":"] 5 "\n\n(fn URL)"])
("http" :follow
#[257 "\301\300\302Q!\207" ["http" browse-url ":"] 5 "\n\n(fn URL)"])
("ftp" :follow
#[257 "\301\300\302Q!\207" ["ftp" browse-url ":"] 5 "\n\n(fn URL)"])
("help" :follow org-link--open-help)
("file" :complete org-link-complete-file)
("elisp" :follow org-link--open-elisp) ("doi" :follow org-link--open-doi))
org-icalendar-use-scheduled '(todo-start event-if-todo)
org-icalendar-timezone "Europe/London"
org-latex-format-headline-function 'org-latex-format-headline-default-function
org-capture-templates '(("c" "Contact" entry
(file "/Users/devil/Documents/emacs/private/contacts.org.gpg")
"* %(org-contacts-template-name)\n:PROPERTIES:\n:TITLE:\n:ALIAS:\n:COMPANY:\n:ROLE:\n:EMAIL: %(org-contacts-template-email)\n:MOBILE:\n:WORK_PHONE:\n:ADDRESS:\n:URL:\n:BIRTHDAY:\n:ITOLD_THEM_EMAIL:\n:ITOLD_THEM_PHONE:\n:NOTES:\n:CREATED: [%<%Y-%m-%d %a>]\n:END:" :prepend t :empty-lines-after 1 :kill-buffer t)
("s" "Business Idea" entry
(file+headline "/Users/devil/Documents/emacs/topics/ideas.org.gpg"
"Ideas")
"* %?\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:END:\n" :prepend t
:empty-lines-after 0 :kill-buffer nil)
("d" "Diet Log" entry
(file+headline "/Users/devil/Documents/emacs/orgs/health/diet.org"
"Daily Logs")
"* CAL-IN Diet in [%<%Y-%m-%d %a>]\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:Weight: %^{What is my weight (pounds): } pounds\n:END:\n\n| Food / Exercise | Calories | Fat | Carbs | Protein | Fiber | Salt | Sugars | Saturates |\n|-----------------+----------+-----+-------+---------+-------+------+--------+-----------|\n| breakfast | | | | | | | | |\n| | | | | | | | | |\n|-----------------+----------+-----+-------+---------+-------+------+--------+-----------|\n| lunch | | | | | | | | |\n| | | | | | | | | |\n|-----------------+----------+-----+-------+---------+-------+------+--------+-----------|\n| dinner | | | | | | | | |\n| | | | | | | | | |\n|-----------------+----------+-----+-------+---------+-------+------+--------+-----------|\n| walking | | | | | | | | |\n| | | | | | | | | |\n|-----------------+----------+-----+-------+---------+-------+------+--------+-----------|\n| Expected | 1713 | | | | | | | |\n| Total | | | | | | | | |\n#+TBLFM: @>$2=vsum(@2..@-2)::@>$3=vsum(@2..@-2)::@>$4=vsum(@2..@-2)::@>$5=vsum(@2..@-2)::@>$6=vsum(@2..@-2)::@>$7=vsum(@2..@-2)::@>$8=vsum(@2..@-2)::@>$9=vsum(@2..@-2)\n" :prepend t :empty-lines-after 1 :jump-to-captured nil)
("e" "Media Review" entry
(file+headline "/Users/devil/Documents/emacs/orgs/media_reviews.org"
"Media Reviews")
"** _\"%\\1\" %\\2 %?\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:TITLE: \"%^{What Title: }\"\n:AUTHOR: %^{What author: }\n:END:\n[[file:~/Documents/emacs/orgs/archive/books/\"%\\1\" %\\2.org][link]]\n*** TODO \"%\\1\" after week\nSCHEDULED: %(org-insert-time-stamp (time-add (current-time) (days-to-time 7)) nil t)\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:END:\n*** TODO \"%\\1\" after month\nSCHEDULED: %(org-insert-time-stamp (time-add (current-time) (days-to-time 37)) nil t)\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:END:\n*** TODO \"%\\1\" after half year\nSCHEDULED: %(org-insert-time-stamp (time-add (current-time) (days-to-time 189)) nil t)\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:END:\n*** TODO \"%\\1\" after year\nSCHEDULED: %(org-insert-time-stamp (time-add (current-time) (days-to-time 372)) nil t)\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:END:\n" :prepend t :empty-lines-after 0 :jump-to-captured nil :kill-buffer nil)
("i" "Inbox" entry
(file+headline "/Users/devil/Documents/emacs/orgs/inbox.org" "Inbox")
"** NOTE %?\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:END:\n"
:prepend t :empty-lines-after 1 :kill-buffer nil)
("j" "Journal" entry
(file+headline "/Users/devil/Documents/emacs/orgs/journal.org"
"Journal")
"* [%<%Y-%m-%d %a>]\n%?\n\n- English\n -\n\n- what new people I meet today\n -\n\n- knowledge\n -\n\n- what I did today\n -\n\n- changes to make\n -\n\n" :prepend t :jump-to-captured t :empty-lines-after 1 :kill-buffer t)
("l" "Dating Log" entry
(file+headline
"/Users/devil/Documents/emacs/private/journal_dating.org.gpg"
"Journal Dating")
"* [%<%Y-%m-%d %a>]\n%?\n" :prepend t :jump-to-captured t
:empty-lines-after 0 :kill-buffer t)
("m" "Media" entry
(file+headline "/Users/devil/Documents/emacs/orgs/media.org" "Media")
"* TODO %\\3 \"%\\1\" %\\2 %? %^g\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:TITLE: \"%^{What Title: }\"\n:AUTHOR: %^{What author: }\n:TYPE: %^{What type: |BOOK|AUDIO|ARTICLE|MOVIE|PODCAST|YOUTUBE}\n:WHERE: %^{Where do I have it: |none|cloud|kindle|audible|eBook|book|audio|youtube}\n:EFFORT: %^{What effort: |unknown|short|medium|big}\n:RECOMMENDED: %^{Who recommended: }\n:END:\n" :prepend t :jump-to-captured nil :empty-lines-after 1 :kill-buffer t)
("o" "Quote" entry
(file+headline "/Users/devil/Documents/emacs/orgs/quotes.org" "Quotes")
"* %?\n" :prepend nil :empty-lines-after 1 :kill-buffer t)
("p" "Blog post" entry
(file+headline
"/Users/devil/Documents/emacs/private/blog_post_ideas.org" "Posts")
"* \"%?\"\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:END:\n" :prepend
t :empty-lines-after 1 :kill-buffer t)
("r" "Repeatable" entry
(file+headline "/Users/devil/Documents/emacs/agenda/tasks.org"
"Repeatable")
"* TODO %?\nSCHEDULED: <%<%Y-%m-%d %a .+2d/4d>>\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:STYLE: habit\n:END:\n" :prepend t :empty-lines-after 1 :kill-buffer t)
("t" "Todo" entry
(file+headline "/Users/devil/Documents/emacs/agenda/tasks.org" "Tasks")
"* TODO %?\nSCHEDULED: <%<%Y-%m-%d %a>>\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:END:\n" :prepend t :empty-lines-after 1 :kill-buffer t)
("a" "Waiting" entry
(file+headline "/Users/devil/Documents/emacs/agenda/tasks.org"
"Waiting")
"* WAITING %?\nDEADLINE: <%<%Y-%m-%d %a>>\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:END:\n" :prepend t :empty-lines-after 1 :kill-buffer t)
("u" "Review life" entry
(file+headline "/Users/devil/Documents/emacs/private/reviews.org.gpg"
"Review Life")
"* [%<%Y-%m-%d %a>] %^g\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:END:\n\n+ Plans for next week:\n +\n\n+ What's good:\n + %?\n\n+ What do I learned:\n +\n\n+ What's could be better:\n -\n\n+ Plan for improvement:\n +\n" :prepend t :empty-lines-after 1 :jump-to-captured t)
("g" "Girl" entry
(file+headline "/Users/devil/Documents/emacs/orgs/friends.org" "Girls")
"* %\\1\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:END:\n\nName: %^{Name: }\nFrom: %^{From: }\nWhere she live: %^{Where she live: }\nWill stay 'till: %^{Will stay 'till: }\nContact: %^{Contact: }\nBirthday: %^{Birthday: }\nBlood type/flavour: %^{Blood type: }\n%?\n- What she do\n\n- Her interest\n\n- She have been/seen\n\n- Family/siblings\n\n- Music\n\n- Movies\n\n- Spare Time\n\n- Sport\n\n- I Was with her in\n" :prepend t :empty-lines-after 1 :jump-to-captured t)
("w" "New word (English)" entry
(file+headline "/Users/devil/Documents/emacs/drills/english_drill.org"
"English drill")
"* %\\1 - %\\2 %? %(org-set-tags nil t) :drill:\n:PROPERTIES:\n:CREATED: [%<%Y-%m-%d %a>]\n:DRILL_CARD_TYPE: twosided\n:END:\n\n[[https://translate.google.pl/?hl=pl#en/pl/%\\1][Google Translate]]\n[[https://www.bing.com/translator?from=en&to=pl&text=%\\1][Bing Translate]]\n\n[[https://dictionary.cambridge.org/dictionary/english/%\\1][Cambridge]]\n\n** English\n\n%^{What English word: }\n\n** Polish\n\n%^{What Polish word: }\n" :prepend t :empty-lines-after 1 :kill-buffer t)
)
org-agenda-file-regexp ".*org(.gpg)?$"
org-drill-learn-fraction 0.3
org-link-elisp-confirm-function 'yes-or-no-p
org-todo-keyword-faces '(("TODO" :foreground "LimeGreen" :weight bold)
("IN-PROCESS" :foreground "IndianRed1" :weight bold)
("BLOCKED" :foreground "tomato3" :weight bold)
("WAITING" :foreground "coral" :weight bold)
("DELEGATED" :foreground "coral" :weight bold)
("NOTE" :foreground "white" :weight bold)
("DONE" :foreground "dark grey" :weight normal)
("CANCELED" :foreground "dark grey" :weight normal)
("UNDOABLE" :foreground "dark grey" :weight normal))
org-capture-after-finalize-hook '((lambda nil
(save-excursion
(if (get-buffer "*Org Agenda*")
(progn
(save-current-buffer (set-buffer "*Org Agenda*")
(org-agenda-redo))
)
)
)
)
)
org-clock-idle-time 2
org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
org-html-format-drawer-function '(closure
(htmlize-buffer-places org-html-format-table-no-css
htmlize-css-name-prefix htmlize-output-type
htmlize-output-type htmlize-css-name-prefix t)
(_name contents) contents)
org-caldav-files '("/Users/devil/Documents/emacs/agenda/tasks.org")
org-export-with-toc nil
org-clock-in-switch-to-state "IN-PROCESS"
org-html-format-headline-function 'org-html-format-headline-default-function
org-clock-out-remove-zero-time-clocks t
org-pretty-entities-include-sub-superscripts nil
org-confirm-babel-evaluate '(lambda (lang body) (not (string= lang "ledger")))
org-drill-hide-item-headings-p t
org-drill-use-visible-cloze-face-p t
org-link-frame-setup '((vm . vm-visit-folder-other-frame)
(vm-imap . vm-visit-imap-folder-other-frame)
(gnus . org-gnus-no-new-news) (file . find-file) (wl . wl-other-frame))
org-icalendar-use-deadline '(event-if-todo)
org-agenda-custom-commands '(("co"
"TODOs weekly sorted by state, priority, deadline, scheduled, alpha and effort"
((agenda "*")
)
((org-agenda-overriding-header
"agenda weekly sorted by state, priority, deadline, scheduled, alpha and effort")
(org-agenda-sorting-strategy
(quote
(todo-state-down priority-down deadline-down scheduled-down
alpha-down effort-up)
)
)
)
)
("cn" "TODOs not sheduled" ((todo "*"))
((org-agenda-skip-function
(quote (or (org-agenda-skip-if nil (quote (scheduled))))))
(org-agenda-category-filter-preset (quote ("-Holidays")))
(org-agenda-overriding-header "TODOs not scheduled")
(org-agenda-sorting-strategy
(quote (deadline-down priority-down alpha-down effort-up)))
)
)
("cb" "TODOs blocked" ((tags "BLOCKED"))
((org-agenda-overriding-header "TODOs blocked")
(org-agenda-sorting-strategy
(quote (priority-down deadline-down alpha-down effort-up)))
)
)
("cc" "TODOs canceled" ((todo "CANCELED"))
((org-agenda-overriding-header "TODOs canceled")
(org-agenda-sorting-strategy
(quote (priority-down alpha-down effort-up)))
)
)
("cj" "Journal entries" ((search ""))
((org-agenda-files (list org-journal-dir))
(org-agenda-overriding-header "Journal")
(org-agenda-sorting-strategy (quote (timestamp-down))))
)
("cm" "agenda 1 month ahead"
((agenda ""
((org-agenda-sorting-strategy
(quote (time-up todo-state-down habit-down)))
(org-agenda-span (quote month)) (org-agenda-remove-tags t)
(ps-number-of-columns 2) (ps-landscape-mode 1))
)
)
)
("cp" "Active projects" ((tags "PROJECT_ACTIVE"))
((org-agenda-overriding-header "Active Projects")
(org-tags-match-list-sublevels nil) (org-agenda-remove-tags t)
(org-agenda-files my/org-active-projects))
)
("b" "Active media"
((tags-todo "TODO=\"IN-PROCESS\""
((org-agenda-overriding-header "Active media:")
(org-tags-match-list-sublevels nil)
(org-agenda-remove-tags nil)
(org-agenda-todo-keyword-format "")
(org-agenda-files (list my/org-media-file-path)))
)
(tags-todo "-TODO=\"DONE\"|-TODO=\"CANCELED\"|-TODO=\"UNDOABLE\""
((org-agenda-overriding-header "Active Reviews:")
(org-agenda-skip-function
(quote my/org-agenda-skip-if-scheduled-later))
(org-agenda-remove-tags t)
(org-agenda-files (list my/org-media-reviews-file-path)))
)
)
)
("f" "Done media"
((todo "DONE"
((org-agenda-overriding-header "Done media:")
(org-tags-match-list-sublevels nil)
(org-agenda-remove-tags nil)
(org-agenda-todo-keyword-format "")
(org-agenda-files (list my/org-media-file-path)))
)
(tags-todo "-TODO=\"CANCELED\"|-TODO=\"UNDOABLE\""
((org-agenda-overriding-header "Active Reviews:")
(org-agenda-skip-function
(quote my/org-agenda-skip-if-scheduled-later))
(org-agenda-remove-tags t)
(org-agenda-files (list my/org-media-reviews-file-path)))
)
)
)
("p" "Active places tasks"
((tags "@phone"
((org-agenda-overriding-header "Active Phone tasks:")
(org-agenda-skip-function
(quote
(or
(org-agenda-skip-entry-if (quote todo)
(quote
("DONE" "UNDOABLE" "CANCELED" "IN-PROCESS" "WAITING"))
)
(my/org-agenda-skip-if-scheduled-later))
)
)
(org-tags-match-list-sublevels nil) (org-agenda-remove-tags t)
(org-agenda-files
(append org-agenda-files my/org-active-projects))
)
)
(tags "@computer"
((org-agenda-overriding-header "Active Computer tasks:")
(org-agenda-skip-function
(quote
(or
(org-agenda-skip-entry-if (quote todo)
(quote
("DONE" "UNDOABLE" "CANCELED" "IN-PROCESS" "WAITING"))
)
(my/org-agenda-skip-if-scheduled-later))
)
)
(org-tags-match-list-sublevels nil) (org-agenda-remove-tags t)
(org-agenda-files
(append org-agenda-files my/org-active-projects))
)
)
(tags "@office"
((org-agenda-overriding-header "Active Office tasks:")
(org-agenda-skip-function
(quote
(or
(org-agenda-skip-entry-if (quote todo)
(quote
("DONE" "UNDOABLE" "CANCELED" "IN-PROCESS" "WAITING"))
)
(my/org-agenda-skip-if-scheduled-later))
)
)
(org-tags-match-list-sublevels nil) (org-agenda-remove-tags t)
(org-agenda-files
(append org-agenda-files my/org-active-projects))
)
)
(tags-todo "@home"
((org-agenda-overriding-header "Active Home tasks:")
(org-agenda-skip-function
(quote
(or
(org-agenda-skip-entry-if (quote todo)
(quote
("DONE" "UNDOABLE" "CANCELED" "IN-PROCESS" "WAITING"))
)
(my/org-agenda-skip-if-scheduled-later))
)
)
(org-tags-match-list-sublevels nil) (org-agenda-remove-tags t)
(org-agenda-files
(append org-agenda-files my/org-active-projects))
)
)
(tags "@delegate"
((org-agenda-overriding-header "Active Delegate tasks:")
(org-agenda-skip-function
(quote
(or
(org-agenda-skip-entry-if (quote todo)
(quote
("DONE" "UNDOABLE" "CANCELED" "IN-PROCESS" "WAITING"))
)
(my/org-agenda-skip-if-scheduled-later))
)
)
(org-tags-match-list-sublevels nil) (org-agenda-remove-tags t)
(org-agenda-files
(append org-agenda-files my/org-active-projects))
)
)
)
)
("z" "DONE tasks not archived"
((tags "TODO=\"DONE\"|TODO=\"CANCELED\"|TODO=\"UNDOABLE\""))
((org-agenda-overriding-header "DONE tasks not archived")
(org-agenda-files
(list my/org-tasks-file-path my/org-projects-file-path))
)
)
("g" "Goals"
((tags-todo "weekly"
((org-agenda-skip-function
(quote
(or (my/org-skip-subtree-if-priority 65)
(my/org-skip-subtree-if-habit)
(org-agenda-skip-if nil (quote (scheduled deadline)))
(org-agenda-skip-entry-if (quote todo) (quote ("DONE"))))
)
)
(org-agenda-overriding-header "This Week Goals:")
(org-tags-match-list-sublevels t)
(org-agenda-hide-tags-regexp "weekly")
(org-agenda-todo-keyword-format "")
(org-agenda-files (list my/org-yearly-goals-file-path)))
)
(tags-todo "monthly"
((org-agenda-skip-function
(quote
(or (my/org-skip-subtree-if-priority 65)
(my/org-skip-subtree-if-habit)
(org-agenda-skip-if nil (quote (scheduled deadline)))
(org-agenda-skip-entry-if (quote todo) (quote ("DONE"))))
)
)
(org-agenda-overriding-header "This Monthly Goals:")
(org-tags-match-list-sublevels t)
(org-agenda-hide-tags-regexp "monthly")
(org-agenda-todo-keyword-format "")
(org-agenda-files (list my/org-yearly-goals-file-path)))
)
(tags-todo "yearly"
((org-agenda-skip-function
(quote
(or (my/org-skip-subtree-if-priority 65)
(my/org-skip-subtree-if-habit)
(org-agenda-skip-if nil (quote (scheduled deadline)))
(org-agenda-skip-entry-if (quote todo) (quote ("DONE"))))
)
)
(org-agenda-overriding-header "This Year Goals:")
(org-tags-match-list-sublevels t)
(org-agenda-hide-tags-regexp "yearly")
(org-agenda-todo-keyword-format "")
(org-agenda-files (list my/org-yearly-goals-file-path)))
)
)
)
("f" "Tasks finished"
((agenda ""
((org-agenda-skip-function
(quote
(org-agenda-skip-entry-if (quote nottodo)
(quote ("DONE" "UNDOABLE" "CANCELED")))
)
)
(org-agenda-log-mode-items (quote (closed)))
(org-agenda-overriding-header "Tasks finished this week:")
(org-agenda-files
(append org-agenda-files my/org-active-projects
(list my/org-archive-tasks-path))
)
(org-agenda-start-on-weekday 1))
)
)
)
("d" "Coprehensive agenda"
((tags-todo "PRIORITY=\"A\"|TODO=\"IN-PROCESS\""
((org-agenda-skip-function
(quote
(or
(org-agenda-skip-entry-if (quote todo)
(quote ("DONE" "UNDOABLE" "CANCELED")))
(my/org-agenda-skip-if-scheduled-later)
(and
(org-agenda-skip-entry-if (quote nottodo)
(quote ("IN-PROCESS")))
(my/org-skip-subtree-if-priority 65)
(org-agenda-skip-entry-if (quote notscheduled)))
)
)
)
(org-agenda-remove-tags nil)
(org-agenda-overriding-header "HIGH-PRIORITY TASKS:")
(org-agenda-sorting-strategy
(quote
(time-up priority-down effort-down category-keep alpha-up))
)
(org-agenda-files
(append org-agenda-files my/org-active-projects))
)
)
(tags "PROJECT_ACTIVE"
((org-agenda-overriding-header "ACTIVE PROJECTS:")
(org-tags-match-list-sublevels nil) (org-agenda-remove-tags t)
(org-agenda-files my/org-active-projects))
)
(tags-todo "TODO=\"WAITING\""
((org-agenda-overriding-header "WAITING TASKS:")
(org-agenda-remove-tags t)
(org-agenda-skip-function
(quote my/org-agenda-skip-deadline-if-not-today))
(org-agenda-todo-keyword-format "")
(org-agenda-sorting-strategy
(quote (tsia-up priority-down category-keep alpha-up)))
(org-agenda-files
(append org-agenda-files my/org-active-projects))
)
)
(tags-todo "TODO=\"BLOCKED\""
((org-agenda-overriding-header "BLOCKED TASKS:")
(org-agenda-skip-function
(quote (org-agenda-skip-entry-if (quote notscheduled))))
(org-agenda-remove-tags t) (org-agenda-todo-keyword-format "")
(org-agenda-sorting-strategy
(quote
(time-up priority-down todo-state-up effort-down
category-keep alpha-up)
)
)
)
(org-agenda-files
(append org-agenda-files my/org-active-projects))
)
(agenda ""
((org-agenda-skip-function
(quote
(or
(org-agenda-skip-entry-if (quote todo) (quote ("WAITING"))))
)
)
(org-agenda-cmp-user-defined
(quote jarfar/org-agenda-cmp-user-defined-birthday))
(org-agenda-sorting-strategy
(quote
(time-up todo-state-down user-defined-down habit-down
priority-up deadline-up scheduled-up effort-down alpha-up)
)
)
(org-agenda-remove-tags nil) (ps-number-of-columns 2)
(ps-landscape-mode 1)
(org-agenda-files
(append org-agenda-files my/org-active-projects
(\` ((\, my/org-events-file-path))))
)
)
)
)
)
)
org-directory "/Users/devil/Documents/emacs/orgs"
org-icalendar-alarm-time 60
org-link-from-user-regexp "\\<devil@adam-macBook\\.local\\>\\|\\<Adam Faryna\\>"
org-agenda-sorting-strategy '(priority-down)
org-drill-add-random-noise-to-intervals-p t
org-archive-reversed-order t
org-use-speed-commands t
org-tags-exclude-from-inheritance '("project" "taskjuggler_project" "taskjuggler_resource")
org-caldav-inbox "/Users/devil/Documents/emacs/agenda/google.org"
org-agenda-start-on-weekday nil
org-default-notes-file "/Users/devil/Documents/emacs/orgs/inbox.org"
org-odt-convert-processes '(("unoconv" "unoconv -f %f -o %d %i"))
org-clock-persist-query-resume nil
)
--
Thanks,
Adam Faryna
next reply other threads:[~2020-08-05 12:55 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-08-05 12:54 Adam Faryna [this message]
2020-08-06 0:17 ` Bug: org-agenda-sorting-strategy priority has no effect [9.3.7 (9.3.7-16-g521d7f-elpaplus @ /Users/devil/.emacs.d/elpa/org-plus-contrib-20200803/)] Kyle Meyer
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m2pn85w8w9.fsf@gmail.com \
--to=adamfaryna@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).