[O] Bug: Variable comment-start-skip in the function org-agenda-skip is nil but should be a string. [9.1.13 (9.1.13-elpa @ ~/.emacs.d/elpa/org-20180716/)]

2018-07-30 Thread Pierre-Henry F. 
Hello dear list and thank you for looking at this stuff down below as
well as org-mode and many other things.

Best,
PHF

I get:

  Debugger entered--Lisp error: (wrong-type-argument stringp nil)

looking-at(nil)

org-agenda-skip()

org-scan-tags(proposition_org/if_proposition_then_get_content_else_nil t 
nil nil)

org-map-entries(proposition_org/if_proposition_then_get_content_else_nil t)

(seq-filter 'not (org-map-entries 
'proposition_org/if_proposition_then_get_content_else_nil t))

proposition_org/list_propositions_in_buffer()

(progn (insert-file-contents file_name) 
(proposition_org/list_propositions_in_buffer))

(unwind-protect (progn (insert-file-contents file_name) 
(proposition_org/list_propositions_in_buffer)) (and (buffer-name temp-buffer) 
(kill-buffer temp-buffer)))

(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn 
(insert-file-contents file_name) (proposition_org/list_propositions_in_buffer)) 
(and (buffer-name temp-buffer) (kill-buffer temp-buffer

(let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer 
(set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents 
file_name) (proposition_org/list_propositions_in_buffer)) (and (buffer-name 
temp-buffer) (kill-buffer temp-buffer)

(cond ((file-exists-p file_name) (let ((temp-buffer (generate-new-buffer " 
*temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn 
(insert-file-contents file_name) (proposition_org/list_propositions_in_buffer)) 
(and (buffer-name temp-buffer) (kill-buffer temp-buffer)) (t 'nil))

(let ((file_name (expand-file-name x))) (cond ((file-exists-p file_name) 
(let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer 
(set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents 
file_name) (proposition_org/list_propositions_in_buffer)) (and (buffer-name 
temp-buffer) (kill-buffer temp-buffer)) (t 'nil)))

proposition_org/extract_posts("~/tmp.org")

(message (proposition_org/extract_posts "~/tmp.org"))

eval((message (proposition_org/extract_posts "~/tmp.org")) nil)

elisp--eval-last-sexp(nil)

eval-last-sexp(nil)

funcall-interactively(eval-last-sexp nil)

call-interactively(eval-last-sexp nil nil)

command-execute(eval-last-sexp)

By executing this program:

  ;; Import

  (require 'seq)

  (require 'cl-lib)

  (require 'org)

  ;; Define

  (defun proposition_org/extract_posts (x)

"file_name → [proposition_org]"

(let ((file_name (expand-file-name x)))

  (cond ((file-exists-p file_name)

 (with-temp-buffer

   (insert-file-contents file_name)

   (proposition_org/list_propositions_in_buffer)))

(t '()

  (defun proposition_org/list_propositions_in_buffer ()

"current_buffer → [proposition_org]"

(seq-filter 'not (org-map-entries 
'proposition_org/if_proposition_then_get_content_else_nil t)))

  (defun proposition_org/if_proposition_then_get_content_else_nil ()

"current_heading → nil | proposition_org"

(cond ((proposition_org/is_publication) (proposition_org/get_content))

  (t nil)))

  (defun proposition_org/get_content ()

"current_heading → string"

(org-narrow-to-subtree)

(let ((content (buffer-string)))

  (widen)

  content))

  (defun proposition_org/is_publication ()

"current_heading → boolean"

(eq (proposition_org/is_proposition_properties (org-entry-properties)) 
'true))

  (defun proposition_org/is_proposition_properties (properties)

"properties ≡ [[key,value]]

 properties → 'true | 'false"

(let ((proposition_properties_pattern

   (list

(cons

 (lambda (x) (equal "PUBLIC" x))

 (lambda (x) (equal "true" x)))

(cons

 (lambda (x) (equal "TARGET_ID" x))

 (lambda (x) (stringp x)))

(cons

 (lambda (x) (equal "PREVIOUS_VERSION" x))

 (lambda (x) (stringp x)))

(cons

 (lambda (x) (equal "AUTHOR" x))

 (lambda (x) (stringp x)))

(cons

 (lambda (x) (equal "TYPE_NAME" x))

 (lambda (x) (equal "proposition_org" x)))

(cons

 (lambda (x) (equal "TYPE_ID" x))

 (lambda (x) (equal "af7658fc-0541-4cbe-8a5c-04fd5cde74ff" x))

  (proposition_org/properties_has_pattern properties 
proposition_properties_pattern)))

  (defun proposition_org/properties_has_pattern (properties patterns  
result)

"properties ≡ [[key,value]]

 patterns ≡ [[predicate,predicate]]

 properties patterns → 'true | 'false"

(proposition_org/to_truth

 (cond ((null result) (proposition_org/properties_has_pattern properties 
patterns 'true))

   ((eq result 'false) result)

   ((null patterns) result)

   (t (proposition_org/properties_has_pattern

Re: [O] Bug: Variable comment-start-skip in the function org-agenda-skip is nil but should be a string. [9.1.13 (9.1.13-elpa @ ~/.emacs.d/elpa/org-20180716/)]

2018-07-21 Thread Pierre-Henry F. 
Ok, I found how to correct it:

(defun proposition_org/extract_posts (x)
  "file_name → [proposition_org]"
  (let ((file_name (expand-file-name x)))
(cond ((file-exists-p file_name)
   (with-temp-buffer
 (insert-file-contents file_name)
 (org-mode)  ;; <--- THIS IS WHAT WAS MISSING
 (proposition_org/list_propositions_in_buffer)))
  (t '()
Best,
PHF

‐‐‐ Original Message ‐‐‐
On July 21, 2018 6:28 PM, Pierre-Henry F.  wrote:

> Hello dear list and thank you for looking at this stuff down below as
> well as org-mode and many other things.
>
> Best,
> PHF
>
> I get:
>
>   Debugger entered--Lisp error: (wrong-type-argument stringp nil)
> looking-at(nil)
> org-agenda-skip()
> org-scan-tags(proposition_org/if_proposition_then_get_content_else_nil t 
> nil nil)
> org-map-entries(proposition_org/if_proposition_then_get_content_else_nil 
> t)
> (seq-filter 'not (org-map-entries 
> 'proposition_org/if_proposition_then_get_content_else_nil t))
> proposition_org/list_propositions_in_buffer()
> (progn (insert-file-contents file_name) 
> (proposition_org/list_propositions_in_buffer))
> (unwind-protect (progn (insert-file-contents file_name) 
> (proposition_org/list_propositions_in_buffer)) (and (buffer-name temp-buffer) 
> (kill-buffer temp-buffer)))
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn 
> (insert-file-contents file_name) 
> (proposition_org/list_propositions_in_buffer)) (and (buffer-name temp-buffer) 
> (kill-buffer temp-buffer
> (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer 
> (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents 
> file_name) (proposition_org/list_propositions_in_buffer)) (and (buffer-name 
> temp-buffer) (kill-buffer temp-buffer)
> (cond ((file-exists-p file_name) (let ((temp-buffer (generate-new-buffer 
> " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect 
> (progn (insert-file-contents file_name) 
> (proposition_org/list_propositions_in_buffer)) (and (buffer-name temp-buffer) 
> (kill-buffer temp-buffer)) (t 'nil))
> (let ((file_name (expand-file-name x))) (cond ((file-exists-p file_name) 
> (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer 
> (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents 
> file_name) (proposition_org/list_propositions_in_buffer)) (and (buffer-name 
> temp-buffer) (kill-buffer temp-buffer)) (t 'nil)))
> proposition_org/extract_posts("~/tmp.org")
> (message (proposition_org/extract_posts "~/tmp.org"))
> eval((message (proposition_org/extract_posts "~/tmp.org")) nil)
> elisp--eval-last-sexp(nil)
> eval-last-sexp(nil)
> funcall-interactively(eval-last-sexp nil)
> call-interactively(eval-last-sexp nil nil)
> command-execute(eval-last-sexp)
>
> By executing this program:
>
>   ;; Import
>
>   (require 'seq)
>   (require 'cl-lib)
>   (require 'org)
>
>   ;; Define
>
>   (defun proposition_org/extract_posts (x)
> "file_name → [proposition_org]"
> (let ((file_name (expand-file-name x)))
>   (cond ((file-exists-p file_name)
>  (with-temp-buffer
>(insert-file-contents file_name)
>(proposition_org/list_propositions_in_buffer)))
> (t '()
>
>   (defun proposition_org/list_propositions_in_buffer ()
> "current_buffer → [proposition_org]"
>
> (seq-filter 'not (org-map-entries 
> 'proposition_org/if_proposition_then_get_content_else_nil t)))
>
>   (defun proposition_org/if_proposition_then_get_content_else_nil ()
> "current_heading → nil | proposition_org"
> (cond ((proposition_org/is_publication) (proposition_org/get_content))
>   (t nil)))
>
>   (defun proposition_org/get_content ()
> "current_heading → string"
> (org-narrow-to-subtree)
> (let ((content (buffer-string)))
>   (widen)
>   content))
>
>   (defun proposition_org/is_publication ()
> "current_heading → boolean"
> (eq (proposition_org/is_proposition_properties (org-entry-properties)) 
> 'true))
>
>   (defun proposition_org/is_proposition_properties (properties)
> "properties ≡ [[key,value]]
>
>  properties → 'true | 'false"
>
> (let ((proposition_properties_pattern
>(list
> (cons
>  (lambda (x) (equal "PUBLIC" x))
>  (lambda (x) (equal "true" x)))
>
> (cons
>  (lambda (x) (equal "TARGET_ID" x))
>  (lambda (x) (stringp x)))
>
> (cons
>  (lambda (x) (equal "PREVIOUS_VERSION" x))
>  (lambda (x) (stringp x)))
>
> (cons
>  (lambda (x) (equal "AUTHOR" x))
>  (lambda (x) (stringp x)))
>
> (cons
>  (lambda (x) (equal "TYPE_NAME" x))
>  (lambda (x) (equal "proposition_org" x)))
>
> (cons
>