emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] Bug: org-timer-current-timer missing in latest version? [8.2.5c (8.2


From: David Rose
Subject: [O] Bug: org-timer-current-timer missing in latest version? [8.2.5c (8.2.5c-dist @ /Users/david.rose/.emacs.d/addons/org/lisp/)]
Date: Thu, 10 Mar 2016 00:22:06 +0100

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

In my current configuration I make use of org-timer for pomodoro
method.  This includes the following if statement in my .emacs file:

(add-hook 'org-clock-in-hook '(lambda()
                                (if (not org-timer-current-timer)
                                    (org-timer-set-timer '(16)))))

This works fine on version 8.2.5c and earlier, but on 8.3.4 the variable
does not seem to be present. When trying to clock in to a todo item I
receive the following error:

Symbol's value as variable is void: org-timer-current-timer

When using M-x set-variable I am not able to set the variable as it
seemingly is not present.

Does org-timer not load from org-modules anymore or is there a better
way to do this?  Below is the entire code snippet for what I am doing.


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;  Pomodoro Settings
(add-to-list 'org-modules 'org-timer t)
(setq org-timer-default-timer 25)
(add-hook 'org-clock-in-hook '(lambda()
                                (if (not org-timer-current-timer)
                                    (org-timer-set-timer '(16)))))
(add-hook 'org-clock-out-hook '(lambda()
                                 (setq org-mode-line-string nil)))
(add-hook 'org-timer-done-hook '(lambda()
                                  (start-process "org-mode" nil 
"/usr/local/bin/growlnotify -a Emacs.app -m 'Org-Mode (Pomodoro): Times up!")))



Thanks in advance!


//David

Emacs  : GNU Emacs 24.5.1 (x86_64-apple-darwin13.4.0, NS apple-appkit-1265.21)
 of 2015-04-10 on builder10-9.porkrind.org
Package: Org-mode version 8.2.5c (8.2.5c-dist @ 
/Users/david.rose/.emacs.d/addons/org/lisp/)

current state:
==============
(setq
 org-tab-first-hook '(org-hide-block-toggle-maybe 
org-src-native-tab-command-maybe org-babel-hide-result-toggle-maybe
                      org-babel-header-arg-expand)
 org-latex-classes '(("beamer" "\\documentclass[presentation]{beamer}" 
("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}") 
("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("article" "\\documentclass[11pt]{article}" 
("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}") 
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
                      ("\\paragraph{%s}" . "\\paragraph*{%s}") 
("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("report" "\\documentclass[11pt]{report}" ("\\part{%s}" . 
"\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" 
. "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("book" "\\documentclass[11pt]{book}" ("\\part{%s}" . 
"\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" 
. "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("none" "[NO-DEFAULT-PACKAGES][NO-PACKAGES]" ("" . "") 
("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}") 
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
                      ("\\paragraph{%s}" . "\\paragraph*{%s}") 
("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     )
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-html-format-drawer-function '(lambda (name contents) contents)
 org-clock-into-drawer "LOGBOOK"
 org-log-done 'note
 org-latex-format-inlinetask-function 'ignore
 org-confirm-shell-link-function 'yes-or-no-p
 org-finalize-agenda-hook '(my-org-agenda-to-appt)
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-latex-pdf-process '("pdflatex --shell-escape -interaction nonstopmode 
-output-directory %o %f"
                         "pdflatex --shell-escape -interaction nonstopmode 
-output-directory %o %f"
                         "pdflatex --shell-escape -interaction nonstopmode 
-output-directory %o %f")
 org-agenda-skip-scheduled-if-done t
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-todo-keyword-faces '(("Blocked" . "dark red") ("Done" . "dark green") 
("Planning" . "purple") ("Waiting" . "blue")
                          ("Executing" . "yellow") ("Backlog" . org-warning))
 org-agenda-include-diary t
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-latex-format-drawer-function '(lambda (name contents) contents)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-mode-hook '((lambda nil (quote turn-on-font-lock) (setq word-wrap 1) (setq 
truncate-lines nil) (flyspell-mode 1)) org-clock-load
                 (lambda nil (org-add-hook (quote change-major-mode-hook) 
(quote org-show-block-all) (quote append) (quote local)))
                 (lambda nil
                  (org-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 (lambda 
nil (abbrev-mode 1)))
 org-ascii-format-drawer-function '(lambda (name contents width) contents)
 org-clock-persist 'history
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 org-timer-done-hook '((lambda nil
                        (start-process "org-mode" nil 
"/usr/local/bin/growlnotify -a Emacs.app -m 'Org-Mode (Pomodoro): Times up!"))
                       )
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
org-cycle-hide-inline-tasks org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-agenda-finalize-hook '(my-org-agenda-to-appt)
 org-enforce-todo-checkbox-dependencies t
 org-todo-keywords '((sequence "OPEN(o@)" "PLANNING(p@)" "WAITING(w@)" 
"EXECUTION(e@)" "BLOCKED(B@)" "IN-PROGRESS(I@)" "|" "DONE(d/!)"
                      "RESOLVED(r@)")
                     )
 org-modules '(org-w3m org-bbdb org-bibtex org-docview org-gnus org-info 
org-irc org-mhe org-rmail org-timer)
 org-timer-default-timer 25
 org-babel-tangle-lang-exts '(("perl" . "pl") ("ruby" . "rb") ("python" . "py") 
("emacs-lisp" . "el"))
 org-confirm-elisp-link-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-log-into-drawer 'logbook
 org-latex-listings 'minted
 org-blocker-hook '(org-block-todo-from-checkboxes)
 org-html-format-headline-function 'ignore
 org-babel-load-languages '((sh . t) (python . t) (R . t) (ruby . t) (ditaa . 
t) (dot . t) (octave . t) (sqlite . t) (perl . t))
 org-clock-in-hook '((lambda nil (if (not org-timer-current-timer) 
(org-timer-set-timer (quote (16))))))
 org-html-format-inlinetask-function 'ignore
 org-agenda-files '("~/Documents/Tasks.org")
 org-clock-out-hook '((lambda nil (setq org-mode-line-string nil)) 
org-clock-remove-empty-clock-drawer)
 org-confirm-babel-evaluate 'my-org-confirm-babel-evaluate
 )




reply via email to

[Prev in Thread] Current Thread [Next in Thread]