1055 lines
68 KiB
Org Mode
1055 lines
68 KiB
Org Mode
#+PROPERTY: LOGGING nil
|
||
|
||
* Tasks
|
||
|
||
** TODO Move/rename repo to =org-ql=
|
||
|
||
Since =org-sidebar= uses it, it probably makes more sense for =org-ql= to be the primary focus of the repo. But it also uses =org-agenda-ng--format-element=, so =org-agenda-ng= probably should be part of that package, too.
|
||
|
||
** TODO Document matchers/selectors/predicates
|
||
|
||
And maybe pick a single name for them...
|
||
|
||
+ =deadline= :: Be sure to explain how it works with regard to the implied date and =today=.
|
||
+ =date=, =scheduled= :: No implied date, but supports =today=.
|
||
|
||
** TODO Document sorters
|
||
|
||
** TODO Add more sorters?
|
||
|
||
+ [ ] =category=
|
||
+ [ ] Any date :: e.g. it would search for timestamps (active/inactive?) anywhere in an entry
|
||
|
||
** MAYBE Date predicate that searches entire entry
|
||
|
||
Because the existing ones only search the special date property line.
|
||
|
||
** TODO Document/figure out tag inheritance
|
||
|
||
I think it should probably be enabled in most cases, to avoid missing results that users would expect to find, but it will reduce performance in some cases, so users should be able to turn it off when they don't need it.
|
||
|
||
[2018-06-12 Tue 14:32] The docstring for ~org-map-entries~ says:
|
||
|
||
#+BEGIN_QUOTE
|
||
If your function needs to retrieve the tags including inherited tags at the *current* entry, you can use the value of the variable ‘org-scanner-tags’ which will be much faster than getting the value with ‘org-get-tags-at’. If your function gets properties with ‘org-entry-properties’ at the *current* entry, bind ‘org-trust-scanner-tags’ to t around the call to ‘org-entry-properties’ to get the same speedup. Note that if your function moves around to retrieve tags and properties at a *different* entry, you cannot use these techniques.
|
||
#+END_QUOTE
|
||
* Ideas
|
||
|
||
** SOMEDAY Dual matching with regexp and predicates
|
||
|
||
Searching and matching could be sped up by constructing a regexp that searches directly to the next possible match, and then matching with predicate functions.
|
||
|
||
For example, a search like:
|
||
|
||
#+BEGIN_SRC elisp
|
||
(org-ql (org-agenda-files)
|
||
(and (regexp "lisp")
|
||
(scheduled < today)))
|
||
#+END_SRC
|
||
|
||
Only entries that contain the word =lisp= can be matches, and searching each entry for that word is wasteful. Instead, we could search the buffer for the next occurrence of =lisp=, then check the scheduled date for that entry.
|
||
|
||
This would require processing the predicate to pull out matchers that can be done as buffer-wide regexps, e.g. =regexp=, =heading-regexp=, =todo=, and possibly =tags=. Org has some regexp-building functions that might make this fairly easy, and then we could probably use ~rx~ to make an optimized version of the regexp. It would also require some refactoring to the searching that would go directly to regexp matches when possible, rather than checking every entry with the predicate.
|
||
|
||
** DONE Operate on list of heading positions
|
||
CLOSED: [2018-05-10 Thu 15:02]
|
||
:LOGBOOK:
|
||
- State "DONE" from [2018-05-10 Thu 15:02]
|
||
:END:
|
||
|
||
[2017-12-31 Sun 17:54] I wonder if, instead of parsing the whole buffer with =org-element-parse-buffer=, we could simply work on a list of heading positions, e.g. a loop would search forward to the next heading position, then call whatever predicates it needed at the heading's position, using =save-excursion= around each function call. The predicates would need to be updated to get their data from the buffer, instead of using =org-element-property=, but that wouldn't be hard.
|
||
|
||
[2018-05-10 Thu 15:01] I already changed to using buffer-parsing predicates instead of =org-element-parse-buffer=.
|
||
|
||
** DONE Use macros for =date=
|
||
CLOSED: [2018-05-10 Thu 14:59]
|
||
:LOGBOOK:
|
||
- State "DONE" from [2018-05-10 Thu 14:59]
|
||
:END:
|
||
|
||
If I made the =date= selector a macro, I could avoid the need to quote the comparator.
|
||
|
||
Also, maybe instead of having a single =date= selector, I should have =scheduled=, =deadline=, etc.
|
||
|
||
** DONE Byte-compile lambdas
|
||
CLOSED: [2018-05-09 Wed 17:30]
|
||
:LOGBOOK:
|
||
- State "DONE" from [2018-05-09 Wed 17:30]
|
||
:END:
|
||
|
||
=elfeed-search--update-list= byte-compiles lambdas returned by =elfeed-search-compile-filter=. Maybe I could do something like this too.
|
||
|
||
If I can get this working, I should profile it to see what difference it makes.
|
||
|
||
*** Profiling
|
||
|
||
Going to try byte-compiling the predicate function:
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 10 nil (org-agenda-ng "~/src/emacs/org-super-agenda/test/test.org"
|
||
(and (or (date :date '= (org-today))
|
||
(date :deadline '<= (+ org-deadline-warning-days (org-today)))
|
||
(date :scheduled '<= (org-today)))
|
||
(not (apply #'todo org-done-keywords-for-agenda)))))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
| Function | Times called | Total time | Average time |
|
||
|-------------------------------------------+--------------+--------------+--------------|
|
||
| org-agenda-ng--agenda | 10 | 0.8370581039 | 0.0837058104 |
|
||
| org-agenda-finalize-entries | 10 | 0.652886608 | 0.0652886608 |
|
||
| org-super-agenda--filter-finalize-entries | 10 | 0.641794501 | 0.0641794501 |
|
||
| org-super-agenda--group-items | 10 | 0.636057006 | 0.0636057006 |
|
||
| org-super-agenda--group-dispatch | 130 | 0.631911849 | 0.0048608603 |
|
||
| org-super-agenda--group-tag | 50 | 0.592883869 | 0.0118576773 |
|
||
| list | 2720 | 0.5792795169 | 0.0002129704 |
|
||
| mapcar | 331 | 0.2333591920 | 0.0007050126 |
|
||
| org-agenda-ng--filter-buffer | 10 | 0.09247626 | 0.009247626 |
|
||
| org-agenda-ng--format-element | 150 | 0.0649320479 | 0.0004328803 |
|
||
| org-entry-get | 860 | 0.0408285349 | 4.747...e-05 |
|
||
| org-agenda-ng--date-p | 910 | 0.0385646249 | 4.237...e-05 |
|
||
| org-element-headline-parser | 150 | 0.0374417470 | 0.0002496116 |
|
||
| org-is-habit-p | 270 | 0.0290107389 | 0.0001074471 |
|
||
| org--property-local-values | 270 | 0.0268615979 | 9.948...e-05 |
|
||
| org-get-property-block | 270 | 0.0244613309 | 9.059...e-05 |
|
||
| org-get-tags-at | 150 | 0.017875864 | 0.0001191724 |
|
||
| org-super-agenda--group-habit | 10 | 0.015910656 | 0.0015910655 |
|
||
| mapc | 2540 | 0.0158616290 | 6.244...e-06 |
|
||
| org-agenda-ng--add-faces | 150 | 0.0143329670 | 9.555...e-05 |
|
||
|
||
|
||
Now the same thing without byte-compiling:
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 10 nil (org-agenda-ng "~/src/emacs/org-super-agenda/test/test.org"
|
||
(and (or (date :date '= (org-today))
|
||
(date :deadline '<= (+ org-deadline-warning-days (org-today)))
|
||
(date :scheduled '<= (org-today)))
|
||
(not (apply #'todo org-done-keywords-for-agenda)))))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
| Function | Times called | Total time | Average time |
|
||
|-------------------------------------------+--------------+--------------+--------------|
|
||
| org-agenda-ng--agenda | 10 | 0.846645537 | 0.0846645537 |
|
||
| org-agenda-finalize-entries | 10 | 0.662896805 | 0.0662896805 |
|
||
| sort | 40 | 0.591123256 | 0.0147780814 |
|
||
| org-entries-lessp | 400 | 0.5901201620 | 0.0014753004 |
|
||
| mapcar | 201 | 0.2318270599 | 0.0011533684 |
|
||
| org-agenda-ng--filter-buffer | 10 | 0.092519787 | 0.0092519787 |
|
||
| org-super-agenda--filter-finalize-entries | 10 | 0.0664278040 | 0.0066427804 |
|
||
| org-agenda-ng--format-element | 150 | 0.064658994 | 0.0004310599 |
|
||
| org-super-agenda--group-items | 10 | 0.0602504089 | 0.0060250408 |
|
||
| org-super-agenda--group-dispatch | 130 | 0.0561904470 | 0.0004322342 |
|
||
| org-entry-get | 860 | 0.0437458889 | 5.086...e-05 |
|
||
| org-agenda-ng--date-p | 910 | 0.0382623409 | 4.204...e-05 |
|
||
| org-element-headline-parser | 150 | 0.0374662920 | 0.0002497752 |
|
||
| org-is-habit-p | 270 | 0.0320861079 | 0.0001188374 |
|
||
| org--property-local-values | 270 | 0.0298690430 | 0.0001106260 |
|
||
| org-get-property-block | 270 | 0.0274716649 | 0.0001017469 |
|
||
| org-super-agenda--group-habit | 10 | 0.019117901 | 0.0019117901 |
|
||
| org-get-tags-at | 150 | 0.0178958930 | 0.0001193059 |
|
||
| mapc | 2470 | 0.0150361130 | 6.087...e-06 |
|
||
| org-agenda-ng--add-faces | 150 | 0.0143092169 | 9.539...e-05 |
|
||
|
||
Virtually indistinguishable. Going to try moving the =byte-compile= call from the =org-agenda-ng= macro to other places...
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 10 nil (org-agenda-ng "~/src/emacs/org-super-agenda/test/test.org"
|
||
(and (or (date :date '= (org-today))
|
||
(date :deadline '<= (+ org-deadline-warning-days (org-today)))
|
||
(date :scheduled '<= (org-today)))
|
||
(not (apply #'todo org-done-keywords-for-agenda)))))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
| Function | Times called | Total time | Average time |
|
||
|-------------------------------------------+--------------+--------------+--------------|
|
||
| org-agenda-ng--agenda | 10 | 0.8476316779 | 0.0847631678 |
|
||
| mapcar | 331 | 0.8159452220 | 0.0024650913 |
|
||
| org-agenda-ng--filter-buffer | 10 | 0.674217912 | 0.0674217912 |
|
||
| org-element-headline-parser | 150 | 0.6171195889 | 0.0041141305 |
|
||
| line-beginning-position | 620 | 0.5802579680 | 0.0009358999 |
|
||
| org-agenda-finalize-entries | 10 | 0.082065157 | 0.0082065157 |
|
||
| org-super-agenda--filter-finalize-entries | 10 | 0.0708772279 | 0.0070877227 |
|
||
| org-super-agenda--group-items | 10 | 0.065523103 | 0.0065523103 |
|
||
| org-agenda-ng--format-element | 150 | 0.0652783740 | 0.0004351891 |
|
||
| org-super-agenda--group-dispatch | 130 | 0.0614253589 | 0.0004725027 |
|
||
| org-entry-get | 860 | 0.0494023029 | 5.744...e-05 |
|
||
| org-agenda-ng--date-p | 910 | 0.0388435519 | 4.268...e-05 |
|
||
| org-is-habit-p | 270 | 0.0375687549 | 0.0001391435 |
|
||
| org--property-local-values | 270 | 0.0353892929 | 0.0001310714 |
|
||
| org-get-property-block | 270 | 0.0329700440 | 0.0001221112 |
|
||
| org-super-agenda--group-habit | 10 | 0.024468601 | 0.0024468601 |
|
||
| re-search-backward | 1500 | 0.0186344089 | 1.242...e-05 |
|
||
| org-get-tags-at | 150 | 0.0180038809 | 0.0001200258 |
|
||
| mapc | 2540 | 0.0156518099 | 6.162...e-06 |
|
||
| org-agenda-ng--add-faces | 150 | 0.0144141080 | 9.609...e-05 |
|
||
|
||
Doesn't seem to make any difference.
|
||
|
||
* Examples / testing
|
||
|
||
#+BEGIN_SRC elisp
|
||
(org-agenda-ng org-agenda-files
|
||
(and (or (date :deadline '<= (org-today))
|
||
(date :scheduled '<= (org-today)))
|
||
(not (apply #'todo org-done-keywords-for-agenda)))
|
||
((group (tags "bills"))
|
||
(group (todo "SOMEDAY"))))
|
||
|
||
(org-agenda-ng org-agenda-files
|
||
(and (or (date :deadline '<= (org-today))
|
||
(date :scheduled '<= (org-today)))
|
||
(not (apply #'todo org-done-keywords-for-agenda))))
|
||
|
||
(org-agenda-ng "~/org/main.org"
|
||
(and (or (date :deadline '<= (org-today))
|
||
(date :scheduled '<= (org-today)))
|
||
(not (apply #'todo org-done-keywords-for-agenda))))
|
||
|
||
(org-ql org-agenda-files
|
||
(and (todo "SOMEDAY")
|
||
(tags "Emacs")))
|
||
(org-ql org-agenda-files
|
||
(and (todo "SOMEDAY")
|
||
(tags "Emacs")
|
||
(priority >= "B")))
|
||
(org-ql "~/org/main.org"
|
||
(and (or (tags "Emacs")
|
||
(priority >= "B"))
|
||
(not (done))))
|
||
(org-ql "~/org/main.org"
|
||
(and (or (tags "Emacs")
|
||
(priority >= "B"))
|
||
(done)))
|
||
#+END_SRC
|
||
|
||
** Sorting
|
||
|
||
#+BEGIN_SRC elisp
|
||
(org-ql "~/src/emacs/org-super-agenda/test/test.org"
|
||
(regexp "over")
|
||
:sort (priority deadline scheduled))
|
||
|
||
(org-ql "~/src/emacs/org-super-agenda/test/test.org"
|
||
(regexp "over")
|
||
:sort (date))
|
||
|
||
(org-ql "~/src/emacs/org-super-agenda/test/test.org"
|
||
(todo)
|
||
:sort (todo))
|
||
#+END_SRC
|
||
|
||
** Regexp matching
|
||
|
||
#+BEGIN_SRC elisp
|
||
(org-ql "~/src/emacs/org-super-agenda/test/test.org"
|
||
(regexp "over"))
|
||
|
||
(org-agenda-ng "~/src/emacs/org-super-agenda/test/test.org"
|
||
(regexp "over"))
|
||
#+END_SRC
|
||
|
||
** Property matching
|
||
|
||
#+BEGIN_SRC elisp
|
||
(org-agenda-ng "~/src/emacs/org-super-agenda/test/test.org"
|
||
(property "agenda-group"))
|
||
|
||
(org-agenda-ng "~/src/emacs/org-super-agenda/test/test.org"
|
||
(property "agenda-group" "plans"))
|
||
#+END_SRC
|
||
|
||
** Screenshot code
|
||
|
||
#+BEGIN_SRC elisp
|
||
(org-super-agenda--test-with-org-today-date "2017-07-08 00:00"
|
||
(org-agenda-ng "~/src/emacs/org-super-agenda/test/test.org"
|
||
(and (or (date = today)
|
||
(deadline <=)
|
||
(scheduled <= today))
|
||
(not (done)))))
|
||
#+END_SRC
|
||
|
||
* Profiling
|
||
|
||
** Using =org-element-parse-buffer=
|
||
|
||
This basically works, as a very basic kind of agenda view, but we can already see that it's much slower (at least, for single-day views) because =org-element-parse-buffer= is slow compared to the agenda code.
|
||
|
||
[2018-05-10 Thu 15:03] *Note:* This is the old, much slower code that used =org-element-parse-buffer=.
|
||
|
||
*** Macro
|
||
|
||
#+BEGIN_SRC elisp
|
||
(defmacro elp-profile (times prefixes &rest body)
|
||
(declare (indent defun))
|
||
(let ((prefixes (append '(org- string- s- buffer- append delq map
|
||
list car save- outline- delete-dups
|
||
sort line- nth concat char-to-string
|
||
rx- goto- when search- re-)
|
||
prefixes)))
|
||
`(let (output)
|
||
(dolist (prefix ',prefixes)
|
||
(elp-instrument-package (symbol-name prefix)))
|
||
(dotimes (x ,times)
|
||
,@body)
|
||
(elp-results)
|
||
(elp-restore-all)
|
||
(point-min)
|
||
(forward-line 20)
|
||
(delete-region (point) (point-max))
|
||
(setq output (buffer-substring-no-properties (point-min) (point-max)))
|
||
(kill-buffer)
|
||
(delete-window)
|
||
(let ((rows (s-lines output)))
|
||
(append (list (list "Function" "Times called" "Total time" "Average time")
|
||
'hline)
|
||
(cl-loop for row in rows
|
||
collect (s-split (rx (1+ space)) row 'omit-nulls)))))))
|
||
#+END_SRC
|
||
|
||
[2018-05-09 Wed 17:31] *Note*: I seem to have misplaced the =org-agenda-ng--test-agenda-today= function I used in these tests.
|
||
|
||
*** ng
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 1 (org-agenda-ng--test-agenda-today))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
#+begin_example
|
||
org-element--parse-elements 5832 18.501891926 0.0031724780
|
||
mapcar 98 6.3412930759 0.0647070722
|
||
org-agenda-ng--test-agenda-today 1 6.30112088 6.30112088
|
||
org-agenda-ng--agenda-multi 1 6.301086333 6.301086333
|
||
org-agenda-ng--get-entries 8 6.249823971 0.7812279963
|
||
mapc 2803 5.9078545849 0.0021076898
|
||
org-element-parse-buffer 8 4.796204625 0.5995255781
|
||
org-element--current-element 6557 3.7164850469 0.0005667965
|
||
org-element-headline-parser 6557 3.5548915590 0.0005421521
|
||
org-end-of-subtree 6557 1.3663438270 0.0002083794
|
||
org-agenda-ng--filter-tree 8 1.3661297829 0.1707662228
|
||
org-element-map 8 1.365995685 0.1707494606
|
||
line-end-position 9503 0.4900104040 5.156...e-05
|
||
org-at-heading-p 12389 0.4574876539 3.692...e-05
|
||
re-search-forward 20193 0.4566419319 2.261...e-05
|
||
outline-on-heading-p 19286 0.4559736580 2.364...e-05
|
||
org-outline-level 6775 0.3970647569 5.860...e-05
|
||
org-back-to-heading 6897 0.3689033409 5.348...e-05
|
||
outline-back-to-heading 6897 0.3587580889 5.201...e-05
|
||
line-beginning-position 11702 0.2887473860 2.467...e-05
|
||
#+end_example
|
||
|
||
*** orig
|
||
|
||
Make sure to kill any existing agenda buffers first.
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 1 (org-agenda-list nil nil 'week))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
#+begin_example
|
||
org-agenda-list 1 1.717467214 1.717467214
|
||
org-agenda-get-day-entries 7 1.124906724 0.1607009605
|
||
org-agenda-get-scheduled 7 0.9354116170 0.1336302310
|
||
org-get-tags-at 62 0.5598817790 0.0090303512
|
||
org-up-heading-safe 262 0.5531687240 0.0021113310
|
||
org-back-to-heading 2646 0.5316139889 0.0002009123
|
||
org-agenda-finalize 1 0.485185818 0.485185818
|
||
org-agenda-skip 749 0.4059732339 0.0005420203
|
||
org-at-planning-p 921 0.2137141959 0.0002320458
|
||
org-is-habit-p 574 0.1953095319 0.0003402605
|
||
org-entry-get 579 0.195275877 0.0003372640
|
||
org--property-local-values 574 0.1899641870 0.0003309480
|
||
org-get-property-block 574 0.1789142650 0.0003116973
|
||
re-search-backward 3586 0.1769497870 4.934...e-05
|
||
org-inlinetask-in-task-p 1495 0.1639709820 0.0001096795
|
||
outline-back-to-heading 2646 0.1387423440 5.243...e-05
|
||
re-search-forward 3177 0.1353034909 4.258...e-05
|
||
org-agenda-get-deadlines 7 0.1341101260 0.0191585894
|
||
line-beginning-position 2041 0.1000089939 4.899...e-05
|
||
org-get-todo-state 749 0.070545971 9.418...e-05
|
||
org-agenda-prepare 1 0.052788647 0.052788647
|
||
org-agenda-prepare-buffers 1 0.050402675 0.050402675
|
||
org-agenda-get-timestamps 7 0.0428353419 0.0061193345
|
||
org-agenda--timestamp-to-absolute 1498 0.0414448099 2.766...e-05
|
||
org-time-string-to-absolute 1498 0.0385546620 2.573...e-05
|
||
org-agenda-finalize-entries 7 0.03400573 0.0048579614
|
||
org-super-agenda--finalize-entries 7 0.0339819269 0.0048545609
|
||
org-outline-level 505 0.0335176070 6.637...e-05
|
||
org-super-agenda--group-items 7 0.0268096709 0.0038299529
|
||
org-super-agenda--group-dispatch 84 0.024216379 0.0002882902
|
||
org-parse-time-string 1572 0.0211881319 1.347...e-05
|
||
org-closest-date 749 0.0178231690 2.379...e-05
|
||
org-before-first-heading-p 578 0.0142076310 2.458...e-05
|
||
org-refresh-category-properties 1 0.013815263 0.013815263
|
||
org-in-src-block-p 753 0.0135235599 1.795...e-05
|
||
org-refresh-stats-properties 1 0.012230309 0.012230309
|
||
org-habit-parse-todo 5 0.0121474539 0.0024294907
|
||
org-get-limited-outline-regexp 1502 0.0100960829 6.721...e-06
|
||
mapcar 309 0.009495786 3.073...e-05
|
||
org-super-agenda--group-habit 7 0.009318616 0.0013312308
|
||
string-match 6253 0.0090207890 1.442...e-06
|
||
org-super-agenda--group-dispatch-and 7 0.0067444 0.0009634857
|
||
org-agenda-get-blocks 7 0.0060974240 0.0008710605
|
||
outline-on-heading-p 2655 0.0060741090 2.287...e-06
|
||
org-agenda-get-sexps 7 0.0057924309 0.0008274901
|
||
org-super-agenda--group-regexp 7 0.005592509 0.0007989298
|
||
org-refresh-properties 2 0.005461118 0.002730559
|
||
org-super-agenda--get-item-entry 31 0.004812809 0.0001552519
|
||
org-agenda-align-tags 1 0.004677699 0.004677699
|
||
org-set-regexps-and-options 1 0.004533983 0.004533983
|
||
org--setup-collect-keywords 2 0.004499168 0.002249584
|
||
org-agenda-format-item 31 0.0039898020 0.0001287032
|
||
org-date-to-gregorian 420 0.0039648049 9.440...e-06
|
||
org-agenda-highlight-todo 31 0.0039479179 0.0001273521
|
||
string-to-number 8202 0.0031924329 3.892...e-07
|
||
org-end-of-subtree 12 0.003047285 0.0002539404
|
||
org-super-agenda--group-tag 35 0.002941374 8.403...e-05
|
||
org-inlinetask-outline-regexp 1495 0.002887697 1.931...e-06
|
||
org-get-wdays 749 0.0027946290 3.731...e-06
|
||
org-refresh-effort-properties 1 0.002750279 0.002750279
|
||
org-entry-beginning-position 31 0.002345909 7.567...e-05
|
||
sort 25 0.0021000059 8.400...e-05
|
||
mapc 445 0.0018132390 4.074...e-06
|
||
line-end-position 72 0.00177188 2.460...e-05
|
||
mapconcat 341 0.0016574119 4.860...e-06
|
||
org-entries-lessp 60 0.0016203450 2.700...e-05
|
||
concat 336 0.0016188640 4.818...e-06
|
||
org-habit-insert-consistency-graphs 1 0.001368346 0.001368346
|
||
org-add-props 137 0.001291149 9.424...e-06
|
||
org-element-at-point 1 0.001266403 0.001266403
|
||
org-agenda-new-marker 62 0.001253987 2.022...e-05
|
||
outline-next-heading 42 0.001123596 2.675...e-05
|
||
org-split-string 148 0.0011049120 7.465...e-06
|
||
org-element--parse-to 1 0.001074227 0.001074227
|
||
org-get-scheduled-time 5 0.0010200300 0.000204006
|
||
org-super-agenda--group-todo 21 0.001003225 4.777...e-05
|
||
org-time-string-to-time 69 0.0009947770 1.441...e-05
|
||
org-element--current-element 4 0.0009597410 0.0002399352
|
||
org-entry-properties 5 0.0008807149 0.0001761429
|
||
org-at-date-range-p 172 0.0008412679 4.891...e-06
|
||
org-agenda-mode 1 0.000787997 0.000787997
|
||
org-super-agenda--group-log 14 0.0007874939 5.624...e-05
|
||
buffer-substring 31 0.0007650360 2.467...e-05
|
||
org-heading-components 9 0.00071644 7.960...e-05
|
||
org-entry-end-position 31 0.0007046580 2.273...e-05
|
||
string-prefix-p 789 0.0006732279 8.532...e-07
|
||
org-agenda-skip-eval 1498 0.0006586869 4.397...e-07
|
||
org-get-repeat 5 0.000656577 0.0001313153
|
||
org-activate-bracket-links 3 0.000648713 0.0002162376
|
||
org-agenda-fix-displayed-tags 31 0.000636446 2.053...e-05
|
||
s-join 252 0.0006324150 2.509...e-06
|
||
org-element-keyword-parser 4 0.000530311 0.0001325777
|
||
org-in-commented-heading-p 4 0.00051077 0.0001276925
|
||
buffer-substring-no-properties 308 0.0004763350 1.546...e-06
|
||
org-habit-build-graph 5 0.0004689199 9.3784e-05
|
||
car 1626 0.0004469320 2.748...e-07
|
||
org-activate-plain-links 3 0.000382191 0.000127397
|
||
org-super-agenda--transform-groups 7 0.0003747289 5.353...e-05
|
||
org-get-priority 26 0.0003598600 1.384...e-05
|
||
org-agenda-fontify-priorities 1 0.000357076 0.000357076
|
||
org-super-agenda--group-priority 14 0.00035224 2.516e-05
|
||
org-agenda-prepare-window 1 0.00033704 0.00033704
|
||
org-find-text-property-in-string 316 0.0003191880 1.010...e-06
|
||
org-not-nil 821 0.0003016530 3.674...e-07
|
||
list 940 0.0002995150 3.186...e-07
|
||
org-super-agenda--group-time-grid 7 0.0002954999 4.221...e-05
|
||
org-agenda-format-date-aligned 7 0.0002794120 3.991...e-05
|
||
org-super-agenda--get-tags 103 0.0002654610 2.577...e-06
|
||
delq 513 0.0002634709 5.135...e-07
|
||
org-replace-escapes 5 0.0002382050 4.7641e-05
|
||
car-safe 911 0.0002314199 2.540...e-07
|
||
org-today 48 0.0002232539 4.651...e-06
|
||
org-get-time-of-day 19 0.000219044 1.152...e-05
|
||
org-days-to-iso-week 9 0.0002125040 2.361...e-05
|
||
append 433 0.0002083290 4.811...e-07
|
||
org-get-category 31 0.000198604 6.406...e-06
|
||
string-match-p 31 0.0001787880 5.767...e-06
|
||
org-agenda-today-p 21 0.0001658670 7.898...e-06
|
||
org-super-agenda--get-marker 54 0.0001629399 3.017...e-06
|
||
delete-dups 111 0.0001343219 1.210...e-06
|
||
org-at-heading-p 9 0.000128871 1.4319e-05
|
||
string-equal 361 0.0001168969 3.238...e-07
|
||
org-super-agenda--make-agenda-header 13 0.0001151760 8.859...e-06
|
||
org-add-prop-inherited 142 0.0001142290 8.044...e-07
|
||
org-check-agenda-file 8 0.000110448 1.3806e-05
|
||
org-agenda-get-day-face 7 0.000110437 1.577...e-05
|
||
org-get-agenda-file-buffer 8 0.000107414 1.342675e-05
|
||
org-agenda-files 3 0.000102652 3.421...e-05
|
||
org-downcase-keep-props 90 0.0001008230 1.120...e-06
|
||
org-super-agenda--get-priority-cookie 15 9.460...e-05 6.307e-06
|
||
org-get-todo-face 31 9.423...e-05 3.039...e-06
|
||
org-find-base-buffer-visiting 8 8.7492e-05 1.09365e-05
|
||
org-habit-get-faces 140 8.080...e-05 5.771...e-07
|
||
org-remove-uninherited-tags 176 7.580...e-05 4.307...e-07
|
||
goto-char 31 7.1014e-05 2.290...e-06
|
||
org-super-agenda--transform-group-order 7 6.5543e-05 9.363...e-06
|
||
org-agenda-add-time-grid-maybe 7 5.703...e-05 8.147...e-06
|
||
org-compile-prefix-format 1 5.2164e-05 5.2164e-05
|
||
org-link-unescape 4 4.4823e-05 1.120575e-05
|
||
listp 133 3.960...e-05 2.977...e-07
|
||
org-habit-duration-to-days 5 3.9446e-05 7.8892e-06
|
||
org-make-options-regexp 1 3.6054e-05 3.6054e-05
|
||
org-agenda-mark-header-line 1 3.3066e-05 3.3066e-05
|
||
org-element--collect-affiliated-keywords 4 3.2661e-05 8.16525e-06
|
||
org-habit-get-priority 5 2.9857e-05 5.9714e-06
|
||
org-agenda-get-category-icon 31 2.673...e-05 8.624...e-07
|
||
org-face-from-face-or-color 61 2.1803e-05 3.574...e-07
|
||
org-reduced-level 40 2.1692e-05 5.423e-07
|
||
org-link-get-parameter 26 2.062...e-05 7.930...e-07
|
||
buffer-name 57 1.9875e-05 3.486...e-07
|
||
org-defkey 5 1.9835e-05 3.966...e-06
|
||
string-to-char 56 1.929...e-05 3.446...e-07
|
||
org-string-nw-p 5 1.7894e-05 3.578...e-06
|
||
s-wrap 7 1.6955e-05 2.422...e-06
|
||
org-link-expand-abbrev 2 1.5491e-05 7.7455e-06
|
||
map-keymap 2 1.4987e-05 7.4935e-06
|
||
search-forward 7 1.403...e-05 2.004...e-06
|
||
string-lessp 41 1.394...e-05 3.400...e-07
|
||
org-agenda-reset-markers 1 1.3927e-05 1.3927e-05
|
||
org-agenda-deadline-face 7 1.2592e-05 1.798...e-06
|
||
search-backward 5 1.1253e-05 2.2506e-06
|
||
org-agenda-span-name 5 9.758e-06 1.9516e-06
|
||
outline-previous-heading 1 8.678e-06 8.678e-06
|
||
buffer-modified-p 10 4.618e-06 4.617...e-07
|
||
buffer-file-name 13 4.608...e-06 3.544...e-07
|
||
buffer-live-p 11 4.473e-06 4.066...e-07
|
||
buffer-local-value 10 4.278e-06 4.278...e-07
|
||
buffer-base-buffer 10 3.858e-06 3.858...e-07
|
||
org-agenda-set-mode-name 1 3.118e-06 3.118e-06
|
||
org-remove-flyspell-overlays-in 4 2.926...e-06 7.315...e-07
|
||
buffer-size 8 2.791...e-06 3.489...e-07
|
||
org-key 5 2.707e-06 5.414e-07
|
||
org-unbracket-string 1 2.692e-06 2.692e-06
|
||
save-place-to-alist 1 2.276e-06 2.276e-06
|
||
org-element--cache-put 4 1.907e-06 4.7675e-07
|
||
org-property-inherit-p 2 1.414e-06 7.07e-07
|
||
org-agenda-ndays-to-span 2 1.293...e-06 6.465...e-07
|
||
maphash 1 1.171e-06 1.171e-06
|
||
org-set-sorting-strategy 1 1.165e-06 1.165e-06
|
||
org-file-menu-entry 1 1.12e-06 1.12e-06
|
||
string-width 2 1.093e-06 5.465e-07
|
||
org-time-stamp-format 1 1.054e-06 1.054e-06
|
||
org-agenda-fit-window-to-buffer 1 9.31e-07 9.31e-07
|
||
org-font-lock-add-tag-faces 1 9.13e-07 9.13e-07
|
||
org-agenda-span-to-ndays 1 8.3e-07 8.3e-07
|
||
org-element-property 2 8.12e-07 4.06e-07
|
||
org-agenda-mark-clocking-task 1 8.03e-07 8.03e-07
|
||
org-tag-alist-to-groups 1 7.55e-07 7.55e-07
|
||
org-element-type 1 6.14e-07 6.14e-07
|
||
org-agenda-use-sticky-p 1 4.73e-07 4.73e-07
|
||
mapatoms 1 0 0.0
|
||
#+end_example
|
||
|
||
*** Profile org-element-map
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 1 (with-current-buffer (find-buffer-visiting "~/org/main.org")
|
||
(org-element-parse-buffer 'headline)))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
#+begin_example
|
||
org-element--parse-elements 1002 4.1612395469 0.0041529336
|
||
org-element-parse-buffer 1 0.859981956 0.859981956
|
||
org-element--current-element 1225 0.8236391779 0.0006723585
|
||
org-element-headline-parser 1225 0.7952382879 0.0006491741
|
||
org-end-of-subtree 1225 0.5557043549 0.0004536362
|
||
line-end-position 1995 0.0751104350 3.764...e-05
|
||
re-search-forward 3743 0.0516547359 1.380...e-05
|
||
org-outline-level 1225 0.0477962079 3.901...e-05
|
||
org-back-to-heading 1225 0.0469223529 3.830...e-05
|
||
outline-back-to-heading 1225 0.0450936199 3.681...e-05
|
||
org-element--get-node-properties 1225 0.0434517140 3.547...e-05
|
||
line-beginning-position 2003 0.0334129610 1.668...e-05
|
||
org-element--get-time-properties 1225 0.0306394040 2.501...e-05
|
||
org-get-limited-outline-regexp 2072 0.0140703559 6.790...e-06
|
||
org-element-timestamp-parser 249 0.0124751890 5.010...e-05
|
||
outline-next-heading 847 0.0115396399 1.362...e-05
|
||
org-at-heading-p 2227 0.0109473260 4.915...e-06
|
||
outline-on-heading-p 3452 0.0101107139 2.928...e-06
|
||
string-match 4594 0.0064121759 1.395...e-06
|
||
mapcar 30 0.0041008740 0.0001366958
|
||
#+end_example
|
||
** Profiling position-based
|
||
|
||
*** Macro
|
||
|
||
#+BEGIN_SRC elisp
|
||
(defmacro elp-profile (times &rest body)
|
||
(declare (indent defun))
|
||
`(let ((prefixes '("org-" "string-" "s-" "buffer-" "append" "delq" "map"
|
||
"list" "car" "save-" "outline-" "delete-dups"
|
||
"sort" "line-" "nth" "concat" "char-to-string"
|
||
"rx-" "goto-" "when" "search-" "re-"))
|
||
output)
|
||
(dolist (prefix prefixes)
|
||
(elp-instrument-package prefix))
|
||
(dotimes (x ,times)
|
||
,@body)
|
||
(elp-results)
|
||
(elp-restore-all)
|
||
(point-min)
|
||
(forward-line 20)
|
||
(delete-region (point) (point-max))
|
||
(setq output (buffer-substring-no-properties (point-min) (point-max)))
|
||
(kill-buffer)
|
||
(delete-window)
|
||
output))
|
||
#+END_SRC
|
||
|
||
|
||
*** orig
|
||
|
||
Make sure to kill any existing agenda buffers first.
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 1 (org-agenda-list nil nil 'week))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
#+begin_example
|
||
org-agenda-list 1 9.693596196 9.693596196
|
||
org-agenda-get-day-entries 56 8.630330659 0.1541130474
|
||
org-agenda-get-scheduled 56 6.6207980570 0.1182285367
|
||
org-is-habit-p 2792 2.2907458449 0.0008204677
|
||
org-entry-get 2798 2.287390186 0.0008175090
|
||
org-agenda--timestamp-to-absolute 7708 2.0970420100 0.0002720604
|
||
org-agenda-get-deadlines 56 1.6941886389 0.0302533685
|
||
org-at-planning-p 4399 1.3993312159 0.0003181021
|
||
org--property-local-values 2793 1.2699226760 0.0004546805
|
||
org-get-property-block 2794 1.2182695930 0.0004360306
|
||
org-time-string-to-absolute 7708 1.1513844880 0.0001493752
|
||
org-inlinetask-in-task-p 6969 1.139932302 0.0001635718
|
||
org-parse-time-string 7880 1.0635759220 0.0001349715
|
||
org-closest-date 3864 1.0383435800 0.0002687224
|
||
re-search-forward 15199 0.9607921779 6.321...e-05
|
||
org-back-to-heading 12667 0.8564486210 6.761...e-05
|
||
outline-back-to-heading 12667 0.8362207570 6.601...e-05
|
||
line-beginning-position 10333 0.7998346869 7.740...e-05
|
||
org-agenda-format-item 279 0.7552402350 0.0027069542
|
||
re-search-backward 16726 0.5694224969 3.404...e-05
|
||
#+end_example
|
||
|
||
*** ng-funcall
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 5 (org-agenda-ng--test-agenda-today))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
#+begin_example
|
||
mapcar 121 0.1296645480 0.0010716078
|
||
org-agenda-ng--test-agenda-today 5 0.086714029 0.0173428058
|
||
org-agenda-ng--agenda 5 0.086584611 0.0173169222
|
||
org-agenda-ng--format-element 75 0.0307461019 0.0004099480
|
||
org-agenda-ng--filter-buffer 5 0.027136826 0.0054273652
|
||
org-agenda-ng--date-p 455 0.0213037090 4.682...e-05
|
||
org-element-headline-parser 75 0.016251755 0.0002166900
|
||
org-get-tags-at 75 0.008959605 0.0001194614
|
||
org-agenda-ng--add-faces 75 0.0072381410 9.650...e-05
|
||
org-element-timestamp-interpreter 150 0.0069832960 4.655...e-05
|
||
org-entry-get 290 0.0061220340 2.111...e-05
|
||
org-up-heading-safe 210 0.0057036860 2.716...e-05
|
||
org-agenda-finalize-entries 5 0.005372899 0.0010745798
|
||
org-element-timestamp-parser 150 0.0050518689 3.367...e-05
|
||
org-entry-properties 290 0.0049517209 1.707...e-05
|
||
org-agenda-ng--add-deadline-face 75 0.0039273909 5.236...e-05
|
||
org-element--get-time-properties 75 0.0039059429 5.207...e-05
|
||
org-back-to-heading 725 0.0037793259 5.212...e-06
|
||
org-parse-time-string 300 0.0032196259 1.073...e-05
|
||
org-agenda-ng--add-scheduled-face 75 0.0031410580 4.188...e-05
|
||
#+end_example
|
||
|
||
*** ng-flet
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 5 (org-agenda-ng--test-agenda-today))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
#+begin_example
|
||
mapcar 121 0.1292609089 0.0010682719
|
||
org-agenda-ng--test-agenda-today 5 0.0860146149 0.017202923
|
||
org-agenda-ng--agenda 5 0.0858901769 0.0171780353
|
||
org-agenda-ng--format-element 75 0.0308815090 0.0004117534
|
||
org-agenda-ng--filter-buffer 5 0.026709027 0.0053418054
|
||
org-agenda-ng--date-p 455 0.0210552310 4.627...e-05
|
||
org-element-headline-parser 75 0.016209908 0.0002161321
|
||
org-get-tags-at 75 0.008953666 0.0001193822
|
||
org-agenda-ng--add-faces 75 0.0072834109 9.711...e-05
|
||
org-element-timestamp-interpreter 150 0.0068781430 4.585...e-05
|
||
org-entry-get 290 0.0060815609 2.097...e-05
|
||
org-up-heading-safe 210 0.005708647 2.718...e-05
|
||
org-agenda-finalize-entries 5 0.005201221 0.0010402442
|
||
org-element-timestamp-parser 150 0.005191617 3.461078e-05
|
||
org-entry-properties 290 0.0048787450 1.682...e-05
|
||
org-element--get-time-properties 75 0.004112675 5.483...e-05
|
||
org-agenda-ng--add-deadline-face 75 0.0039314910 5.241...e-05
|
||
org-back-to-heading 725 0.0037559990 5.180...e-06
|
||
org-agenda-ng--add-scheduled-face 75 0.0031766149 4.235...e-05
|
||
org-parse-time-string 300 0.0031740200 1.058...e-05
|
||
#+end_example
|
||
** Profiling =org-trust-scanner-tags=
|
||
|
||
[2018-05-10 Thu 12:59] Turned on =org-trust-scanner-tags=, going to try profiling again:
|
||
|
||
#+BEGIN_SRC elisp
|
||
;; (elp-profile 1 nil (org-agenda-ng "~/src/emacs/org-super-agenda/test/test.org"
|
||
;; (tags "world")))
|
||
|
||
(elp-profile 10 nil (org-agenda-ng org-agenda-files
|
||
(tags "Emacs")))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
| Function | Times called | Total time | Average time |
|
||
|-------------------------------------------+--------------+--------------+--------------|
|
||
| org-agenda-ng--agenda | 10 | 44.092598282 | 4.4092598282 |
|
||
| mapcar | 282 | 40.234516707 | 0.1426755911 |
|
||
| org-agenda-ng--filter-buffer | 80 | 26.895492471 | 0.3361936558 |
|
||
| org-element-headline-parser | 3980 | 10.387614362 | 0.0026099533 |
|
||
| org-agenda-finalize-entries | 10 | 9.194458252 | 0.9194458252 |
|
||
| org-agenda-ng--tags-p | 70250 | 8.1897379849 | 0.0001165799 |
|
||
| org-agenda-ng--format-element | 3980 | 6.5944325679 | 0.0016568926 |
|
||
| outline-next-heading | 70320 | 6.1190180490 | 8.701...e-05 |
|
||
| re-search-forward | 97050 | 5.8706467829 | 6.049...e-05 |
|
||
| org-get-tags-at | 74230 | 5.4078158059 | 7.285...e-05 |
|
||
| org-super-agenda--filter-finalize-entries | 10 | 5.2320123400 | 0.5232012340 |
|
||
| org-super-agenda--group-items | 10 | 5.1260959210 | 0.5126095921 |
|
||
| org-super-agenda--group-dispatch | 130 | 5.119333624 | 0.0393794894 |
|
||
| sort | 20 | 3.8204368569 | 0.1910218428 |
|
||
| org-element--parse-objects | 6180 | 3.5386578929 | 0.0005725983 |
|
||
| org-is-habit-p | 5970 | 3.2497755920 | 0.0005443510 |
|
||
| org-entry-get | 5970 | 3.2347964049 | 0.0005418419 |
|
||
| org--property-local-values | 5970 | 3.1796357319 | 0.0005326023 |
|
||
| org-get-property-block | 5970 | 3.0767919680 | 0.0005153755 |
|
||
| org-entries-lessp | 20020 | 2.6563960079 | 0.0001326871 |
|
||
|
||
Now trying again without it:
|
||
|
||
#+BEGIN_SRC elisp
|
||
;; (elp-profile 1 nil (org-agenda-ng "~/src/emacs/org-super-agenda/test/test.org"
|
||
;; (tags "world")))
|
||
|
||
(elp-profile 10 nil (org-agenda-ng org-agenda-files
|
||
(tags "Emacs")))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
| Function | Times called | Total time | Average time |
|
||
|-------------------------------------------+--------------+--------------+--------------|
|
||
| mapcar | 1791 | 57.096304538 | 0.0318795670 |
|
||
| org-agenda-ng--agenda | 10 | 54.232133506 | 5.4232133505 |
|
||
| org-agenda-ng--filter-buffer | 80 | 30.065167040 | 0.3758145880 |
|
||
| org-get-tags-at | 74230 | 13.840202495 | 0.0001864502 |
|
||
| org-agenda-ng--format-element | 3980 | 13.429297797 | 0.0033741954 |
|
||
| org-element-headline-parser | 3980 | 12.771776652 | 0.0032089891 |
|
||
| org-agenda-finalize-entries | 10 | 9.1439433990 | 0.9143943399 |
|
||
| org-agenda-ng--tags-p | 70250 | 9.0249653730 | 0.0001284692 |
|
||
| org-super-agenda--filter-finalize-entries | 10 | 7.300515859 | 0.7300515859 |
|
||
| outline-next-heading | 70320 | 7.2384435649 | 0.0001029357 |
|
||
| org-super-agenda--group-items | 10 | 4.918585855 | 0.4918585855 |
|
||
| org-super-agenda--group-dispatch | 130 | 4.9125893509 | 0.0377891488 |
|
||
| re-search-forward | 101020 | 4.6294823850 | 4.582...e-05 |
|
||
| org-up-heading-safe | 7370 | 4.4629885620 | 0.0006055615 |
|
||
| org-is-habit-p | 5960 | 4.2772351910 | 0.0007176569 |
|
||
| org-entry-get | 5960 | 4.2595350800 | 0.0007146870 |
|
||
| org-super-agenda--group-tag | 50 | 3.8942044929 | 0.0778840898 |
|
||
| re-search-backward | 26150 | 3.3660083490 | 0.0001287192 |
|
||
| org--property-local-values | 5960 | 3.1793476329 | 0.0005334475 |
|
||
| org-get-property-block | 5960 | 3.0662425979 | 0.0005144702 |
|
||
|
||
Wow, using =org-trust-scanner-tags= saves a /lot/ of time.
|
||
|
||
** Profiling flet across all agenda files
|
||
|
||
*** Without flet
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 5 (org-agenda-ng--agenda
|
||
:files org-agenda-files
|
||
:pred (lambda ()
|
||
(and (org-agenda-ng--todo-p)
|
||
(or (org-agenda-ng--date-p :deadline '<= (org-today))
|
||
(org-agenda-ng--date-p :scheduled '<= (org-today)))
|
||
(not (apply #'org-agenda-ng--todo-p org-done-keywords-for-agenda))))))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
#+begin_example
|
||
mapcar 711 26.910164986 0.0378483333
|
||
org-agenda-ng--agenda 5 21.012501837 4.2025003674
|
||
org-agenda-ng--filter-buffer 40 13.751964650 0.3437991162
|
||
org-agenda-ng--todo-p 37080 5.8788306440 0.0001585445
|
||
org-agenda-ng--format-element 1180 4.5712275970 0.0038739216
|
||
org-get-todo-state 37080 4.1661659069 0.0001123561
|
||
org-agenda-ng--date-p 21595 4.1442710769 0.0001919088
|
||
org-entry-get 22730 2.8275069239 0.0001243953
|
||
org-entry-properties 21595 2.6558403739 0.0001229840
|
||
outline-next-heading 34625 2.0894695999 6.034...e-05
|
||
org-element-headline-parser 1180 1.9110445780 0.0016195293
|
||
re-search-forward 42280 1.6994989150 4.019...e-05
|
||
org-agenda-ng--add-faces 1180 1.6172592580 0.0013705586
|
||
org-agenda-ng--add-scheduled-face 1180 1.607386145 0.0013621916
|
||
org-get-tags-at 1180 1.1521010509 0.0009763568
|
||
org-back-to-heading 64530 1.1005834200 1.705...e-05
|
||
org-up-heading-safe 2360 1.0182265390 0.0004314519
|
||
outline-back-to-heading 64530 1.0086056729 1.563...e-05
|
||
org-parse-time-string 7560 0.8314918499 0.0001099856
|
||
org-time-string-to-absolute 3780 0.8277485280 0.0002189810
|
||
#+end_example
|
||
|
||
|
||
*** With flet
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 5 (org-agenda-ng--agenda
|
||
:files org-agenda-files
|
||
:pred (lambda ()
|
||
(and (todo)
|
||
(or (date :deadline '<= (org-today))
|
||
(date :scheduled '<= (org-today)))
|
||
(not (apply #'todo org-done-keywords-for-agenda))))))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
#+begin_example
|
||
mapcar 711 25.608392569 0.0360174297
|
||
org-agenda-ng--agenda 5 24.019318793 4.8038637586
|
||
org-agenda-ng--filter-buffer 40 14.160293256 0.3540073313
|
||
org-agenda-ng--date-p 21595 4.2111783960 0.0001950071
|
||
org-agenda-finalize-entries 5 4.0930243110 0.8186048622
|
||
org-super-agenda--filter-finalize-entries 5 3.937522006 0.7875044012
|
||
org-agenda-ng--todo-p 37080 3.5687476730 9.624...e-05
|
||
org-get-todo-state 37080 3.4737076600 9.368...e-05
|
||
outline-next-heading 34625 3.4689080650 0.0001001850
|
||
re-search-forward 42280 3.0743315830 7.271...e-05
|
||
org-agenda-ng--format-element 1180 2.9511605820 0.0025009835
|
||
org-element-headline-parser 1180 2.6757063699 0.0022675477
|
||
org-super-agenda--group-items 5 2.187362092 0.4374724183
|
||
org-super-agenda--group-dispatch 70 2.184685662 0.0312097951
|
||
org-entry-get 22730 2.0711872869 9.112...e-05
|
||
org-entry-properties 21595 1.8958912070 8.779...e-05
|
||
org-super-agenda--group-tag 25 1.8498977799 0.0739959111
|
||
org-element-timestamp-parser 3785 1.8234333229 0.0004817525
|
||
org-parse-time-string 7560 1.7121709579 0.0002264776
|
||
org-element--get-time-properties 1180 1.1814058020 0.0010011913
|
||
#+end_example
|
||
|
||
** Profiling flet on a single file
|
||
|
||
This shows that the difference between them, if any, is so small as to be irrelevant. The convenience and clarity are a big win.
|
||
|
||
*** Without flet
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 5 (org-agenda-ng--agenda
|
||
:files "~/org/main.org"
|
||
:pred (lambda ()
|
||
(and (org-agenda-ng--todo-p)
|
||
(or (org-agenda-ng--date-p :deadline '<= (org-today))
|
||
(org-agenda-ng--date-p :scheduled '<= (org-today)))
|
||
(not (apply #'org-agenda-ng--todo-p org-done-keywords-for-agenda))))))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
#+begin_example
|
||
mapcar 526 3.7766218089 0.0071798893
|
||
org-agenda-ng--agenda 5 2.75718831 0.551437662
|
||
org-agenda-ng--filter-buffer 5 1.402551392 0.2805102784
|
||
org-agenda-ng--format-element 265 0.8864161399 0.0033449665
|
||
org-get-tags-at 265 0.7896260759 0.0029797210
|
||
org-up-heading-safe 1150 0.7589292910 0.0006599385
|
||
re-search-backward 3700 0.5956338739 0.0001609821
|
||
org-agenda-ng--todo-p 6690 0.5781650060 8.642...e-05
|
||
org-get-todo-state 6690 0.5603983020 8.376...e-05
|
||
org-agenda-ng--date-p 5940 0.5209897369 8.770...e-05
|
||
org-entry-get 6195 0.4158440950 6.712...e-05
|
||
org-entry-properties 5940 0.3640524090 6.128...e-05
|
||
org-element-headline-parser 265 0.2810144710 0.0010604319
|
||
outline-next-heading 6195 0.2485497380 4.012...e-05
|
||
org-back-to-heading 14565 0.1957209180 1.343...e-05
|
||
re-search-forward 7850 0.1927130979 2.454...e-05
|
||
outline-back-to-heading 14565 0.1751091780 1.202...e-05
|
||
org-outline-level 2300 0.1680958539 7.308...e-05
|
||
org-agenda-finalize-entries 5 0.1610422239 0.0322084448
|
||
org-super-agenda--filter-finalize-entries 5 0.132423043 0.0264846085
|
||
#+end_example
|
||
|
||
|
||
*** With flet
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 5 (org-agenda-ng--agenda
|
||
:files "~/org/main.org"
|
||
:pred (lambda ()
|
||
(and (todo)
|
||
(or (date :deadline '<= (org-today))
|
||
(date :scheduled '<= (org-today)))
|
||
(not (apply #'todo org-done-keywords-for-agenda))))))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
#+begin_example
|
||
mapcar 526 3.7898506779 0.0072050393
|
||
org-agenda-ng--agenda 5 2.7695176850 0.5539035370
|
||
org-agenda-ng--filter-buffer 5 1.414347774 0.2828695548
|
||
org-agenda-ng--format-element 265 0.8871611419 0.0033477778
|
||
org-get-tags-at 265 0.7891641319 0.0029779778
|
||
org-up-heading-safe 1150 0.7581951110 0.0006593000
|
||
re-search-backward 3700 0.5948686769 0.0001607753
|
||
org-agenda-ng--todo-p 6690 0.5840980579 8.730...e-05
|
||
org-get-todo-state 6690 0.5666448919 8.470...e-05
|
||
org-agenda-ng--date-p 5940 0.5196037069 8.747...e-05
|
||
org-entry-get 6195 0.4144106150 6.689...e-05
|
||
org-entry-properties 5940 0.3640680380 6.129...e-05
|
||
org-element-headline-parser 265 0.2810144920 0.0010604320
|
||
outline-next-heading 6195 0.2495287770 4.027...e-05
|
||
org-back-to-heading 14565 0.1959557380 1.345...e-05
|
||
re-search-forward 7850 0.1933439489 2.462...e-05
|
||
outline-back-to-heading 14565 0.1753121230 1.203...e-05
|
||
org-outline-level 2300 0.1676228200 7.287...e-05
|
||
org-agenda-finalize-entries 5 0.1607656930 0.0321531386
|
||
org-super-agenda--filter-finalize-entries 5 0.1316961509 0.0263392301
|
||
#+end_example
|
||
|
||
** Profiling tags matching
|
||
|
||
*** ng
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 1 nil
|
||
(org-agenda-ng "~/org/main.org"
|
||
(tags "computer")))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
| Function | Times called | Total time | Average time |
|
||
|--------------------------------+--------------+--------------+--------------|
|
||
| mapcar | 4217 | 12.612716455 | 0.0029909216 |
|
||
| org-agenda-ng--agenda | 1 | 9.721410651 | 9.721410651 |
|
||
| org-get-tags-at | 1845 | 7.4793860389 | 0.0040538677 |
|
||
| org-up-heading-safe | 9361 | 6.4622674019 | 0.0006903394 |
|
||
| re-search-backward | 25001 | 5.3399866239 | 0.0002135909 |
|
||
| org-agenda-ng--filter-buffer | 1 | 4.874598854 | 4.874598854 |
|
||
| org-agenda-ng--tags-p | 1238 | 4.8067623430 | 0.0038826836 |
|
||
| org-agenda-ng--format-element | 607 | 3.6325626609 | 0.0059844524 |
|
||
| org-outline-level | 17484 | 1.0298924459 | 5.890...e-05 |
|
||
| org-add-props | 2074 | 0.8305549259 | 0.0004004604 |
|
||
| org-element-headline-parser | 607 | 0.2092664829 | 0.0003447553 |
|
||
| org-back-to-heading | 11813 | 0.1252112960 | 1.059...e-05 |
|
||
| outline-back-to-heading | 11813 | 0.1100693780 | 9.317...e-06 |
|
||
| org-end-of-subtree | 607 | 0.0721986340 | 0.0001189433 |
|
||
| outline-on-heading-p | 11813 | 0.0675261030 | 5.716...e-06 |
|
||
| outline-next-heading | 1239 | 0.0627980999 | 5.068...e-05 |
|
||
| re-search-forward | 3273 | 0.0612446620 | 1.871...e-05 |
|
||
| org-agenda-finalize-entries | 1 | 0.041846274 | 0.041846274 |
|
||
| buffer-substring-no-properties | 6329 | 0.0308716979 | 4.877...e-06 |
|
||
| line-end-position | 903 | 0.0280484950 | 3.106...e-05 |
|
||
|
||
*** ng without inheritance
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 1 nil
|
||
(org-agenda-ng "~/org/main.org"
|
||
(tags "computer")))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
| Function | Times called | Total time | Average time |
|
||
|--------------------------------+--------------+--------------+--------------|
|
||
| mapcar | 4217 | 12.580246839 | 0.0029832219 |
|
||
| org-agenda-ng--agenda | 1 | 8.777776059 | 8.777776059 |
|
||
| org-get-tags-at | 1845 | 8.2853503299 | 0.0044907047 |
|
||
| org-up-heading-safe | 9361 | 7.2710981889 | 0.0007767437 |
|
||
| re-search-backward | 25001 | 5.3360082060 | 0.0002134317 |
|
||
| org-agenda-ng--filter-buffer | 1 | 4.865602689 | 4.865602689 |
|
||
| org-agenda-ng--tags-p | 1238 | 4.7983754310 | 0.0038759090 |
|
||
| org-agenda-ng--format-element | 607 | 3.6273825100 | 0.0059759184 |
|
||
| org-outline-level | 17484 | 1.0284417919 | 5.882...e-05 |
|
||
| org-back-to-heading | 11813 | 0.9390534479 | 7.949...e-05 |
|
||
| org-split-string | 4940 | 0.833825087 | 0.0001687905 |
|
||
| string-match | 9102 | 0.8231629100 | 9.043...e-05 |
|
||
| org-element-headline-parser | 607 | 0.2034305819 | 0.0003351409 |
|
||
| outline-back-to-heading | 11813 | 0.1096120189 | 9.278...e-06 |
|
||
| org-end-of-subtree | 607 | 0.0710802559 | 0.0001171009 |
|
||
| outline-on-heading-p | 11813 | 0.0670029359 | 5.671...e-06 |
|
||
| outline-next-heading | 1239 | 0.0622323519 | 5.022...e-05 |
|
||
| re-search-forward | 3273 | 0.0603102519 | 1.842...e-05 |
|
||
| org-agenda-finalize-entries | 1 | 0.037286496 | 0.037286496 |
|
||
| buffer-substring-no-properties | 6329 | 0.0285818689 | 4.516...e-06 |
|
||
|
||
|
||
*** original
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 1 nil
|
||
(with-current-buffer "main.org"
|
||
(org-tags-view nil "computer")))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
| Function | Times called | Total time | Average time |
|
||
|-----------------------------+--------------+--------------+--------------|
|
||
| org-tags-view | 1 | 2.620578129 | 2.620578129 |
|
||
| org-scan-tags | 1 | 1.448883817 | 1.448883817 |
|
||
| org-agenda-format-item | 607 | 0.9273893060 | 0.0015278242 |
|
||
| org-add-props | 2042 | 0.8877267209 | 0.0004347339 |
|
||
| org-agenda-finalize | 1 | 0.144506782 | 0.144506782 |
|
||
| re-search-forward | 2154 | 0.1367046650 | 6.346...e-05 |
|
||
| string-match | 8742 | 0.1002517259 | 1.146...e-05 |
|
||
| org-get-priority | 607 | 0.0961996220 | 0.0001584837 |
|
||
| org-agenda-align-tags | 1 | 0.095166495 | 0.095166495 |
|
||
| org-agenda-prepare | 1 | 0.081724472 | 0.081724472 |
|
||
| org-outline-level | 1246 | 0.0771033170 | 6.188...e-05 |
|
||
| org-agenda-finalize-entries | 1 | 0.071707404 | 0.071707404 |
|
||
| org-agenda-prepare-buffers | 1 | 0.057903921 | 0.057903921 |
|
||
| org-get-heading | 607 | 0.0517784369 | 8.530...e-05 |
|
||
| mapcar | 3738 | 0.0418641110 | 1.119...e-05 |
|
||
| org-agenda-highlight-todo | 607 | 0.0273123070 | 4.499...e-05 |
|
||
| mapconcat | 609 | 0.024743305 | 4.062...e-05 |
|
||
| sort | 2 | 0.02117069 | 0.010585345 |
|
||
| org-activate-plain-links | 132 | 0.0203558980 | 0.0001542113 |
|
||
| org-activate-bracket-links | 78 | 0.0198589680 | 0.0002546021 |
|
||
|
||
** More profiling
|
||
|
||
[2018-05-10 Thu 15:02] I think these are decent improvements.
|
||
|
||
#+BEGIN_SRC elisp
|
||
(elp-profile 1 nil (org-agenda-ng "~/org/main.org"
|
||
(or (habit)
|
||
(and (or (date '= (org-today))
|
||
(deadline '<=)
|
||
(scheduled '<= (org-today)))
|
||
(not (apply #'todo org-done-keywords-for-agenda)))
|
||
(and (todo "DONE" "CANCELLED")
|
||
(closed '= (org-today))))))
|
||
#+END_SRC
|
||
|
||
#+RESULTS:
|
||
| Function | Times called | Total time | Average time |
|
||
|-------------------------------+--------------+--------------+--------------|
|
||
| mapcar | 164 | 1.5004585290 | 0.0091491373 |
|
||
| org-agenda-ng--agenda | 1 | 1.348231247 | 1.348231247 |
|
||
| org-agenda-ng--filter-buffer | 1 | 1.1391189879 | 1.1391189879 |
|
||
| org-agenda-ng--date-plain-p | 1267 | 0.6198571040 | 0.0004892321 |
|
||
| org-entry-get | 3983 | 0.2979337370 | 7.480...e-05 |
|
||
| org-is-habit-p | 1365 | 0.2049101109 | 0.0001501172 |
|
||
| org--property-local-values | 1365 | 0.1940614150 | 0.0001421695 |
|
||
| org-agenda-ng--habit-p | 1272 | 0.1911009179 | 0.0001502365 |
|
||
| org-agenda-ng--format-element | 52 | 0.177965411 | 0.0034224117 |
|
||
| org-get-property-block | 1365 | 0.1760004519 | 0.0001289380 |
|
||
| org-get-tags-at | 52 | 0.1362824969 | 0.0026208172 |
|
||
| org-agenda-ng--date-p | 3880 | 0.1351176629 | 3.482...e-05 |
|
||
| org-up-heading-safe | 226 | 0.1276747609 | 0.0005649325 |
|
||
| re-search-backward | 2028 | 0.1144211070 | 5.642...e-05 |
|
||
| org-entry-properties | 2618 | 0.0848660999 | 3.241...e-05 |
|
||
| org-agenda-ng--todo-p | 1319 | 0.081952653 | 6.213...e-05 |
|
||
| org-get-todo-state | 1319 | 0.0796836810 | 6.041...e-05 |
|
||
| re-search-forward | 3754 | 0.0739803739 | 1.970...e-05 |
|
||
| org-inlinetask-in-task-p | 1365 | 0.0657829330 | 4.819...e-05 |
|
||
| org-agenda-ng--scheduled-p | 1247 | 0.0619497850 | 4.967...e-05 |
|