[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Bug: org-agenda-sorting-strategy priority has no effect [9.3.7 (9.3.7-16
|
From: |
Adam Faryna |
|
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 |
|
User-agent: |
mu4e 1.0; emacs 26.3 |
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
- 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/)],
Adam Faryna <=