emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* 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/)]
@ 2020-08-05 12:54 Adam Faryna
  2020-08-06  0:17 ` Kyle Meyer
  0 siblings, 1 reply; 2+ messages in thread
From: Adam Faryna @ 2020-08-05 12:54 UTC (permalink / raw)
  To: emacs-orgmode


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


^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2020-08-06  0:18 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2020-08-05 12:54 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
2020-08-06  0:17 ` Kyle Meyer

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).