Re: [BUG] org parser error [9.6.1 (9.6.1-g351279 @ /home/mah/.emacs.d/straight/build/org/)]

2023-02-26 Thread Mark A. Hershberger
Thanks for pointing out that I'm re-defining an internal function.

If I can reopen this issue, it would be good if the error message actually said 
that.



[BUG] org parser error [9.6.1 (9.6.1-g351279 @ /home/mah/.emacs.d/straight/build/org/)]

2023-02-25 Thread Mark A. Hershberger



Loading the following file with "emacs -Q", I'm un-able to type 'C-c
C-c' in the source block to execute it.

#+begin_src elisp
(defun count-lines (dir)
  "Number of lines in *.php files in a DIR."
  (let ((extdir (concat "../mediawiki/extensions/" dir)))
(if (not (f-directory-p extdir))
""
(let ((files (directory-files-recursively extdir "\\.php$"))
  (count 0))
  (dolist (file files)
(setq count (+ count (-reduce '+ (mapcar 'file-lines (list 
file))
  count
#+end_src

When I do the following error appears:

⛔ Warning (org-element-cache): org-element--cache: Org parser error in 
tmp.org::4740. Resetting.
 The error was: (wrong-number-of-arguments (lambda (dir) "Number of lines in 
*.php files in a DIR." (let ((extdir (concat "../mediawiki/extensions/" dir))) 
(if (not (f-directory-p extdir)) "" (let ((files (directory-files-recursively 
extdir "\\.php$")) (count 0)) (dolist (file files) (setq count (+ count 
(-reduce '+ (mapcar 'file-lines (list file)) count 2)
 Backtrace:
nil
 Please report this to Org mode mailing list (M-x org-submit-bug-report).



Emacs  : GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.36, 
cairo version 1.16.0)
 of 2023-02-23
Package: Org mode version 9.6.1 (9.6.1-g351279 @ 
/home/mah/.emacs.d/straight/build/org/)



[PATCH] Fix signature for org-element-at-point

2022-01-06 Thread Mark A. Hershberger


---
 lisp/ob-exp.el| 2 +-
 lisp/ob-lob.el| 2 +-
 lisp/ob-ref.el| 2 +-
 lisp/ob-tangle.el | 2 +-
 lisp/ol.el| 2 +-
 lisp/org-capture.el   | 2 +-
 lisp/org-footnote.el  | 2 +-
 lisp/org-keys.el  | 2 +-
 lisp/org-list.el  | 2 +-
 lisp/org-macro.el | 2 +-
 lisp/org-pcomplete.el | 2 +-
 lisp/org-src.el   | 2 +-
 lisp/org-table.el | 2 +-
 13 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el
index d41c40c8d..931adbfde 100644
--- a/lisp/ob-exp.el
+++ b/lisp/ob-exp.el
@@ -26,7 +26,7 @@
 (require 'ob-core)
 
 (declare-function org-babel-lob-get-info "ob-lob" ( datum))
-(declare-function org-element-at-point "org-element" ())
+(declare-function org-element-at-point "org-element" ( pom 
cached-only))
 (declare-function org-element-context "org-element" ( element))
 (declare-function org-element-property "org-element" (property element))
 (declare-function org-element-type "org-element" (element))
diff --git a/lisp/ob-lob.el b/lisp/ob-lob.el
index eecb5c402..5aae3f591 100644
--- a/lisp/ob-lob.el
+++ b/lisp/ob-lob.el
@@ -28,7 +28,7 @@
 (require 'ob-table)
 
 (declare-function org-babel-ref-split-args "ob-ref" (arg-string))
-(declare-function org-element-at-point "org-element" ())
+(declare-function org-element-at-point "org-element" ( pom 
cached-only))
 (declare-function org-element-context "org-element" ( element))
 (declare-function org-element-property "org-element" (property element))
 (declare-function org-element-type "org-element" (element))
diff --git a/lisp/ob-ref.el b/lisp/ob-ref.el
index 1f6e33ed7..db8ced6b6 100644
--- a/lisp/ob-ref.el
+++ b/lisp/ob-ref.el
@@ -54,7 +54,7 @@
 (require 'cl-lib)
 
 (declare-function org-babel-lob-get-info "ob-lob" ( datum))
-(declare-function org-element-at-point "org-element" ())
+(declare-function org-element-at-point "org-element" ( pom 
cached-only))
 (declare-function org-element-property "org-element" (property element))
 (declare-function org-element-type "org-element" (element))
 (declare-function org-end-of-meta-data "org" ( full))
diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index a263572e2..c4b69dfd3 100644
--- a/lisp/ob-tangle.el
+++ b/lisp/ob-tangle.el
@@ -37,7 +37,7 @@
 (declare-function org-babel-update-block-body "ob-core" (new-body))
 (declare-function org-back-to-heading "org" ( invisible-ok))
 (declare-function org-before-first-heading-p "org" ())
-(declare-function org-element-at-point "org-element" ())
+(declare-function org-element-at-point "org-element" ( pom 
cached-only))
 (declare-function org-element-type "org-element" (element))
 (declare-function org-heading-components "org" ())
 (declare-function org-in-commented-heading-p "org" ( no-inheritance))
diff --git a/lisp/ol.el b/lisp/ol.el
index 2cba33ed9..1d3631219 100644
--- a/lisp/ol.el
+++ b/lisp/ol.el
@@ -47,7 +47,7 @@
 (declare-function org-back-to-heading "org" ( invisible-ok))
 (declare-function org-before-first-heading-p "org" ())
 (declare-function org-do-occur "org" (regexp  cleanup))
-(declare-function org-element-at-point "org-element" ())
+(declare-function org-element-at-point "org-element" ( pom 
cached-only))
 (declare-function org-element-cache-refresh "org-element" (pos))
 (declare-function org-element-context "org-element" ( element))
 (declare-function org-element-lineage "org-element" (datum  types 
with-self))
diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index 945ea5298..5195b785e 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -57,7 +57,7 @@
 (declare-function org-datetree-find-date-create "org-datetree" (date  
keep-restriction))
 (declare-function org-datetree-find-month-create (d  
keep-restriction))
 (declare-function org-decrypt-entry "org-crypt" ())
-(declare-function org-element-at-point "org-element" ())
+(declare-function org-element-at-point "org-element" ( pom 
cached-only))
 (declare-function org-element-lineage "org-element" (datum  types 
with-self))
 (declare-function org-element-property "org-element" (property element))
 (declare-function org-encrypt-entry "org-crypt" ())
diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el
index 112d6504f..b55f6d98e 100644
--- a/lisp/org-footnote.el
+++ b/lisp/org-footnote.el
@@ -39,7 +39,7 @@
 (declare-function org-back-over-empty-lines "org" ())
 (declare-function org-end-of-meta-data "org" ( full))
 (declare-function org-edit-footnote-reference "org-src" ())
-(declare-function org-element-at-point "org-element" ())
+(declare-function org-element-at-point "org-element" ( pom 
cached-only))
 (declare-function org-element-class "org-element" (datum  parent))
 (declare-function org-element-context "org-element" ( element))
 (declare-function org-element-lineage "org-element" (blob  types 
with-self))
diff --git a/lisp/org-keys.el b/lisp/org-keys.el
index 79d46e48d..b8e9ddd93 100644
--- a/lisp/org-keys.el
+++ b/lisp/org-keys.el
@@ -81,7 +81,7 @@
 (declare-function org-display-outline-path 

Re: [O] Bug: ox-odt.el should support text:start-value [9.1.14 (9.1.14-7-g01c419-elpaplus @ …/org-plus-contrib-20181015/)]

2018-10-19 Thread Mark A. Hershberger
Nicolas Goaziou  writes:

> Could you provide a patch using git format-patch, with a proper commit
> message?

Attached.  Also see
<https://code.orgmode.org/hexmode/org-mode/commit/91cb08df2473c70b7817c37ae0744e051964ad07>.

> Also, if you haven't signed FSF papers, please add TINYCHANGE at the
> end of the commit message.

I have signed papers on file.

Mark.
>From 91cb08df2473c70b7817c37ae0744e051964ad07 Mon Sep 17 00:00:00 2001
From: "Mark A. Hershberger" 
Date: Fri, 19 Oct 2018 09:19:38 -0400
Subject: [PATCH] Add support for text:start-value to ox-odt.el

ODF supports starting lists at a set number via text:start-value.
Without this, ODF files just restart numbering when they should
continue with the specified number.
---
 lisp/ox-odt.el | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el
index 70ef9de2e..b9a81f74d 100644
--- a/lisp/ox-odt.el
+++ b/lisp/ox-odt.el
@@ -1966,10 +1966,13 @@ contextual information."
 CONTENTS holds the contents of the item.  INFO is a plist holding
 contextual information."
   (let* ((plain-list (org-export-get-parent item))
+	 (count (org-element-property :counter item))
 	 (type (org-element-property :type plain-list)))
 (unless (memq type '(ordered unordered descriptive-1 descriptive-2))
   (error "Unknown list type: %S" type))
-(format "\n\n%s\n%s"
+(format (concat "\n\n%s\n%s")
 	contents
 	(if (org-element-map item 'table #'identity info 'first-match)
 		""
-- 
2.19.1



Re: [O] Bug: ox-odt.el should support text:start-value [9.1.14 (9.1.14-7-g01c419-elpaplus @ …/org-plus-contrib-20181015/)]

2018-10-17 Thread Mark A. Hershberger
Working code changes:

diff -ub org-plus-contrib-20181008/ox-odt.el\~ 
org-plus-contrib-20181008/ox-odt.el
--- org-plus-contrib-20181008/ox-odt.el~2018-10-12 19:13:13.095335320 
-0400
+++ org-plus-contrib-20181008/ox-odt.el 2018-10-17 22:10:30.194483160 -0400
@@ -1966,10 +1966,13 @@
 CONTENTS holds the contents of the item.  INFO is a plist holding
 contextual information."
   (let* ((plain-list (org-export-get-parent item))
+ (count (org-element-property :counter item))
 (type (org-element-property :type plain-list)))
 (unless (memq type '(ordered unordered descriptive-1 descriptive-2))
   (error "Unknown list type: %S" type))
-(format "\n\n%s\n%s"
+(format (concat "\n\n%s\n%s")
contents
(if (org-element-map item 'table #'identity info 'first-match)
""

Diff finished.  Wed Oct 17 22:11:23 2018



[O] Bug: ox-odt.el should support text:start-value [9.1.14 (9.1.14-7-g01c419-elpaplus @ …/org-plus-contrib-20181015/)]

2018-10-17 Thread Mark A. Hershberger


I saw that exporting plain lists with specified starting numbers
(‘[@20]') wasn't working—the lists just start over.

I was a bit frustrated with this, so I went looking at the code and the
ODF schema.  I found that ODF supports the text:start-value attribute[1]
that could be used where needed.

I came up with the following hack:

diff -ub ox-odt.el\~ ox-odt.el
--- ox-odt.el~  2018-10-17 16:47:32.859161792 -0400
+++ ox-odt.el   2018-10-17 21:04:46.391759435 -0400
@@ -1966,10 +1966,13 @@
 CONTENTS holds the contents of the item.  INFO is a plist holding
 contextual information."
   (let* ((plain-list (org-export-get-parent item))
+ (count (org-element-property :counter item))
 (type (org-element-property :type plain-list)))
 (unless (memq type '(ordered unordered descriptive-1 descriptive-2))
   (error "Unknown list type: %S" type))
-(format "\n\n%s\n%s"
+(format (concat "\n\n%s\n%s")
contents
(if (org-element-map item 'table #'identity info 'first-match)
""

Diff finished.  Wed Oct 17 21:17:59 2018


Emacs  : GNU Emacs 27.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.22.11, 
cairo version 1.14.8)
 of 2018-10-17
Package: Org mode version 9.1.14 (9.1.14-7-g01c419-elpaplus @ 
…/org-plus-contrib-20181015/)


Footnotes:
[1]  
http://docs.oasis-open.org/office/v1.2/cs01/OpenDocument-v1.2-cs01-part1.html#a_19_868_3__text_list-item_





Re: [O] Bug: check that org-element--cache-sync-keys is non-nil before clrhash [8.3.4 (8.3.4-42-gae73c7-elpa @ /home/mah/.emacs.d/elpa/org-20160425/)]

2016-05-22 Thread Mark A . Hershberger
> Could you investigate about how this happens in your case?

I removed [gnus-alias-use-identity](https://www.emacswiki.org/emacs/GnusAlias) 
and the problem went away.  I'm guessing it is because some sort of race 
condition when I reply to a message.  I would gues that org-mode is invoked 
when the signature files are inserted into the message.



Re: [O] Bug: check that org-element--cache-sync-keys is non-nil before clrhash [8.3.4 (8.3.4-42-gae73c7-elpa @ /home/mah/.emacs.d/elpa/org-20160425/)]

2016-05-08 Thread Mark A. Hershberger

Nicolas Goaziou writes:

> I'm surprised about this. Cache mechanism in available in Org mode
> buffers only. Not even when using `orgstruct-mode' (see
> 0b97a551704d50ae848c59d00b0d425554891e53).
>
> Could you investigate about how this happens in your case?

I don't know, but I've seen it happen a few times when using "M-x
woman".  Backtrace below.

It looks like a timer or event is being invoked and that is resulting in
the error.

If you have any ideas of what I should look for in my configuration, I
could poke around, but right now I don't know what to even look for.

-- 
Mark A. Hershberger
NicheWork LLC
717-271-1084

Debugger entered--Lisp error: (wrong-type-argument hash-table-p nil)
  clrhash(nil)
  (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) 
(clrhash org-element--cache-sync-keys))
  (let ((inhibit-quit t) request next) (if org-element--cache-sync-timer (progn 
(cancel-timer org-element--cache-sync-timer))) (catch (quote interrupt) (while 
org-element--cache-sync-requests (setq request (car 
org-element--cache-sync-requests) next (nth 1 
org-element--cache-sync-requests)) (org-element--cache-process-request request 
(and next (aref next 0)) threshold (and (not threshold) (time-add 
(current-time) org-element-cache-sync-duration)) future-change) (if next (progn 
(let* ((v next)) (aset v 3 (+ ... ...))) (aset next 2 (aref request 2 (setq 
org-element--cache-sync-requests (cdr org-element--cache-sync-requests (if 
org-element--cache-sync-requests (org-element--cache-set-timer buffer) (clrhash 
org-element--cache-sync-keys)))
  (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) request next) 
(if org-element--cache-sync-timer (progn (cancel-timer 
org-element--cache-sync-timer))) (catch (quote interrupt) (while 
org-element--cache-sync-requests (setq request (car 
org-element--cache-sync-requests) next (nth 1 
org-element--cache-sync-requests)) (org-element--cache-process-request request 
(and next (aref next 0)) threshold (and (not threshold) (time-add 
(current-time) org-element-cache-sync-duration)) future-change) (if next (progn 
(let* (...) (aset v 3 ...)) (aset next 2 (aref request 2 (setq 
org-element--cache-sync-requests (cdr org-element--cache-sync-requests (if 
org-element--cache-sync-requests (org-element--cache-set-timer buffer) (clrhash 
org-element--cache-sync-keys
  (progn (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) 
request next) (if org-element--cache-sync-timer (progn (cancel-timer 
org-element--cache-sync-timer))) (catch (quote interrupt) (while 
org-element--cache-sync-requests (setq request (car 
org-element--cache-sync-requests) next (nth 1 
org-element--cache-sync-requests)) (org-element--cache-process-request request 
(and next (aref next 0)) threshold (and (not threshold) (time-add ... 
org-element-cache-sync-duration)) future-change) (if next (progn (let* ... ...) 
(aset next 2 ...))) (setq org-element--cache-sync-requests (cdr 
org-element--cache-sync-requests (if org-element--cache-sync-requests 
(org-element--cache-set-timer buffer) (clrhash org-element--cache-sync-keys)
  (if (buffer-live-p buffer) (progn (save-current-buffer (set-buffer buffer) 
(let ((inhibit-quit t) request next) (if org-element--cache-sync-timer (progn 
(cancel-timer org-element--cache-sync-timer))) (catch (quote interrupt) (while 
org-element--cache-sync-requests (setq request (car 
org-element--cache-sync-requests) next (nth 1 
org-element--cache-sync-requests)) (org-element--cache-process-request request 
(and next ...) threshold (and ... ...) future-change) (if next (progn ... ...)) 
(setq org-element--cache-sync-requests (cdr 
org-element--cache-sync-requests (if org-element--cache-sync-requests 
(org-element--cache-set-timer buffer) (clrhash 
org-element--cache-sync-keys))
  org-element--cache-sync(#)
  apply(org-element--cache-sync #)
  byte-code("r\301\302H\303H\"\210)\301\207" [timer apply 5 6] 4)
  timer-event-handler([t 0 0 60 nil org-element--cache-sync (#) idle 0])




[O] Bug: check that org-element--cache-sync-keys is non-nil before clrhash [8.3.4 (8.3.4-42-gae73c7-elpa @ /home/mah/.emacs.d/elpa/org-20160425/)]

2016-05-02 Thread Mark A. Hershberger


Emacs  : GNU Emacs 24.4.1 (x86_64-pc-linux-gnu, GTK+ Version 3.14.5)
 of 2015-03-07 on trouble, modified by Debian
Package: Org-mode version 8.3.4 (8.3.4-42-gae73c7-elpa @ 
/home/mah/.emacs.d/elpa/org-20160425/)

I'm using org-mode by default for most buffers and, when using
gnus-alias-use-identity, I get a backtrace because
org-element--cache-sync-keys is set to nil.

Patch to fix this:

diff --git a/lisp/org-element.el b/lisp/org-element.el
index d02b36c..760fce8 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -5121,7 +5121,8 @@ updated before current modification are actually 
submitted."
;; Otherwise, reset keys.
(if org-element--cache-sync-requests
(org-element--cache-set-timer buffer)
- (clrhash org-element--cache-sync-keys))
+ (when org-element--cache-sync-keys
+(clrhash org-element--cache-sync-keys)))
 
 (defun org-element--cache-process-request
 (request next threshold time-limit future-change)


Edited backtrace:

Debugger entered--Lisp error: (wrong-type-argument hash-table-p nil)
  clrhash(nil)
  (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) 
(clrhash org-element--cache-sync-keys))
  (let ((inhibit-quit t) request next) (if org-element--cache-sync-timer (progn 
(cancel-timer org-element--cache-sync-timer))) (catch (quote interrupt) (while 
org-element--cache-sync-requests (setq request (car 
org-element--cache-sync-requests) next (nth 1 
org-element--cache-sync-requests)) (org-element--cache-process-request request 
(and next (aref next 0)) threshold (and (not threshold) (time-add 
(current-time) org-element-cache-sync-duration)) future-change) (if next (progn 
(let* ((v next)) (aset v 3 (+ ... ...))) (aset next 2 (aref request 2 (setq 
org-element--cache-sync-requests (cdr org-element--cache-sync-requests (if 
org-element--cache-sync-requests (org-element--cache-set-timer buffer) (clrhash 
org-element--cache-sync-keys)))
  (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) request next) 
(if org-element--cache-sync-timer (progn (cancel-timer 
org-element--cache-sync-timer))) (catch (quote interrupt) (while 
org-element--cache-sync-requests (setq request (car 
org-element--cache-sync-requests) next (nth 1 
org-element--cache-sync-requests)) (org-element--cache-process-request request 
(and next (aref next 0)) threshold (and (not threshold) (time-add 
(current-time) org-element-cache-sync-duration)) future-change) (if next (progn 
(let* (...) (aset v 3 ...)) (aset next 2 (aref request 2 (setq 
org-element--cache-sync-requests (cdr org-element--cache-sync-requests (if 
org-element--cache-sync-requests (org-element--cache-set-timer buffer) (clrhash 
org-element--cache-sync-keys
  (progn (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) 
request next) (if org-element--cache-sync-timer (progn (cancel-timer 
org-element--cache-sync-timer))) (catch (quote interrupt) (while 
org-element--cache-sync-requests (setq request (car 
org-element--cache-sync-requests) next (nth 1 
org-element--cache-sync-requests)) (org-element--cache-process-request request 
(and next (aref next 0)) threshold (and (not threshold) (time-add ... 
org-element-cache-sync-duration)) future-change) (if next (progn (let* ... ...) 
(aset next 2 ...))) (setq org-element--cache-sync-requests (cdr 
org-element--cache-sync-requests (if org-element--cache-sync-requests 
(org-element--cache-set-timer buffer) (clrhash org-element--cache-sync-keys)
  (if (buffer-live-p buffer) (progn (save-current-buffer (set-buffer buffer) 
(let ((inhibit-quit t) request next) (if org-element--cache-sync-timer (progn 
(cancel-timer org-element--cache-sync-timer))) (catch (quote interrupt) (while 
org-element--cache-sync-requests (setq request (car 
org-element--cache-sync-requests) next (nth 1 
org-element--cache-sync-requests)) (org-element--cache-process-request request 
(and next ...) threshold (and ... ...) future-change) (if next (progn ... ...)) 
(setq org-element--cache-sync-requests (cdr 
org-element--cache-sync-requests (if org-element--cache-sync-requests 
(org-element--cache-set-timer buffer) (clrhash 
org-element--cache-sync-keys))
  org-element--cache-sync(#>)
  apply(org-element--cache-sync #>)
  byte-code("r\301\302H\303H\"\210)\301\207" [timer apply 5 6] 4)
  timer-event-handler([t 0 0 60 nil org-element--cache-sync (#>) idle 0])
  read-from-minibuffer("Identity: " nil ...)
  completing-read-default("Identity: " ...)
  completing-read("Identity: " ...)
  gnus-alias-identity-prompt()
  gnus-alias-use-identity()
[SNIP]




[O] Bug: Time called when org-element--cache-sync-keys is nil [8.3.3 (8.3.3-elpa @ /home/mah/.emacs.d/elpa/org-20160108/)]

2016-01-31 Thread Mark A. Hershberger

When I open begin to write an email using mu4e, I get an error
complaining that clrhash wants a hash-table and got nil.

Patch that fixes this:

diff --git a/lisp/org-element.el b/lisp/org-element.el
index f407578..0941468 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -5055,7 +5055,8 @@ updated before current modification are actually 
submitted."
;; Otherwise, reset keys.
(if org-element--cache-sync-requests
(org-element--cache-set-timer buffer)
- (clrhash org-element--cache-sync-keys))
+ (when org-element--cache-sync-keys
+(clrhash org-element--cache-sync-keys)))
 
 (defun org-element--cache-process-request
 (request next threshold time-limit future-change)



Partial backtrace:

Debugger entered--Lisp error: (wrong-type-argument hash-table-p nil)
  clrhash(nil)
  (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) 
(clrhash org-element--cache-sync-keys))
  (let ((inhibit-quit t) request next) (if org-element--cache-sync-timer (progn 
(cancel-timer org-element--cache-sync-timer))) (catch (quote interrupt) (while 
org-element--cache-sync-requests (setq request (car 
org-element--cache-sync-requests) next (nth 1 
org-element--cache-sync-requests)) (org-element--cache-process-request request 
(and next (aref next 0)) threshold (and (not threshold) (time-add 
(current-time) org-element-cache-sync-duration)) future-change) (if next (progn 
(let* ((v next)) (aset v 3 (+ ... ...))) (aset next 2 (aref request 2 (setq 
org-element--cache-sync-requests (cdr org-element--cache-sync-requests (if 
org-element--cache-sync-requests (org-element--cache-set-timer buffer) (clrhash 
org-element--cache-sync-keys)))
  (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) request next) 
(if org-element--cache-sync-timer (progn (cancel-timer 
org-element--cache-sync-timer))) (catch (quote interrupt) (while 
org-element--cache-sync-requests (setq request (car 
org-element--cache-sync-requests) next (nth 1 
org-element--cache-sync-requests)) (org-element--cache-process-request request 
(and next (aref next 0)) threshold (and (not threshold) (time-add 
(current-time) org-element-cache-sync-duration)) future-change) (if next (progn 
(let* (...) (aset v 3 ...)) (aset next 2 (aref request 2 (setq 
org-element--cache-sync-requests (cdr org-element--cache-sync-requests (if 
org-element--cache-sync-requests (org-element--cache-set-timer buffer) (clrhash 
org-element--cache-sync-keys
  (progn (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) 
request next) (if org-element--cache-sync-timer (progn (cancel-timer 
org-element--cache-sync-timer))) (catch (quote interrupt) (while 
org-element--cache-sync-requests (setq request (car 
org-element--cache-sync-requests) next (nth 1 
org-element--cache-sync-requests)) (org-element--cache-process-request request 
(and next (aref next 0)) threshold (and (not threshold) (time-add ... 
org-element-cache-sync-duration)) future-change) (if next (progn (let* ... ...) 
(aset next 2 ...))) (setq org-element--cache-sync-requests (cdr 
org-element--cache-sync-requests (if org-element--cache-sync-requests 
(org-element--cache-set-timer buffer) (clrhash org-element--cache-sync-keys)
  (if (buffer-live-p buffer) (progn (save-current-buffer (set-buffer buffer) 
(let ((inhibit-quit t) request next) (if org-element--cache-sync-timer (progn 
(cancel-timer org-element--cache-sync-timer))) (catch (quote interrupt) (while 
org-element--cache-sync-requests (setq request (car 
org-element--cache-sync-requests) next (nth 1 
org-element--cache-sync-requests)) (org-element--cache-process-request request 
(and next ...) threshold (and ... ...) future-change) (if next (progn ... ...)) 
(setq org-element--cache-sync-requests (cdr 
org-element--cache-sync-requests (if org-element--cache-sync-requests 
(org-element--cache-set-timer buffer) (clrhash 
org-element--cache-sync-keys))
  org-element--cache-sync(#)


Emacs  : GNU Emacs 24.5.1 (x86_64-pc-linux-gnu, GTK+ Version 3.14.5)
 of 2016-01-10 on flynn, modified by Debian
Package: Org-mode version 8.3.3 (8.3.3-elpa @ 
/home/mah/.emacs.d/elpa/org-20160108/)



[O] bug in org-habits

2015-11-02 Thread Mark A. Hershberger

org-habit.el is sensitive to the ordering PROPERTIES and SCHEDULED
and expects them /in only/ the following order:

 * TODO habit name
 SCHEDULED: <2015-11-03 Tue 07:00 .+1d>
 :PROPERTIES:
 :LAST_REPEAT: [2015-11-02 Mon 07:54]
 :STYLE: habit
 :END:

Any other ordering, or doubling of PROPERTIES (e.g. STYLE in one, LAST
REPEAT in another) and the habit will show up as a simple scheduled item
and not a habit in the agenda view.

org-version: 8.3.2
emacs-version: 24.4.1

Let me know if I need to provide any other information.

Thanks!

Mark.


-- 
http://hexmode.com/

Love every man in spite of his falling into sin. Never mind the sins,
but remember that the foundation of the man is the same - the image of
God.  -- St. John of Kronstadt



[O] Bug: org-element--cache-sync called after switching buffers [8.3.1 (8.3.1-16-gf6aa53-elpa @ /home/mah/.emacs.d/elpa/org-20150810/)]

2015-08-20 Thread Mark A. Hershberger
-recursive-edit :help Abort input and exit minibuffer) Minibuf)) (10 . 
exit-minibuffer) (13 . exit-minibuffer) (7 . abort-recursive-edit) (C-tab . 
file-cache-minibuffer-complete) (9 . self-insert-command) (XF86Back . 
previous-history-element) (up . previous-history-element) (prior . 
previous-history-element) (XF86Forward . next-history-element) (down . 
next-history-element) (next . next-history-element) (27 keymap (114 . 
previous-matching-history-element) (115 . next-matching-history-element) (112 . 
previous-history-element) (110 . next-history-element))) nil nil nil nil)
  completing-read-default(Identity:  ((Personal  \Mark A. Hershberger\ 
m...@everybody.org  nil  ~/.signatures/personal.txt) (Nichework  
\Mark A. Hershberger\ m...@nichework.com NicheWork LLC nil  
~/.signatures/nichework.txt)) nil t nil nil nil nil)
  completing-read(Identity:  ((Personal  \Mark A. Hershberger\ 
m...@everybody.org  nil  ~/.signatures/personal.txt) (Nichework  
\Mark A. Hershberger\ m...@nichework.com NicheWork LLC nil  
~/.signatures/nichework.txt)) nil t)
  gnus-alias-identity-prompt()
  #[nil \301\302!\210\303\304!\205.\304 .\305!)\207 [identity 
visual-line-mode -1 fboundp gnus-alias-identity-prompt gnus-alias-use-identity] 
2]()
  run-hooks(change-major-mode-after-body-hook text-mode-hook message-mode-hook 
mu4e-compose-mode-hook)
  apply(run-hooks (change-major-mode-after-body-hook text-mode-hook 
message-mode-hook mu4e-compose-mode-hook))
  run-mode-hooks(mu4e-compose-mode-hook)
  mu4e-compose-mode()
  (catch (quote --cl-block-mu4e~compose-handler--) (set (make-local-variable 
(quote mu4e-compose-parent-message)) original-msg) (put (quote 
mu4e-compose-parent-message) (quote permanent-local) t) (run-hooks (quote 
mu4e-compose-pre-hook)) (condition-case nil (mu4e-draft-open compose-type 
original-msg) (quit (kill-buffer) (message [mu4e] Operation aborted) (throw 
(quote --cl-block-mu4e~compose-handler--) nil))) 
(mu4e~draft-insert-mail-header-separator) (save-excursion (goto-char 
(point-max)) (let ((--dolist-tail-- includes) att) (while --dolist-tail-- (setq 
att (car --dolist-tail--)) (mml-attach-file (plist-get att :file-name) 
(plist-get att :mime-type)) (setq --dolist-tail-- (cdr --dolist-tail--) 
(mu4e~compose-set-friendly-buffer-name compose-type) (set-buffer-modified-p 
nil) (if (member compose-type (quote (new forward))) (message-goto-to) 
(message-goto-body)) (set (make-local-variable (quote 
mu4e-compose-parent-message)) original-msg) (put (quote 
mu4e-compose-parent-message) (quote permanent-local) t) 
(mu4e~compose-hide-headers) (mu4e-compose-mode))
  mu4e~compose-handler(new)
  (if (eq compose-type (quote new)) (mu4e~compose-handler (quote new)) (let* 
((docid (mu4e-message-field msg :docid)) (decrypt (and (member (quote 
encrypted) (mu4e-message-field msg :flags)) (if (eq mu4e-decryption-policy 
(quote ask)) (yes-or-no-p (mu4e-format Decrypt message?)) 
mu4e-decryption-policy (let ((viewwin (get-buffer-window 
mu4e~view-buffer))) (if (window-live-p viewwin) (progn (select-window 
viewwin (mu4e~proc-compose compose-type decrypt docid)))
  (let ((msg (mu4e-message-at-point (quote noerror (if (or msg (eq 
compose-type (quote new))) nil (mu4e-warn No message at point)) (if (member 
compose-type (quote (reply forward edit new))) nil (mu4e-error Invalid compose 
type '%S' compose-type)) (if (and (eq compose-type (quote edit)) (not (member 
(quote draft) (mu4e-message-field msg :flags (progn (mu4e-warn Editing is 
only allowed for draft messages))) (if (eq compose-type (quote new)) 
(mu4e~compose-handler (quote new)) (let* ((docid (mu4e-message-field msg 
:docid)) (decrypt (and (member (quote encrypted) (mu4e-message-field msg 
:flags)) (if (eq mu4e-decryption-policy ...) (yes-or-no-p ...) 
mu4e-decryption-policy (let ((viewwin (get-buffer-window 
mu4e~view-buffer))) (if (window-live-p viewwin) (progn (select-window 
viewwin (mu4e~proc-compose compose-type decrypt docid
  mu4e-compose(new)
  mu4e-compose-new()
  call-interactively(mu4e-compose-new nil nil)
  command-execute(mu4e-compose-new)

Emacs  : GNU Emacs 24.5.1 (x86_64-pc-linux-gnu, GTK+ Version 3.16.4)
 of 2015-06-28 on trouble, modified by Debian
Package: Org-mode version 8.3.1 (8.3.1-16-gf6aa53-elpa @ 
/home/mah/.emacs.d/elpa/org-20150810/)

current state:
==
(setq
 org-hide-leading-stars t
 org-tab-first-hook '(org-hide-block-toggle-maybe 
org-babel-hide-result-toggle-maybe
  org-babel-header-arg-expand)
 org-follow-link-hook '((lambda nil
 (when (eq major-mode (quote gnus-summary-mode))
  (gnus-summary-insert-dormant-articles))
 )
)
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-gnus-prefer-web-links t
 org-reverse-note-order t
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-agenda-start

[O] Org-Mode = MediaWiki Wiki mark up?

2011-03-30 Thread Mark A. Hershberger

I'm really starting to use OrgMode to help me organize my time and the
tasks that I have.  Would it be possible to export OrgMode markup to
MediaWiki markup, which is where I publish my weekly report (I work for
Wikimedia)?  Has anyone else done this, yet?

I have a MediaWiki mode (https://launchpad.net/mediawiki-el) that I can
use to edit Wikipedia, or any other MediaWiki-based wiki, but it would
be nice to use all the tools that are built into OrgMode for
prioritizing tasks, and whatnot, and this just run, say,
org-mode-publish-mediawiki and have the translation done and published.

If this hasn't been done, are there any how-tos that would provide an
outline for what I need to do in order to create my own translation
tool?

Mark.

-- 
http://hexmode.com/

War begins by calling for the annihilation of the Other,
but ends ultimately in self-annihilation.




[Orgmode] Re: Org-babel games screencast

2010-11-29 Thread Mark A. Hershberger
David O'Toole dto1...@gmail.com writes:

 Here's a presentation I made, sorry it's a bit rough but here goes:

 http://lispgamesdev.blogspot.com/2010/11/lisp-game-development-screencast-1.html

This is awesome.  I've only been barely following Babel, and wasn't
aware of slime integration.  While I plan on going back and looking at
the list archives, is there any place that you would recommend as the
best place to start if your goal is to duplicate the sort of things
you've done with org-mode and outline-formatted code?

Mark.



-- 
http://hexmode.com/

War begins by calling for the annihilation of the Other,
but ends ultimately in self-annihilation.

___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


Re: [Orgmode] Daily Debian Builds

2010-07-30 Thread Mark A. Hershberger
suvayu ali fatkasuvayu+li...@gmail.com writes:

 I wanted to try it on Ubuntu Lucid but launchpad says failed build for
 the 26th of July.

There is still a Lucid build available:

https://code.launchpad.net/~org-mode/+archive/daily-ppa

I'm a little frustrated with the “daily build” since it seems buggy.
I may start hosting my own cron job to do this.

Mark.


-- 
http://hexmode.com/

Embrace Ignorance.  Just don't get too attached.

___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] Daily Debian Builds

2010-07-26 Thread Mark A. Hershberger

Using Launchpad's beta “daily build” service, I've made packages of
org-mode and emacs available here:
https://code.launchpad.net/~org-mode/+archive/daily-ppa

Launchpad is still working out the kinks, but it should be able to
provide this pretty consistently for Ubuntu Lucid (which, I think, will
work on Debian).

If you try it, let me know what your experience is so I can improve it.

Mark.

-- 
http://hexmode.com/

Embrace Ignorance.  Just don't get too attached.

___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] Re: contributing Debian build scripts

2010-06-25 Thread Mark A. Hershberger
Carsten Dominik carsten.domi...@gmail.com writes:

 If I understand correctly, there is no action I need to take, right?

Right.  Looks like Launchpad is gonna be able to take care of most of
this.


-- 
http://hexmode.com/

Embrace Ignorance.  Just don't get too attached.

___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] Re: keeping uptodate?

2010-06-23 Thread Mark A. Hershberger
Matt Price mopto...@gmail.com writes:

 apologies for this one -- i remember reading somewhere about a script or
 package that lets you keep uptodate with org development versions without
 having to pull manually from git.

We should have daily build installable as a debian package soon.  It
will (eventually) be at http://launchpad.net/~org-mode

Mark.

-- 
http://hexmode.com/

Embrace Ignorance.  Just don't get too attached.


___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] Re: contributing Debian build scripts

2010-06-23 Thread Mark A. Hershberger
Carsten Dominik carsten.domi...@gmail.com writes:

 Can you please first elaborate what it would mean if we were to take
 over the production of this package?

Mosty, when releases are made, it would mean adding a changelog entry to
the debian/changelog file, re-building the source package and then using
dput to send the updates to Launchpad.net

 Where would we have to submit it or put it up on the web so that it
 would be found as an official package?

I think the best way would be for me to create a group on Launchpad and
then invite people to be a part of that group.  Anyone in the group
could submit packages to the package archive.

 How does all of this work?

The packaging scripts are kept in a debian subdirectory that can be in
the same repository as org-mode itself or (as I've been doing) in a
separate source repository.  I've been using bzr-builddeb to create the
packages since this allows me to maintain my packaging scripts
separately from the upstream source.

It looks like Launchpad has introduced support for automated daily
builds and build recipes
(https://wiki.ubuntu.com/DailyBuilds/BzrBuilder) since I last looked, so
the work involved is probably going to be less than what I've been doing.

After thinking about it a bit, I've created an Org-Mode group on
Launchpad and requested an import of the Org-Mode git archive into a
launchpad repository there so that it can be used in build recipies.

I've also pushed my build scripts to that group so anyone who joins can
contribute.

So, next steps are: set up a daily build.

Anyone interested in contributing is welcome to join:

http://launchpad.net/~org-mode/

Mark.


-- 
http://hexmode.com/

Embrace Ignorance.  Just don't get too attached.

___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] contributing Debian build scripts

2010-06-21 Thread Mark A. Hershberger

After maintaining a ppa for org-mode for some time, I'd like to
contribute the build so that the community can help keep them up to
date.

More up-to-date than I've been able to do, surely :)

Should I just submit patches to the list? (I have papers on file with
the FSF if that makes any difference.)

Mark.

-- 
http://hexmode.com/

Embrace Ignorance.  Just don't get too attached.


___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] Re: Xiki framework (wiki and tree emacs features)

2010-02-06 Thread Mark A. Hershberger
Craig Muth craig.m...@gmail.com writes:

 Here's an example of a xiki tree you might build up when working in some
 elisp files.  Could be useful for communicating about code on mailing lists
 like this one.  Forgive me if org mode (or something else) already does
 this.  If so please enlighten me - I'd be interested in checking it
 out.

It's hard for me to see exactly what is going on, but it doesn't look
like anything that OrgMode isn't already doing or could be made to do
with a SMOP.

Look at Emacs Starter Kit
(http://eschulte.github.com/emacs-starter-kit/) for an example of how
you can mix OrgMode markup and Emacs Lisp, for example.

Mark.

-- 
http://hexmode.com/

The only alternative to Tradition is bad tradition.
  — Jaraslov Pelikan


___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] Re: Org and Ledger

2008-12-08 Thread Mark A. Hershberger
Carsten Dominik [EMAIL PROTECTED] writes:

 I have never used ledger, and so I have no picture in my head of
 what would be useful.  Maybe we should have a discussion of ideas
 here?

I think Russell Adams gives a hint at the problem:

 I'm faced with needing the ability to integrate it into some business
 workflows (ie: expense reporting, invoicing cycles, tax reporting,
 etc) which I'll have to write all of the logic myself. I can use
 Ledger for the data, but I have to code the workflows I require.

With the introduction of org-invoice, I can begin to see my way through
this muddled mess.

Ideally, when I generate an invoice, I could verify that all was correct
and invoke some sort of “send-to-client” function that would make an
entry in ledger's “Accounts Receivable” as well as emailing the invoice
to the client (or updating FreshBooks, or what have you).

Another idea is budgeting: Org and its tables seems like natural fit
for this.  If I could easily tie org to ledger accounts, maybe I could
see when I'm spending more than is budgeted.

Or if I keep track of a “TO BUY” list in org and need to save money for
some big ticket item, maybe I could have Org query ledger to see how
much money I have saved.

Pie-in-the-sky ideas, and my use of ledger as-yet is non-existent, but
this would really help.

Mark.



___
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] Re: Notification of upcoming deadlines via email

2008-12-06 Thread Mark A. Hershberger
Gary [EMAIL PROTECTED] writes:

 What I would like to do is have emacs send me an email when a deadline
 is approaching. Is that possible? I am *much* more likely to read an
 email than remember to look at the calendar or whatever, and moreover
 it sits in my mailbox until I really take some action to deal with it,
 even if it is only to delete it.

You can check out this article
http://article.gmane.org/gmane.emacs.orgmode/5271 for having reminders
show up as pop-ups.  Replace the “call-process” bit with your own shell
program or lisp fragment. 

HTH,

Mark.



___
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] Re: [ANN] Org Invoice 1.0.0

2008-12-06 Thread Mark A. Hershberger
Peter Jones [EMAIL PROTECTED] writes:

 I thought I'd share some elisp that I'm using in conjunction with
 org-mode for helping me prepare invoices.

Very nice.  I was looking for something like this.

Now, if I can just figure out how to integrate invoicing and ledger

Mark.



___
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] Re: Org-mode Version 5.16

2007-12-01 Thread Mark A. Hershberger

If anyone running Ubuntu Gutsy is interested in having an org-mode
package that is kept relatively up-to-date, I have an archive on
Launchpad. (See https://launchpad.net/~hexmode/+archive/)

In your sources.list:

deb http://ppa.launchpad.net/hexmode/ubuntu gutsy main
deb-src http://ppa.launchpad.net/hexmode/ubuntu gutsy main

I've just uploaded a package for 5.16 and, after some testing, it
appears to be working.

-- 
http://hexmode.com/
GPG Fingerprint: 7E15 362D A32C DFAB E4D2  B37A 735E F10A 2DFC BFF5

The most beautiful experience we can have is the mysterious.
-- Albert Einstein, The World As I See it



___
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] Re: how to get daily clock summaries

2007-11-29 Thread Mark A. Hershberger
Rainer Stengele [EMAIL PROTECTED] writes:

 #+BEGIN: clocktable :maxlevel 0 :scope file
  :tstart 2007-11-28 Mi 00:00 :tend 2007-11-28 Mi 23:59

Looking at the docs, it looks like you could do:

#+BEGIN: clocktable :block today

-- 
http://hexmode.com/
GPG Fingerprint: 7E15 362D A32C DFAB E4D2  B37A 735E F10A 2DFC BFF5

The most beautiful experience we can have is the mysterious.
-- Albert Einstein, The World As I See it



___
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode