emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Samuel Wales <samologist@gmail.com>
To: Samuel Wales <samologist@gmail.com>,
	cmena@pobox.com, emacs-orgmode <emacs-orgmode@gnu.org>
Subject: Re: [bug] timed repeater shows up in wrong place
Date: Fri, 11 Nov 2016 12:12:46 -0700	[thread overview]
Message-ID: <CAJcAo8svS2yECp+fpRhnGQjJJsR1F2nUY_4266pQqHKEytrPoA@mail.gmail.com> (raw)
In-Reply-To: <878tsqfhoo.fsf@nicolasgoaziou.fr>

[-- Attachment #1: Type: text/plain, Size: 1022 bytes --]

ok, i have a new -Q minimal testcase, which is attached.  it explains
how to run it at the top.

the relevant part is at the bottom, so you could just copy that if you
prefer to try your own setup instead.  it's 3 lines.

the task is this:

*********** NEXT xyzzy test
SCHEDULED: <2016-11-07 Mon 17:00 .+1d>
make this be a date that is before real-time today
it should show up in agenda time grid
but it does not

note that this time, (setq org-agenda-repeating-timestamp-show-all nil).

run the testcase twice
  once with delorgsrc=vanilla-org-9-dir
  once with vanilla org "8.2.10"
    this is the standard org version in my emacs version

you will get time grid for the task in org 8 but not in org 9.

i hope this will be totally reproducible no matter what your recent
emacs version.

thanks.

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

[-- Attachment #2: alpha-org-testcase.el --]
[-- Type: text/x-emacs-lisp, Size: 4824 bytes --]

;;;
;;; alpha-org-testcase.el
;;;
;;; minimal testcase for org
;;;
;;; to run, do this:
;;;
;;;   dorg=your-org-data-dir delorgsrc=your-org-src-dir emacs -Q -l alpha-org-testcase.el
;;;
;;; to run with standard emacs org-mode
;;; 
;;;   do the same, but delorgsrc=xyzzy-nil
;;;     which is a nonexistent dir
;;;
;;; any agenda files must look like "file--a.org"

;;; for my use i do something like this for accessibility:
;;;   account eot
;;;   or:
;;;   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 my-settings ()
  (interactive)

  (face-spec-set 'default
                 '((t (
                       :height 131
                       :width normal
                       :foreground "black"
                       :background "#be5000"
                       :foundry "unknown"
                       :family "DejaVu Sans Mono"
                       :inherit nil
                       :inverse-video nil
                       ;; :inverse-video t
                       :weight normal
                       :slant normal
                       :box nil
                       :stipple nil
                       :underline nil
                       :overline nil
                       :strike-through nil
                       ))))
  
  ;; 
  ;; pop-up-windows type stuff
  ;; 
  
  (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)
  (my-settings)
  ;;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
;;;

;; *********** NEXT xyzzy test
;; SCHEDULED: <2016-11-07 Mon 17:00 .+1d>
;; make this be a date that is before real-time today
;; it should show up in agenda time grid
;; but it does not

(setq org-agenda-repeating-timestamp-show-all nil)
(org-agenda-list nil nil 1)
;; (search-forward "xyzzy test")
(occur "xyzzy test")

  reply	other threads:[~2016-11-11 19:12 UTC|newest]

Thread overview: 41+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2016-11-07 22:44 [bug] timed repeater shows up in wrong place Samuel Wales
2016-11-08 22:41 ` Nicolas Goaziou
2016-11-08 23:13   ` Samuel Wales
2016-11-08 23:33     ` Nicolas Goaziou
2016-11-09  0:43       ` Samuel Wales
     [not found]       ` <87inrxo5yt.fsf@cmena.pobox.com>
2016-11-09 18:44         ` Samuel Wales
     [not found]           ` <87a8d8o0rv.fsf@cmena.pobox.com>
2016-11-09 21:52             ` Samuel Wales
     [not found]               ` <877f8cnsea.fsf@cmena.pobox.com>
2016-11-09 23:35                 ` Samuel Wales
     [not found]                   ` <87k2cbpito.fsf@cmena.pobox.com>
2016-11-10 18:15                     ` Samuel Wales
2016-11-10 19:48                       ` cesar mena
2016-11-11 10:13               ` Nicolas Goaziou
2016-11-11 19:12                 ` Samuel Wales [this message]
2016-11-13 17:21                   ` Nicolas Goaziou
2016-11-13 19:38                     ` Samuel Wales
2016-11-13 23:32                       ` Nicolas Goaziou
2016-11-16 19:26                         ` Samuel Wales
2016-11-25  0:57                           ` Nicolas Goaziou
2016-11-25  1:07                             ` Samuel Wales
2016-11-25  7:40                               ` Nicolas Goaziou
2016-11-25 22:09                                 ` Samuel Wales
2016-11-26 10:38                                   ` Nicolas Goaziou
2016-11-27  2:19                                     ` Samuel Wales
2016-11-27 11:15                                       ` Nicolas Goaziou
2016-11-27 18:59                                         ` Samuel Wales
2016-11-28  0:39                                           ` Nicolas Goaziou
2016-11-28  3:22                                             ` Samuel Wales
2016-11-28  7:34                                               ` Nicolas Goaziou
2016-11-28 22:20                                                 ` Samuel Wales
2016-11-28 22:44                                                   ` Samuel Wales
2016-12-02 21:44                                                   ` cesar mena
2016-12-02 22:26                                                     ` Nicolas Goaziou
2016-12-02 23:08                                                       ` cesar mena
2016-12-02 23:55                                                         ` Samuel Wales
2016-12-03 22:47                                                   ` Nicolas Goaziou
2016-12-04  0:31                                                     ` cesar mena
2016-12-04  8:56                                                       ` Nicolas Goaziou
2016-12-04 12:46                                                         ` cesar mena
2016-12-04 21:27                                                     ` Samuel Wales
2016-12-06 11:46                                                       ` Nicolas Goaziou
  -- strict thread matches above, loose matches on Subject: below --
2016-11-28 13:28 cesar mena
2016-11-28 22:32 ` Samuel Wales

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=CAJcAo8svS2yECp+fpRhnGQjJJsR1F2nUY_4266pQqHKEytrPoA@mail.gmail.com \
    --to=samologist@gmail.com \
    --cc=cmena@pobox.com \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
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).