[O] Orgmode slow on windows on startup [8.3.2 (8.3.2-10-g00dacd-elpa @ c:/Users/Michael/AppData/Roaming/.emacs.d/elpa/org-20151005/)]

[Michael Ziems]

Hello,

im using orgmode and emacs on Windows.
When starting emacs, orgmode is extremely slow.
Pushing headlines arround, opening headlines and moving columns in
org-tables is a pain.
When i archive a big section in my org file through C-c C-x a and
unarchive it afterwards, then org gets really fast again.
just to show the issue i added the archiving as a profiler report here:

when doing archive first time:

- command-execute 648  60%
 - call-interactively 648  60%
  - org-toggle-archive-tag 637  59%
   - outline-hide-subtree 634  58%
    - outline-flag-subtree 634  58%
     - outline-end-of-subtree 634  58%
        outline-next-heading 186  17%
        org-outline-level 65   6%
   + org-toggle-tag 2   0%
  + byte-code 6   0%
  + save-buffer 5   0%
+ timer-event-handler 397  36%
+ ... 33   3%

after orgmode gets fast:

- command-execute 12  38%
 - call-interactively 12  38%
  - org-toggle-archive-tag 6  19%
   - outline-hide-subtree 6  19%
    - outline-flag-subtree 6  19%
     - outline-end-of-subtree 6  19%
        outline-next-heading 4  12%
  + save-buffer 4  12%
  + byte-code 2   6%
+ timer-event-handler 12  38%
+ ... 7  22%

here an example of opening all headlines in one of my bigger org files
before and after the archiving / unarchiving:

before:

- command-execute 1467  99%
 - call-interactively 1467  99%
  - org-cycle 1452  98%
   - org-cycle-internal-local 1446  97%
    - outline-show-children 1144  77%
     - outline-end-of-subtree 725  49%
        outline-next-heading 220  14%
        org-outline-level 89   6%
     - outline-map-region 419  28%
        outline-next-heading 149  10%
      + #<compiled 0x12ae289>                                     149  10%
    + run-hook-with-args 190  12%
      org-end-of-subtree 3   0%
      org-show-entry 1   0%
   + run-hook-with-args-until-success 6   0%
  + byte-code 11   0%
  + minibuffer-complete 4   0%
+ ... 9   0%

After:

- command-execute 208  96%
 - call-interactively 208  96%
  - org-cycle 202  93%
   - org-cycle-internal-local 194  89%
    - run-hook-with-args 184  85%
     - org-cycle-hide-drawers 158  73%
      + org-element-at-point 38  17%
        org-flag-drawer 14   6%
        org-end-of-subtree 2   0%
     + org-optimize-window-after-visibility-change 5   2%
     + org-cycle-hide-archived-subtrees 4   1%
     + org-cycle-show-empty-lines 3   1%
    + outline-show-children 8   3%
      org-end-of-subtree 2   0%
   + run-hook-with-args-until-success 8   3%
  + byte-code 6   2%
+ ... 8   3%

It is at the moment easy for me to do the archiving / unarchiving once
to get orgmode fast again but i dont understand what is wrong.
Does anybody have an idea?

Every help is appreciated a lot.

Thanks,

Michael

------------------------------------------------------------------------



Emacs  : GNU Emacs 24.4.1 (i686-pc-mingw32)
 of 2014-10-24 on LEG570
Package: Org-mode version 8.3.2 (8.3.2-10-g00dacd-elpa @
c:/Users/Michael/AppData/Roaming/.emacs.d/elpa/org-20151005/)

current state:
==============
(setq
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
              org-babel-execute-safely-maybe)
 org-stuck-projects '("+2DO/+WARTEN" nil nil "+#A/+#B/+#C")
 org-agenda-sticky t
 org-agenda-window-setup 'current-window
 org-tab-first-hook '(org-hide-block-toggle-maybe
              org-babel-hide-result-toggle-maybe
              org-babel-header-arg-expand)
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-refile-targets '((org-agenda-files :maxlevel . 24))
 org-cycle-hook '(org-cycle-hide-archived-subtrees
          org-cycle-hide-drawers
          org-cycle-show-empty-lines
          org-optimize-window-after-visibility-change)
 org-agenda-custom-commands '(("x" "Nur Kalender ohne Aufgaben"
                   agenda ""
                   ((org-agenda-span 80)
                (org-deadline-warning-days 1)
                (org-agenda-include-diary t)
                (org-agenda-entry-types
                 (quote (:timestamp :sexp)))
                (org-agenda-files
                 (quote
                  ("C:\\Users\\Michael\\Documents\\org\\privat.org"
"C:\\Users\\Michael\\Documents\\org\\dienst.org"
"C:\\Users\\Michael\\Documents\\org\\work.org")
                  )
                 )
                )
("C:\\Users\\Michael\\Documents\\org\\export\\kalender.txt")
                   )
                  ("w" "Agenda Work" agenda ""
                   ((org-agenda-files
                 (quote
                  ("C:\\Users\\Michael\\Documents\\org\\work.org"
"C:\\Users\\Michael\\Documents\\org\\info-work.org")
                  )
                 )
                (org-agenda-span 1)
                (org-agenda-include-diary nil)
                (org-deadline-warning-days 4))
                   )
                  ("p" "Agenda Privat" agenda ""
                   ((org-agenda-files
                 (quote
                  ("C:\\Users\\Michael\\Documents\\org\\privat.org"
"C:\\Users\\Michael\\Documents\\org\\dienst.org"
"C:\\Users\\Michael\\Documents\\org\\info-privat.org")
                  )
                 )
                (org-agenda-span 1)
                (org-deadline-warning-days 12)
                (org-agenda-include-diary t))
("C:\\Users\\Michael\\Documents\\org\\export\\privat.txt")
                   )
                  ("k" "kombinierte Ansicht"
                   ((agenda ""
                 ((org-agenda-overriding-header
                   "Kalender")
                  (org-agenda-span 1)
                  (org-agenda-entry-types
                   (quote (:timestamp :sexp)))
                  (org-agenda-tag-filter-preset
                   (quote nil))
                  (org-agenda-include-diary t))
                 )
                (agenda ""
                 ((org-agenda-overriding-header
                   "Aufgaben Arbeit")
                  (org-agenda-entry-types
                   (quote
                    (:deadline :scheduled))
                   )
                  (org-deadline-warning-days 1)
                  (org-agenda-files
                   (quote
                    ("C:\\Users\\Michael\\Documents\\org\\work.org"
"C:\\Users\\Michael\\Documents\\org\\info-work.org")
                    )
                   )
                  (org-agenda-span 1)
                  (org-agenda-sorting-strategy
                   (quote
                    (priority-down deadline-up))
                   )
                  )
                 )
                )
                   nil)
                  ("2" "Aufgabenliste Privat"
                   alltodo ""
                   ((org-agenda-overriding-header
                 "Aufgaben")
                (org-agenda-sorting-strategy
                 (quote (scheduled-up)))
                (org-agenda-files
                 (quote
                  ("C:\\Users\\Michael\\Documents\\org\\dienst.org"
"C:\\Users\\Michael\\Documents\\org\\privat.org"
"C:\\Users\\Michael\\Documents\\org\\info-privat.org")
                  )
                 )
                (org-agenda-prefix-format
                 "[] %i %-12:c")
                (org-agenda-skip-function
                 (quote
                  (org-agenda-skip-entry-if
                   (quote notscheduled))
                  )
                 )
                )
("C:\\Users\\Michael\\Documents\\org\\export\\Aufgaben.txt")
                   )
                  ("d" "Dienst" alltodo ""
                   ((org-agenda-files
                 (quote
                  ("C:\\Users\\Michael\\Documents\\org\\dienst.org")
                  )
                 )
                (org-agenda-sorting-strategy
                 (quote
                  (todo-state-down timestamp-up)
                  )
                 )
                (org-agenda-prefix-format "%b"))
("C:\\Users\\Michael\\Documents\\org\\export\\dienst.txt")
                   )
                  ("c" "Tageskalender" agenda* ""
                   ((org-agenda-overriding-header
                 "Kalender")
                (org-agenda-span 1)
                (org-agenda-files
                 (quote
                  ("C:\\Users\\Michael\\Documents\\org\\privat.org"
"C:\\Users\\Michael\\Documents\\org\\work.org"
"C:\\Users\\Michael\\Documents\\org\\dienst.org")
                  )
                 )
                (org-agenda-entry-types
                 (quote (:timestamp :sexp)))
                )
                   )
                  ("A" "Analyse" agenda ""
                   ((org-agenda-overriding-header
                 "Analyse")
                (org-agenda-tag-filter-preset
                 (quote ("+Analyse")))
                )
                   )
                  )
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-speed-command-hook '(org-speed-command-default-hook
              org-babel-speed-command-hook)
 org-babel-pre-tangle-hook '(save-buffer)
 org-occur-hook '(org-first-headline-recenter)
 org-after-tags-change-hook '(org-expiry-insert-created)
 org-agenda-text-search-extra-files '(agenda-archives
"C:/Users/Michael/Documents/org/dienst.org_archive"
"C:/Users/Michael/Documents/org/info-privat.org_archive"
"C:/Users/Michael/Documents/org/info-work.org_archive"
"C:/Users/Michael/Documents/org/privat.org_archive"
"C:/Users/Michael/Documents/org/work.org_archive")
 org-insert-heading-hook '(org-expiry-insert-created)
 org-log-done 'time
 org-clock-out-remove-zero-time-clocks t
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-catch-invisible-edits 'error
 org-hide-leading-stars t
 org-default-notes-file "C:/Users/Michael/Documents/org/notes.org"
 org-expiry-inactive-timestamps t
 org-refile-use-outline-path 'file
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-mode-hook '(#[nil "\300\301\302\303\304$\207"
           [org-add-hook change-major-mode-hook
            org-show-block-all append local]
           5]
         #[nil "\300\301\302\303\304$\207"
           [org-add-hook change-major-mode-hook
            org-babel-show-result-all append local]
           5]
         org-babel-result-hide-spec
         org-babel-hide-all-hashes)
 org-time-clocksum-format '(:hours "%d" :require-hours t
                :minutes ":%02d" :require-minutes t)
 org-expiry-handler-function 'org-toggle-archive-tag
 org-clock-into-drawer "CLOCK"
 org-tags-exclude-from-inheritance '("@telefon" "@mail"
                     "@unterwegs" "PROJEKT")
 org-directory "C:/Users/Michael/Documents/org/"
 org-from-is-user-regexp nil
 org-remove-highlights-with-change nil
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-todo-keywords '((type "2DO(t)" "WARTEN(w)" "|"
              "ERLEDIGT(d)" "ABGEBROCHEN(c)")
             )
 org-agenda-files '("c:/Users/Michael/Documents/org/work.org"
            "c:/Users/Michael/Documents/org/dienst.org"
            "c:/Users/Michael/Documents/org/info-work.org"
"c:/Users/Michael/Documents/org/info-privat.org"
"c:/Users/Michael/Documents/org/privat.org")
 org-clock-report-include-clocking-task t
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
             org-src-mode-configure-edit-buffer)
 org-after-todo-state-change-hook '(org-clock-out-if-current
                    org-expiry-insert-created)
 org-confirm-shell-link-function 'yes-or-no-p
 )