[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] comment trees in 8.3
From: |
Samuel Wales |
Subject: |
Re: [O] comment trees in 8.3 |
Date: |
Sun, 9 Aug 2015 17:02:14 -0700 |
oops, the previous test case file was wrong, but the code for -Q
reproduction was correct. here is a correct test case file:
* x
*** y
***** TODO yes
DEADLINE: <2015-08-05 Wed>
***** TODO COMMENT no
DEADLINE: <2015-08-05 Wed>
***** asasasas
DEADLINE: <2015-08-05 Wed>
******* asdfasdfasdf
******* fdasdfasdfasdfasdf
******* asdfasdfasdfasdfasdfasdf
On 8/9/15, Samuel Wales <address@hidden> wrote:
> can anybody else reproduce?
>
> * x
> *** TODO yes
> DEADLINE: <2015-08-05 Wed>
> **** TODO COMMENT no
> DEADLINE: <2015-08-05 Wed>
>
> On 8/5/15, Samuel Wales <address@hidden> wrote:
>> 24.4.1
>>
>> can repro with -Q and this old testcase code and restriction lock and
>> org-agenda-list.
>>
>> ===
>>
>> ;;;
>> ;;;alpha-org-testcase.el
>> ;;;
>> ;;;minimal testcase for org
>> ;;;
>> ;;; dorg=your-org-dir delorgsrc=your-org-src-dir emacs -Q -l
>> alpha-org-testcase.el
>> ;;;
>>
>> ;;;
>> ;;;for my use i do this:
>> ;;;
>> "
>> mep=t emacs -Q -l $del/tests-and-publish/alpha-org-testcase.el \
>> --geometry +0+0 \
>> --geometry 60x30 \
>> $dorg/tests--org--xyzzy-big/comment.org
>> "
>> ;;;
>>
>> (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)
>>
>> (setq org-agenda-files (list (substitute-in-file-name
>> "$dorg/todo-new--a.org")))
>>
>> ;;;
>> ;;;stuff make things easier
>> ;;;
>>
>> (setq org-completion-use-ido t)
>> (setf org-outline-path-complete-in-steps nil)
>>
>> ;;;
>> ;;;compatibility fixes
>> ;;;
>>
>> ;; ;;fix compatibility bug in org [2011-05-25 Wed 08:59]
>> ;; (when (= emacs-major-version 22)
>> ;; (defun activate-mark ()
>> ;; "Activate the mark."
>> ;; (when (mark t)
>> ;; (setq mark-active t)
>> ;; (unless transient-mark-mode
>> ;; (setq transient-mark-mode 'lambda))
>> ;; (when (and select-active-regions
>> ;; (display-selections-p))
>> ;; (x-set-selection 'PRIMARY (current-buffer))))))
>>
>> ;; ;;[2011-05-25 Wed 09:23] fix compatibility bug in Org.
>> ;; ;;this is redefinition. it is for 22 for export.
>> ;; (defcustom select-active-regions nil
>> ;; "If non-nil, an active region automatically becomes the window
>> selection."
>> ;; :type 'boolean
>> ;; :group 'killing
>> ;; :version "23.1")
>>
>> ;;;
>> ;;;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-window-setup 'current-window)
>>
>
>
> --
> The Kafka Pandemic: http://thekafkapandemic.blogspot.com
>
> Ramsay's disease DOES progress. MANY people have died from it. And
> ANYBODY can get it.
>
> Denmark: free Karina Hansen NOW.
>
--
The Kafka Pandemic: http://thekafkapandemic.blogspot.com
Ramsay's disease DOES progress. MANY people have died from it. And
ANYBODY can get it.
Denmark: free Karina Hansen NOW.
- Re: [O] comment trees in 8.3, (continued)
- Re: [O] comment trees in 8.3, Samuel Wales, 2015/08/06
- Re: [O] comment trees in 8.3, Nicolas Goaziou, 2015/08/06
- Re: [O] comment trees in 8.3, Samuel Wales, 2015/08/06
- Re: [O] comment trees in 8.3, Samuel Wales, 2015/08/07
- Re: [O] comment trees in 8.3, Nicolas Goaziou, 2015/08/07
- Re: [O] comment trees in 8.3, Samuel Wales, 2015/08/07
- Re: [O] comment trees in 8.3, Samuel Wales, 2015/08/07
- Re: [O] comment trees in 8.3, Nicolas Goaziou, 2015/08/08
- Re: [O] comment trees in 8.3, Samuel Wales, 2015/08/08
- Re: [O] comment trees in 8.3, Samuel Wales, 2015/08/09
- Re: [O] comment trees in 8.3,
Samuel Wales <=
- Re: [O] comment trees in 8.3, Samuel Wales, 2015/08/09
- Re: [O] comment trees in 8.3, Nicolas Goaziou, 2015/08/10