On 11/8/16, cesar mena <[email protected]> wrote:
> i just tried this on maint, and it does show up in the time grid as
> well.
are you running it with today only in the agenda? i.e. not weekly.
i am still getting the bug in org maint, with debian jessie emacs 24.4.1.
here is the mce.
i did:
put this in $dorg/computer--a.org (loaded in my testcase)
*********** NEXT xyzzy test (make this be a date that is before today;
it should show up in agenda time grid)
SCHEDULED: <2016-11-07 Mon 17:00>
cd to $delorgsrc
put head on maint
confirm status is clean
make cleanall
make oldorg
run my testcase (attached)
-Q
shows today only in agenda
result:
what it shows is the task with 3x (i.e. scheduled section, not time grid)
this is the bug
interestingly, if i run org-agenda a, which shows a whole week
then the same, single task shows in TWO places
time grid
scheduled section
--
The Kafka Pandemic: http://thekafkapandemic.blogspot.com
The disease DOES progress. MANY people have died from it. And
ANYBODY can get it.
Denmark: free Karina Hansen NOW.
UPDATE 2016-10: home, but not fully free
;;;
;;; alpha-org-testcase.el
;;;
;;; minimal testcase for org
;;;
;;; to run as you, do this:
;;;
;;; dorg=your-org-data-dir \
;;; delorgsrc=your-org-src-dir \
;;; emacs -Q -l alpha-org-testcase.el
;;;
;;; for my use i do something like this for accessibility:
;;;
"
account eot
which is basically:
mep=t eq -l $del/tests-and-publish/alpha-org-testcase.el $dorg/tests--org--xyzzy-big/export-and-id.org
mep=t emacs -Q --geometry 60x30+0+0 -l $del/tests-and-publish/alpha-org-testcase.el $dorg/tests--org--xyzzy-big/export-and-id.org
"
;;;
;;; nyi
;;; delorgcontrib=your-org-src-contrib-dir \
(require 'cl)
;;my org files use these
(setq org-odd-levels-only t)
;; (setf org-export-initial-scope 'subtree)
;;fix abominations
(blink-cursor-mode 0)
(setf visible-bell 'top-bottom)
;;basics
(defun alpha-add-path (p) (setq load-path (cons p load-path)))
(alpha-add-path (concat (getenv "delorgsrc") "/lisp"))
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(require 'org-install)
;;;
;;;stuff make things easier
;;;
(ido-mode t)
(setf org-outline-path-complete-in-steps nil)
;;;
;;;accessibility fixes
;;;
(defun p ()
(interactive)
(message "fixing pop-up-windows")
;;i have /pop-up-windows/ set to nil, which works for most of
;;emacs. for org, i do the following. i need all of this just
;;as i need the large font above for accessibility reasons.
;;
;;(setf (cdr (assoc* 'file org-link-frame-setup)) 'find-file)
(pushnew '(file . find-file) org-link-frame-setup :test #'equal)
;;it might be nice to have a 'dedicated-buffer option
(setf org-indirect-buffer-display 'current-window)
;;could make pop kill the buffer
;;;(setf org-display-internal-link-with-indirect-buffer t)
(setf org-src-window-setup 'current-window)
(add-hook 'org-capture-mode-hook 'delete-other-windows)
(defadvice org-agenda-set-tags (around fix-windows activate compile)
"Restore windows."
(save-window-excursion
ad-do-it))
(defadvice org-export (after fix-windows activate compile)
"Delete other windows after every export."
(delete-other-windows))
(setf pop-up-windows nil)
;;for emacs i do this
(add-to-list 'same-window-regexps "\\*Customize.*") ;notwork?
(setf Man-notify-method 'pushy)
(add-to-list 'same-window-regexps "\\*Man .*") ;notwork
(add-to-list 'same-window-regexps "\\*.*\\*")
(add-to-list 'same-window-buffer-names "*Remember*")
(add-to-list 'same-window-buffer-names "*Help*")
(add-to-list 'same-window-buffer-names "*Apropos*")
(add-to-list 'same-window-buffer-names "*Summary*")
(add-to-list 'same-window-buffer-names "*Compile-Log*")
(add-to-list 'same-window-buffer-names "*Ibuffer*")
(add-to-list 'same-window-buffer-names " *Ibuffer*")
(message "done fixing pop-up-windows"))
(when (getenv "mep")
;;it is i
(defconst alpha-alpha-p t)
(require 'org)
(p)
;;necessary for large fonts
(scroll-bar-mode -1))
;;;
;;;basic org features likely to affect many bug reports
;;;
(setq org-todo-keywords
'((type "NAKA(i)" "TODO(T)" "MAYBE(y)" "DOUBTFUL(l)"
"|"
"MOOT(m)")))
(setq org-agenda-files
(mapcar #'file-truename
;;this is like a file-expand-regexp
(directory-files (getenv "dorg")
;;full pathname
t
;;cloned indirect buffers create dot
;;files
"^[^.#]+--a\\.org$")))
(setq org-agenda-window-setup 'current-window)
;;;
;;; do the actual thing being tested
;;;
(org-agenda-list nil nil 1)
;; (search-forward "xyzzy test")
(occur "xyzzy test")
