* Beamer--Lisp error: (wrong-type-argument buffer-or-string-p t)
@ 2013-11-07 15:56 Sebastien Vauban
2013-11-07 16:05 ` Nicolas Goaziou
0 siblings, 1 reply; 3+ messages in thread
From: Sebastien Vauban @ 2013-11-07 15:56 UTC (permalink / raw)
To: emacs-orgmode-mXXj517/zsQ
Hello,
When using Org Beamer (in the following ECM, but not limited to it) with the
option H:1, everything works as expected. I get a PDF produced with some
slides.
--8<---------------cut here---------------start------------->8---
#+TITLE: ECM
#+OPTIONS: H:2 texht:t toc:nil
#+BEAMER_THEME: default
* Description
** Objectifs
Rechercher les *composants* qui ...
* Données
** Données
Nombre de *variables* ...
--8<---------------cut here---------------end--------------->8---
Though, when setting H:2 (and refreshing the options), I get:
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument buffer-or-string-p t)
get-text-property(0 org-props t)
org-get-text-property-any(0 org-props t)
org-beamer-sectioning(1 t)
funcall(org-beamer-sectioning 1 t)
(if (functionp (nth 2 class-sectionning)) (funcall (nth 2 class-sectionning) level numberedp) (nth (1+ level) class-sectionning))
(let ((sec (if (functionp (nth 2 class-sectionning)) (funcall (nth 2 class-sectionning) level numberedp) (nth (1+ level) class-sectionning)))) (cond ((not sec) nil) ((stringp sec) (concat sec "\n%s")) ((not (consp (cdr sec))) (concat (funcall (if numberedp (function car) (function cdr)) sec) "\n%s")) ((= (length sec) 2) (if numberedp (progn (concat (car sec) "\n%s" (nth 1 sec))))) ((= (length sec) 4) (if numberedp (concat (car sec) "\n%s" (nth 1 sec)) (concat (nth 2 sec) "\n%s" (nth 3 sec))))))
(let* ((class (plist-get info :latex-class)) (level (org-export-get-relative-level headline info)) (numberedp (org-export-numbered-headline-p headline info)) (class-sectionning (assoc class org-latex-classes)) (section-fmt (let ((sec (if (functionp ...) (funcall ... level numberedp) (nth ... class-sectionning)))) (cond ((not sec) nil) ((stringp sec) (concat sec "\n%s")) ((not (consp ...)) (concat (funcall ... sec) "\n%s")) ((= (length sec) 2) (if numberedp (progn ...))) ((= (length sec) 4) (if numberedp (concat ... "\n%s" ...) (concat ... "\n%s" ...)))))) (text (org-export-data (org-element-property :title headline) info)) (todo (and (plist-get info :with-todo-keywords) (let ((todo (org-element-property :todo-keyword headline))) (and todo (org-export-data todo info))))) (todo-type (and todo (org-element-property :todo-type headline))) (tags (and (plist-get info :with-tags) (org-export-get-tags headline info))) (priority (and (plist-get info :with-priority) (org-element-property :priority headline))) (full-text (funcall org-latex-format-headline-function todo todo-type priority text tags)) (headline-label (format "\\label{sec-%s}\n" (mapconcat (quote number-to-string) (org-export-get-headline-number headline info) "-"))) (pre-blanks (make-string (org-element-property :pre-blank headline) 10))) (if (or (not section-fmt) (org-export-low-level-p headline info)) (let ((low-level-body (concat (if (org-export-first-sibling-p headline info) (progn ...)) "\\item " full-text "\n" headline-label pre-blanks contents))) (if (not (org-export-last-sibling-p headline info)) low-level-body (replace-regexp-in-string "[ \n]*\\'" (format "\n\\\\end{%s}" (if numberedp (quote enumerate) (quote itemize))) low-level-body))) (let ((opt-title (funcall org-latex-format-headline-function todo todo-type priority (org-export-data (org-export-get-alt-title headline info) info) (and (eq ... t) tags)))) (if (and numberedp opt-title (not (equal opt-title full-text)) (string-match "\\`\\\\\\(.*?[^*]\\){" section-fmt)) (format (replace-match "\\1[%s]" nil nil section-fmt 1) (replace-regexp-in-string "\\[" "(" (replace-regexp-in-string "\\]" ")" opt-title)) full-text (concat headline-label pre-blanks contents)) (format section-fmt full-text (concat headline-label pre-blanks contents))))))
(if (org-element-property :footnote-section-p headline) nil (let* ((class (plist-get info :latex-class)) (level (org-export-get-relative-level headline info)) (numberedp (org-export-numbered-headline-p headline info)) (class-sectionning (assoc class org-latex-classes)) (section-fmt (let ((sec (if ... ... ...))) (cond ((not sec) nil) ((stringp sec) (concat sec "\n%s")) ((not ...) (concat ... "\n%s")) ((= ... 2) (if numberedp ...)) ((= ... 4) (if numberedp ... ...))))) (text (org-export-data (org-element-property :title headline) info)) (todo (and (plist-get info :with-todo-keywords) (let ((todo ...)) (and todo (org-export-data todo info))))) (todo-type (and todo (org-element-property :todo-type headline))) (tags (and (plist-get info :with-tags) (org-export-get-tags headline info))) (priority (and (plist-get info :with-priority) (org-element-property :priority headline))) (full-text (funcall org-latex-format-headline-function todo todo-type priority text tags)) (headline-label (format "\\label{sec-%s}\n" (mapconcat (quote number-to-string) (org-export-get-headline-number headline info) "-"))) (pre-blanks (make-string (org-element-property :pre-blank headline) 10))) (if (or (not section-fmt) (org-export-low-level-p headline info)) (let ((low-level-body (concat (if ... ...) "\\item " full-text "\n" headline-label pre-blanks contents))) (if (not (org-export-last-sibling-p headline info)) low-level-body (replace-regexp-in-string "[ \n]*\\'" (format "\n\\\\end{%s}" (if numberedp ... ...)) low-level-body))) (let ((opt-title (funcall org-latex-format-headline-function todo todo-type priority (org-export-data ... info) (and ... tags)))) (if (and numberedp opt-title (not (equal opt-title full-text)) (string-match "\\`\\\\\\(.*?[^*]\\){" section-fmt)) (format (replace-match "\\1[%s]" nil nil section-fmt 1) (replace-regexp-in-string "\\[" "(" (replace-regexp-in-string "\\]" ")" opt-title)) full-text (concat headline-label pre-blanks contents)) (format section-fmt full-text (concat headline-label pre-blanks contents)))))))
org-latex-headline((headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 (:parent #0))) :parent (org-data nil (section (:begin 1 :end 74 :contents-begin 1 :contents-end 73 :post-blank 1 :parent #2) (keyword (:key "TITLE" :value "ECM" :begin 1 :end 18 :post-blank 0 :post-affiliated 1 :parent #3)) (keyword (:key "OPTIONS" :value "H:2 texht:t toc:nil" :begin 18 :end 49 :post-blank 0 :post-affiliated 18 :parent #3)) (keyword (:key "BEAMER_THEME" :value "default" :begin 49 :end 73 :post-blank 0 :post-affiliated 49 :parent #3))) #0 (headline (:raw-value "Données" :begin 140 :end 189 :pre-blank 1 :contents-begin 151 :contents-end 189 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Données" 0 7 (:parent #3))) :parent #2) (headline (:raw-value "Données" :begin 151 :end 189 :pre-blank 1 :contents-begin 163 :contents-end 189 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY nil :title (#("Données" 0 7 ...)) :parent #3) (section (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :parent #4) (paragraph (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :post-affiliated 163 :parent #5) #("Nombre de " 0 10 ...) (bold ... #("variables" 0 9 ...)) #("...\n" 0 4 ...))))))) (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #1))) :parent #0) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #1) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #2) #("Rechercher les " 0 15 (:parent #3)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #3) #("composants" 0 10 (:parent #4))) #("qui ...\n" 0 8 (:parent #3)))))) #("\\begin{frame}[label=sec-1-1]{Objectifs}\nRechercher les \\alert{composants} qui \\ldots{}\n\\end{frame}\n" 29 38 (:parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #2))) :parent (headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 ...)) :parent (org-data nil (section ... ... ... ...) #4 (headline ... ...))) #2)) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #2) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #3) #("Rechercher les " 0 15 (:parent #4)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #4) #("composants" 0 10 (:parent #5))) #("qui ...\n" 0 8 (:parent #4)))))) 40 55 (:parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title ... :parent ...) #4)) #2)) #("Rechercher les " 0 15 (:parent #2)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #2) #("composants" 0 10 (:parent #3))) #("qui ...\n" 0 8 (:parent #2)))) 62 72 (:parent (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent ...) #4)) #("Rechercher les " 0 15 (:parent #4)) #2 #("qui ...\n" 0 8 (:parent #4)))) #("composants" 0 10 (:parent #2)))) 74 78 (:parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title ... :parent ...) #4)) #2)) #("Rechercher les " 0 15 (:parent #2)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #2) #("composants" 0 10 (:parent #3))) #("qui ...\n" 0 8 (:parent #2))))) (:export-options nil :input-buffer "ecm.txt" :input-file "d:/Users/fni/Projects/Institutions/Forem/Pfi/PFI/SlideWare/Facteurs-reussite/ecm.txt" :title ("ECM") :beamer-theme "default" :headline-levels 2 :latex-class "beamer" :latex-hyperref-p t :date ((latex-fragment (:value "\\today" :begin 1 :end 7 :post-blank 0 :parent #1))) :author ("Fabrice Niessen") :creator "Emacs 24.3.50.1 (Org mode 8.2.1)" :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :exclude-tags ("noexport") :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-date t :with-drawers (not "LOGBOOK") :with-email nil ...))
funcall(org-latex-headline (headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 (:parent #0))) :parent (org-data nil (section (:begin 1 :end 74 :contents-begin 1 :contents-end 73 :post-blank 1 :parent #2) (keyword (:key "TITLE" :value "ECM" :begin 1 :end 18 :post-blank 0 :post-affiliated 1 :parent #3)) (keyword (:key "OPTIONS" :value "H:2 texht:t toc:nil" :begin 18 :end 49 :post-blank 0 :post-affiliated 18 :parent #3)) (keyword (:key "BEAMER_THEME" :value "default" :begin 49 :end 73 :post-blank 0 :post-affiliated 49 :parent #3))) #0 (headline (:raw-value "Données" :begin 140 :end 189 :pre-blank 1 :contents-begin 151 :contents-end 189 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Données" 0 7 (:parent #3))) :parent #2) (headline (:raw-value "Données" :begin 151 :end 189 :pre-blank 1 :contents-begin 163 :contents-end 189 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY nil :title (#("Données" 0 7 ...)) :parent #3) (section (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :parent #4) (paragraph (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :post-affiliated 163 :parent #5) #("Nombre de " 0 10 ...) (bold ... #("variables" 0 9 ...)) #("...\n" 0 4 ...))))))) (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #1))) :parent #0) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #1) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #2) #("Rechercher les " 0 15 (:parent #3)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #3) #("composants" 0 10 (:parent #4))) #("qui ...\n" 0 8 (:parent #3)))))) #("\\begin{frame}[label=sec-1-1]{Objectifs}\nRechercher les \\alert{composants} qui \\ldots{}\n\\end{frame}\n" 29 38 (:parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #2))) :parent (headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 ...)) :parent (org-data nil (section ... ... ... ...) #4 (headline ... ...))) #2)) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #2) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #3) #("Rechercher les " 0 15 (:parent #4)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #4) #("composants" 0 10 (:parent #5))) #("qui ...\n" 0 8 (:parent #4)))))) 40 55 (:parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title ... :parent ...) #4)) #2)) #("Rechercher les " 0 15 (:parent #2)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #2) #("composants" 0 10 (:parent #3))) #("qui ...\n" 0 8 (:parent #2)))) 62 72 (:parent (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent ...) #4)) #("Rechercher les " 0 15 (:parent #4)) #2 #("qui ...\n" 0 8 (:parent #4)))) #("composants" 0 10 (:parent #2)))) 74 78 (:parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title ... :parent ...) #4)) #2)) #("Rechercher les " 0 15 (:parent #2)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #2) #("composants" 0 10 (:parent #3))) #("qui ...\n" 0 8 (:parent #2))))) (:export-options nil :input-buffer "ecm.txt" :input-file "d:/Users/fni/Projects/Institutions/Forem/Pfi/PFI/SlideWare/Facteurs-reussite/ecm.txt" :title ("ECM") :beamer-theme "default" :headline-levels 2 :latex-class "beamer" :latex-hyperref-p t :date ((latex-fragment (:value "\\today" :begin 1 :end 7 :post-blank 0 :parent #1))) :author ("Fabrice Niessen") :creator "Emacs 24.3.50.1 (Org mode 8.2.1)" :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :exclude-tags ("noexport") :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-date t :with-drawers (not "LOGBOOK") :with-email nil ...))
(if (not (functionp transcoder)) (error "No foreign transcoder available") (funcall transcoder data contents (org-combine-plists info (list :back-end backend :translate-alist all-transcoders :exported-data (make-hash-table :test (quote eq) :size 401)))))
(let* ((all-transcoders (org-export-get-all-transcoders backend)) (transcoder (cdr (assq type all-transcoders)))) (if (not (functionp transcoder)) (error "No foreign transcoder available") (funcall transcoder data contents (org-combine-plists info (list :back-end backend :translate-alist all-transcoders :exported-data (make-hash-table :test (quote eq) :size 401))))))
(if (memq type (quote (nil org-data))) (error "No foreign transcoder available") (let* ((all-transcoders (org-export-get-all-transcoders backend)) (transcoder (cdr (assq type all-transcoders)))) (if (not (functionp transcoder)) (error "No foreign transcoder available") (funcall transcoder data contents (org-combine-plists info (list :back-end backend :translate-alist all-transcoders :exported-data (make-hash-table :test (quote eq) :size 401)))))))
(let ((type (org-element-type data))) (if (memq type (quote (nil org-data))) (error "No foreign transcoder available") (let* ((all-transcoders (org-export-get-all-transcoders backend)) (transcoder (cdr (assq type all-transcoders)))) (if (not (functionp transcoder)) (error "No foreign transcoder available") (funcall transcoder data contents (org-combine-plists info (list :back-end backend :translate-alist all-transcoders :exported-data (make-hash-table :test ... :size 401))))))))
org-export-with-backend([cl-struct-org-export-backend nil latex ((bold lambda (object contents info) (let ((code (org-export-with-backend (quote beamer) object contents info))) (if (org-string-nw-p code) (concat "\\protect" code) code))) (footnote-reference lambda (object contents info) (let ((code (org-export-with-backend (quote beamer) object contents info))) (if (org-string-nw-p code) (concat "\\protect" code) code))) (italic lambda (object contents info) (let ((code (org-export-with-backend (quote beamer) object contents info))) (if (org-string-nw-p code) (concat "\\protect" code) code))) (strike-through lambda (object contents info) (let ((code (org-export-with-backend (quote beamer) object contents info))) (if (org-string-nw-p code) (concat "\\protect" code) code))) (timestamp lambda (object contents info) (let ((code (org-export-with-backend (quote beamer) object contents info))) (if (org-string-nw-p code) (concat "\\protect" code) code))) (underline lambda (object contents info) (let ((code (org-export-with-backend (quote beamer) object contents info))) (if (org-string-nw-p code) (concat "\\protect" code) code)))) nil nil nil nil] (headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 (:parent #0))) :parent (org-data nil (section (:begin 1 :end 74 :contents-begin 1 :contents-end 73 :post-blank 1 :parent #2) (keyword (:key "TITLE" :value "ECM" :begin 1 :end 18 :post-blank 0 :post-affiliated 1 :parent #3)) (keyword (:key "OPTIONS" :value "H:2 texht:t toc:nil" :begin 18 :end 49 :post-blank 0 :post-affiliated 18 :parent #3)) (keyword (:key "BEAMER_THEME" :value "default" :begin 49 :end 73 :post-blank 0 :post-affiliated 49 :parent #3))) #0 (headline (:raw-value "Données" :begin 140 :end 189 :pre-blank 1 :contents-begin 151 :contents-end 189 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Données" 0 7 (:parent #3))) :parent #2) (headline (:raw-value "Données" :begin 151 :end 189 :pre-blank 1 :contents-begin 163 :contents-end 189 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY nil :title (#("Données" 0 7 ...)) :parent #3) (section (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :parent #4) (paragraph (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :post-affiliated 163 :parent #5) #("Nombre de " 0 10 ...) (bold ... #("variables" 0 9 ...)) #("...\n" 0 4 ...))))))) (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #1))) :parent #0) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #1) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #2) #("Rechercher les " 0 15 (:parent #3)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #3) #("composants" 0 10 (:parent #4))) #("qui ...\n" 0 8 (:parent #3)))))) #("\\begin{frame}[label=sec-1-1]{Objectifs}\nRechercher les \\alert{composants} qui \\ldots{}\n\\end{frame}\n" 29 38 (:parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #2))) :parent (headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 ...)) :parent (org-data nil (section ... ... ... ...) #4 (headline ... ...))) #2)) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #2) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #3) #("Rechercher les " 0 15 (:parent #4)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #4) #("composants" 0 10 (:parent #5))) #("qui ...\n" 0 8 (:parent #4)))))) 40 55 (:parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title ... :parent ...) #4)) #2)) #("Rechercher les " 0 15 (:parent #2)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #2) #("composants" 0 10 (:parent #3))) #("qui ...\n" 0 8 (:parent #2)))) 62 72 (:parent (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent ...) #4)) #("Rechercher les " 0 15 (:parent #4)) #2 #("qui ...\n" 0 8 (:parent #4)))) #("composants" 0 10 (:parent #2)))) 74 78 (:parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title ... :parent ...) #4)) #2)) #("Rechercher les " 0 15 (:parent #2)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #2) #("composants" 0 10 (:parent #3))) #("qui ...\n" 0 8 (:parent #2))))) (:export-options nil :input-buffer "ecm.txt" :input-file "d:/Users/fni/Projects/Institutions/Forem/Pfi/PFI/SlideWare/Facteurs-reussite/ecm.txt" :title ("ECM") :beamer-theme "default" :headline-levels 2 :latex-class "beamer" :latex-hyperref-p t :date ((latex-fragment (:value "\\today" :begin 1 :end 7 :post-blank 0 :parent #1))) :author ("Fabrice Niessen") :creator "Emacs 24.3.50.1 (Org mode 8.2.1)" :email "fni@missioncriticalit.com" :exclude-tags ("noexport") :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-date t :with-drawers (not "LOGBOOK") :with-email nil ...))
(let ((latex-headline (org-export-with-backend (org-export-create-backend :parent (quote latex) :transcoders (let ((protected-output ...)) (mapcar (function ...) (quote ...)))) headline contents info)) (mode-specs (org-element-property :BEAMER_ACT headline))) (if (and mode-specs (string-match "\\`\\\\\\(.*?\\)\\(?:\\*\\|\\[.*\\]\\)?{" latex-headline)) (replace-match (concat (match-string 1 latex-headline) (format "<%s>" mode-specs)) nil nil latex-headline 1) latex-headline))
org-beamer--format-section((headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 (:parent #0))) :parent (org-data nil (section (:begin 1 :end 74 :contents-begin 1 :contents-end 73 :post-blank 1 :parent #2) (keyword (:key "TITLE" :value "ECM" :begin 1 :end 18 :post-blank 0 :post-affiliated 1 :parent #3)) (keyword (:key "OPTIONS" :value "H:2 texht:t toc:nil" :begin 18 :end 49 :post-blank 0 :post-affiliated 18 :parent #3)) (keyword (:key "BEAMER_THEME" :value "default" :begin 49 :end 73 :post-blank 0 :post-affiliated 49 :parent #3))) #0 (headline (:raw-value "Données" :begin 140 :end 189 :pre-blank 1 :contents-begin 151 :contents-end 189 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Données" 0 7 (:parent #3))) :parent #2) (headline (:raw-value "Données" :begin 151 :end 189 :pre-blank 1 :contents-begin 163 :contents-end 189 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY nil :title (#("Données" 0 7 ...)) :parent #3) (section (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :parent #4) (paragraph (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :post-affiliated 163 :parent #5) #("Nombre de " 0 10 ...) (bold ... #("variables" 0 9 ...)) #("...\n" 0 4 ...))))))) (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #1))) :parent #0) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #1) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #2) #("Rechercher les " 0 15 (:parent #3)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #3) #("composants" 0 10 (:parent #4))) #("qui ...\n" 0 8 (:parent #3)))))) #("\\begin{frame}[label=sec-1-1]{Objectifs}\nRechercher les \\alert{composants} qui \\ldots{}\n\\end{frame}\n" 29 38 (:parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #2))) :parent (headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 ...)) :parent (org-data nil (section ... ... ... ...) #4 (headline ... ...))) #2)) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #2) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #3) #("Rechercher les " 0 15 (:parent #4)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #4) #("composants" 0 10 (:parent #5))) #("qui ...\n" 0 8 (:parent #4)))))) 40 55 (:parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title ... :parent ...) #4)) #2)) #("Rechercher les " 0 15 (:parent #2)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #2) #("composants" 0 10 (:parent #3))) #("qui ...\n" 0 8 (:parent #2)))) 62 72 (:parent (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent ...) #4)) #("Rechercher les " 0 15 (:parent #4)) #2 #("qui ...\n" 0 8 (:parent #4)))) #("composants" 0 10 (:parent #2)))) 74 78 (:parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title ... :parent ...) #4)) #2)) #("Rechercher les " 0 15 (:parent #2)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #2) #("composants" 0 10 (:parent #3))) #("qui ...\n" 0 8 (:parent #2))))) (:export-options nil :input-buffer "ecm.txt" :input-file "d:/Users/fni/Projects/Institutions/Forem/Pfi/PFI/SlideWare/Facteurs-reussite/ecm.txt" :title ("ECM") :beamer-theme "default" :headline-levels 2 :latex-class "beamer" :latex-hyperref-p t :date ((latex-fragment (:value "\\today" :begin 1 :end 7 :post-blank 0 :parent #1))) :author ("Fabrice Niessen") :creator "Emacs 24.3.50.1 (Org mode 8.2.1)" :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :exclude-tags ("noexport") :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-date t :with-drawers (not "LOGBOOK") :with-email nil ...))
(cond ((equal environment "againframe") (let ((ref (org-element-property :BEAMER_REF headline))) (if (org-string-nw-p ref) (progn (concat "\\againframe" (let (...) (if overlay ...)) (let (...) (if options ...)) (let* (... ... ...) (format "{%s}" ...))))))) ((equal environment "appendix") (concat "\\appendix" (org-element-property :BEAMER_ACT headline) "\n" (make-string (org-element-property :pre-blank headline) 10) contents)) ((equal environment "ignoreheading") (concat (make-string (org-element-property :pre-blank headline) 10) contents)) ((member environment (quote ("note" "noteNH"))) (format "\\note{%s}" (concat (and (equal environment "note") (concat (org-export-data (org-element-property :title headline) info) "\n")) (org-trim contents)))) ((= level frame-level) (org-beamer--format-frame headline contents info)) ((< level frame-level) (org-beamer--format-section headline contents info)) (t (org-beamer--format-block headline contents info)))
(let ((level (org-export-get-relative-level headline info)) (frame-level (org-beamer--frame-level headline info)) (environment (let ((env (org-element-property :BEAMER_ENV headline))) (or (org-string-nw-p env) "block")))) (cond ((equal environment "againframe") (let ((ref (org-element-property :BEAMER_REF headline))) (if (org-string-nw-p ref) (progn (concat "\\againframe" (let ... ...) (let ... ...) (let* ... ...)))))) ((equal environment "appendix") (concat "\\appendix" (org-element-property :BEAMER_ACT headline) "\n" (make-string (org-element-property :pre-blank headline) 10) contents)) ((equal environment "ignoreheading") (concat (make-string (org-element-property :pre-blank headline) 10) contents)) ((member environment (quote ("note" "noteNH"))) (format "\\note{%s}" (concat (and (equal environment "note") (concat (org-export-data ... info) "\n")) (org-trim contents)))) ((= level frame-level) (org-beamer--format-frame headline contents info)) ((< level frame-level) (org-beamer--format-section headline contents info)) (t (org-beamer--format-block headline contents info))))
(if (org-element-property :footnote-section-p headline) nil (let ((level (org-export-get-relative-level headline info)) (frame-level (org-beamer--frame-level headline info)) (environment (let ((env (org-element-property :BEAMER_ENV headline))) (or (org-string-nw-p env) "block")))) (cond ((equal environment "againframe") (let ((ref (org-element-property :BEAMER_REF headline))) (if (org-string-nw-p ref) (progn (concat "\\againframe" ... ... ...))))) ((equal environment "appendix") (concat "\\appendix" (org-element-property :BEAMER_ACT headline) "\n" (make-string (org-element-property :pre-blank headline) 10) contents)) ((equal environment "ignoreheading") (concat (make-string (org-element-property :pre-blank headline) 10) contents)) ((member environment (quote ("note" "noteNH"))) (format "\\note{%s}" (concat (and (equal environment "note") (concat ... "\n")) (org-trim contents)))) ((= level frame-level) (org-beamer--format-frame headline contents info)) ((< level frame-level) (org-beamer--format-section headline contents info)) (t (org-beamer--format-block headline contents info)))))
org-beamer-headline((headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 (:parent #0))) :parent (org-data nil (section (:begin 1 :end 74 :contents-begin 1 :contents-end 73 :post-blank 1 :parent #2) (keyword (:key "TITLE" :value "ECM" :begin 1 :end 18 :post-blank 0 :post-affiliated 1 :parent #3)) (keyword (:key "OPTIONS" :value "H:2 texht:t toc:nil" :begin 18 :end 49 :post-blank 0 :post-affiliated 18 :parent #3)) (keyword (:key "BEAMER_THEME" :value "default" :begin 49 :end 73 :post-blank 0 :post-affiliated 49 :parent #3))) #0 (headline (:raw-value "Données" :begin 140 :end 189 :pre-blank 1 :contents-begin 151 :contents-end 189 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Données" 0 7 (:parent #3))) :parent #2) (headline (:raw-value "Données" :begin 151 :end 189 :pre-blank 1 :contents-begin 163 :contents-end 189 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY nil :title (#("Données" 0 7 ...)) :parent #3) (section (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :parent #4) (paragraph (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :post-affiliated 163 :parent #5) #("Nombre de " 0 10 ...) (bold ... #("variables" 0 9 ...)) #("...\n" 0 4 ...))))))) (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #1))) :parent #0) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #1) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #2) #("Rechercher les " 0 15 (:parent #3)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #3) #("composants" 0 10 (:parent #4))) #("qui ...\n" 0 8 (:parent #3)))))) #("\\begin{frame}[label=sec-1-1]{Objectifs}\nRechercher les \\alert{composants} qui \\ldots{}\n\\end{frame}\n" 29 38 (:parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #2))) :parent (headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 ...)) :parent (org-data nil (section ... ... ... ...) #4 (headline ... ...))) #2)) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #2) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #3) #("Rechercher les " 0 15 (:parent #4)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #4) #("composants" 0 10 (:parent #5))) #("qui ...\n" 0 8 (:parent #4)))))) 40 55 (:parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title ... :parent ...) #4)) #2)) #("Rechercher les " 0 15 (:parent #2)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #2) #("composants" 0 10 (:parent #3))) #("qui ...\n" 0 8 (:parent #2)))) 62 72 (:parent (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent ...) #4)) #("Rechercher les " 0 15 (:parent #4)) #2 #("qui ...\n" 0 8 (:parent #4)))) #("composants" 0 10 (:parent #2)))) 74 78 (:parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title ... :parent ...) #4)) #2)) #("Rechercher les " 0 15 (:parent #2)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #2) #("composants" 0 10 (:parent #3))) #("qui ...\n" 0 8 (:parent #2))))) (:export-options nil :input-buffer "ecm.txt" :input-file "d:/Users/fni/Projects/Institutions/Forem/Pfi/PFI/SlideWare/Facteurs-reussite/ecm.txt" :title ("ECM") :beamer-theme "default" :headline-levels 2 :latex-class "beamer" :latex-hyperref-p t :date ((latex-fragment (:value "\\today" :begin 1 :end 7 :post-blank 0 :parent #1))) :author ("Fabrice Niessen") :creator "Emacs 24.3.50.1 (Org mode 8.2.1)" :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :exclude-tags ("noexport") :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-date t :with-drawers (not "LOGBOOK") :with-email nil ...))
funcall(org-beamer-headline (headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 (:parent #0))) :parent (org-data nil (section (:begin 1 :end 74 :contents-begin 1 :contents-end 73 :post-blank 1 :parent #2) (keyword (:key "TITLE" :value "ECM" :begin 1 :end 18 :post-blank 0 :post-affiliated 1 :parent #3)) (keyword (:key "OPTIONS" :value "H:2 texht:t toc:nil" :begin 18 :end 49 :post-blank 0 :post-affiliated 18 :parent #3)) (keyword (:key "BEAMER_THEME" :value "default" :begin 49 :end 73 :post-blank 0 :post-affiliated 49 :parent #3))) #0 (headline (:raw-value "Données" :begin 140 :end 189 :pre-blank 1 :contents-begin 151 :contents-end 189 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Données" 0 7 (:parent #3))) :parent #2) (headline (:raw-value "Données" :begin 151 :end 189 :pre-blank 1 :contents-begin 163 :contents-end 189 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY nil :title (#("Données" 0 7 ...)) :parent #3) (section (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :parent #4) (paragraph (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :post-affiliated 163 :parent #5) #("Nombre de " 0 10 ...) (bold ... #("variables" 0 9 ...)) #("...\n" 0 4 ...))))))) (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #1))) :parent #0) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #1) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #2) #("Rechercher les " 0 15 (:parent #3)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #3) #("composants" 0 10 (:parent #4))) #("qui ...\n" 0 8 (:parent #3)))))) #("\\begin{frame}[label=sec-1-1]{Objectifs}\nRechercher les \\alert{composants} qui \\ldots{}\n\\end{frame}\n" 29 38 (:parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #2))) :parent (headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 ...)) :parent (org-data nil (section ... ... ... ...) #4 (headline ... ...))) #2)) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #2) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #3) #("Rechercher les " 0 15 (:parent #4)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #4) #("composants" 0 10 (:parent #5))) #("qui ...\n" 0 8 (:parent #4)))))) 40 55 (:parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title ... :parent ...) #4)) #2)) #("Rechercher les " 0 15 (:parent #2)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #2) #("composants" 0 10 (:parent #3))) #("qui ...\n" 0 8 (:parent #2)))) 62 72 (:parent (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent ...) #4)) #("Rechercher les " 0 15 (:parent #4)) #2 #("qui ...\n" 0 8 (:parent #4)))) #("composants" 0 10 (:parent #2)))) 74 78 (:parent (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title ... :parent ...) #4)) #2)) #("Rechercher les " 0 15 (:parent #2)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #2) #("composants" 0 10 (:parent #3))) #("qui ...\n" 0 8 (:parent #2))))) (:export-options nil :input-buffer "ecm.txt" :input-file "d:/Users/fni/Projects/Institutions/Forem/Pfi/PFI/SlideWare/Facteurs-reussite/ecm.txt" :title ("ECM") :beamer-theme "default" :headline-levels 2 :latex-class "beamer" :latex-hyperref-p t :date ((latex-fragment (:value "\\today" :begin 1 :end 7 :post-blank 0 :parent #1))) :author ("Fabrice Niessen") :creator "Emacs 24.3.50.1 (Org mode 8.2.1)" :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :exclude-tags ("noexport") :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-date t :with-drawers (not "LOGBOOK") :with-email nil ...))
(let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat (function (lambda (element) (org-export-data element info))) (org-element-contents (if (or greaterp objectp) data (org-element-normalize-contents data (if ... ...)))) ""))) (funcall transcoder data (if (not greaterp) contents (org-element-normalize-string contents)) info))
(progn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat (function (lambda (element) (org-export-data element info))) (org-element-contents (if (or greaterp objectp) data (org-element-normalize-contents data ...))) ""))) (funcall transcoder data (if (not greaterp) contents (org-element-normalize-string contents)) info)))
(if transcoder (progn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat (function (lambda ... ...)) (org-element-contents (if ... data ...)) ""))) (funcall transcoder data (if (not greaterp) contents (org-element-normalize-string contents)) info))))
(let ((transcoder (org-export-transcoder data info))) (if transcoder (progn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat (function ...) (org-element-contents ...) ""))) (funcall transcoder data (if (not greaterp) contents (org-element-normalize-string contents)) info)))))
(cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote plain-text)) (org-export-filter-apply-functions (plist-get info :filter-plain-text) (let ((transcoder (org-export-transcoder data info))) (if transcoder (funcall transcoder data info) data)) info)) ((not (org-export--interpret-p data info)) (org-export-data (org-export-expand data (mapconcat (function (lambda (blob) (org-export-data blob info))) (org-element-contents data) "")) info)) ((not type) (mapconcat (function (lambda (obj) (org-export-data obj info))) data "")) ((or (not (org-element-contents data)) (and (eq type (quote headline)) (eq (plist-get info :with-archived-trees) (quote headline)) (org-element-property :archivedp data))) (let ((transcoder (org-export-transcoder data info))) (or (and (functionp transcoder) (funcall transcoder data nil info)) (and (eq type (quote export-snippet)) "")))) (t (let ((transcoder (org-export-transcoder data info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...) (contents ...)) (funcall transcoder data (if ... contents ...) info)))))))
(let* ((type (org-element-type data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote plain-text)) (org-export-filter-apply-functions (plist-get info :filter-plain-text) (let (...) (if transcoder ... data)) info)) ((not (org-export--interpret-p data info)) (org-export-data (org-export-expand data (mapconcat ... ... "")) info)) ((not type) (mapconcat (function (lambda ... ...)) data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq ... ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (or (and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (progn ...))))))) (puthash data (cond ((not results) nil) ((memq type (quote (org-data plain-text nil))) results) (t (let ((results (org-export-filter-apply-functions ... ... info))) results))) (plist-get info :exported-data)))
(if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote plain-text)) (org-export-filter-apply-functions (plist-get info :filter-plain-text) (let ... ...) info)) ((not (org-export--interpret-p data info)) (org-export-data (org-export-expand data ...) info)) ((not type) (mapconcat (function ...) data "")) ((or (not ...) (and ... ... ...)) (let (...) (or ... ...))) (t (let (...) (if transcoder ...)))))) (puthash data (cond ((not results) nil) ((memq type (quote (org-data plain-text nil))) results) (t (let ((results ...)) results))) (plist-get info :exported-data))))
(let ((memo (gethash data (plist-get info :exported-data) (quote no-memo)))) (if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type data)) (results (cond ((memq data ...) nil) ((eq type ...) (org-export-filter-apply-functions ... ... info)) ((not ...) (org-export-data ... info)) ((not type) (mapconcat ... data "")) ((or ... ...) (let ... ...)) (t (let ... ...))))) (puthash data (cond ((not results) nil) ((memq type (quote ...)) results) (t (let (...) results))) (plist-get info :exported-data)))))
org-export-data((headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 (:parent #0))) :parent (org-data nil (section (:begin 1 :end 74 :contents-begin 1 :contents-end 73 :post-blank 1 :parent #2) (keyword (:key "TITLE" :value "ECM" :begin 1 :end 18 :post-blank 0 :post-affiliated 1 :parent #3)) (keyword (:key "OPTIONS" :value "H:2 texht:t toc:nil" :begin 18 :end 49 :post-blank 0 :post-affiliated 18 :parent #3)) (keyword (:key "BEAMER_THEME" :value "default" :begin 49 :end 73 :post-blank 0 :post-affiliated 49 :parent #3))) #0 (headline (:raw-value "Données" :begin 140 :end 189 :pre-blank 1 :contents-begin 151 :contents-end 189 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Données" 0 7 (:parent #3))) :parent #2) (headline (:raw-value "Données" :begin 151 :end 189 :pre-blank 1 :contents-begin 163 :contents-end 189 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY nil :title (#("Données" 0 7 ...)) :parent #3) (section (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :parent #4) (paragraph (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :post-affiliated 163 :parent #5) #("Nombre de " 0 10 ...) (bold ... #("variables" 0 9 ...)) #("...\n" 0 4 ...))))))) (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #1))) :parent #0) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #1) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #2) #("Rechercher les " 0 15 (:parent #3)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #3) #("composants" 0 10 (:parent #4))) #("qui ...\n" 0 8 (:parent #3)))))) (:export-options nil :input-buffer "ecm.txt" :input-file "d:/Users/fni/Projects/Institutions/Forem/Pfi/PFI/SlideWare/Facteurs-reussite/ecm.txt" :title ("ECM") :beamer-theme "default" :headline-levels 2 :latex-class "beamer" :latex-hyperref-p t :date ((latex-fragment (:value "\\today" :begin 1 :end 7 :post-blank 0 :parent #1))) :author ("Fabrice Niessen") :creator "Emacs 24.3.50.1 (Org mode 8.2.1)" :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :exclude-tags ("noexport") :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-date t :with-drawers (not "LOGBOOK") :with-email nil ...))
(lambda (element) (org-export-data element info))((headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 (:parent #0))) :parent (org-data nil (section (:begin 1 :end 74 :contents-begin 1 :contents-end 73 :post-blank 1 :parent #2) (keyword (:key "TITLE" :value "ECM" :begin 1 :end 18 :post-blank 0 :post-affiliated 1 :parent #3)) (keyword (:key "OPTIONS" :value "H:2 texht:t toc:nil" :begin 18 :end 49 :post-blank 0 :post-affiliated 18 :parent #3)) (keyword (:key "BEAMER_THEME" :value "default" :begin 49 :end 73 :post-blank 0 :post-affiliated 49 :parent #3))) #0 (headline (:raw-value "Données" :begin 140 :end 189 :pre-blank 1 :contents-begin 151 :contents-end 189 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Données" 0 7 (:parent #3))) :parent #2) (headline (:raw-value "Données" :begin 151 :end 189 :pre-blank 1 :contents-begin 163 :contents-end 189 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY nil :title (#("Données" 0 7 ...)) :parent #3) (section (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :parent #4) (paragraph (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :post-affiliated 163 :parent #5) #("Nombre de " 0 10 ...) (bold ... #("variables" 0 9 ...)) #("...\n" 0 4 ...))))))) (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #1))) :parent #0) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #1) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #2) #("Rechercher les " 0 15 (:parent #3)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #3) #("composants" 0 10 (:parent #4))) #("qui ...\n" 0 8 (:parent #3)))))))
mapconcat((lambda (element) (org-export-data element info)) ((section (:begin 1 :end 74 :contents-begin 1 :contents-end 73 :post-blank 1 :parent (org-data nil #1 (headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 ...)) :parent #3) (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 ...)) :parent #4) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #5) (paragraph ... #("Rechercher les " 0 15 ...) ... #("qui ...\n" 0 8 ...))))) (headline (:raw-value "Données" :begin 140 :end 189 :pre-blank 1 :contents-begin 151 :contents-end 189 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Données" 0 7 ...)) :parent #3) (headline (:raw-value "Données" :begin 151 :end 189 :pre-blank 1 :contents-begin 163 :contents-end 189 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY nil :title (#("Données" 0 7 ...)) :parent #4) (section (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :parent #5) (paragraph ... #("Nombre de " 0 10 ...) ... #("...\n" 0 4 ...))))))) (keyword (:key "TITLE" :value "ECM" :begin 1 :end 18 :post-blank 0 :post-affiliated 1 :parent #1)) (keyword (:key "OPTIONS" :value "H:2 texht:t toc:nil" :begin 18 :end 49 :post-blank 0 :post-affiliated 18 :parent #1)) (keyword (:key "BEAMER_THEME" :value "default" :begin 49 :end 73 :post-blank 0 :post-affiliated 49 :parent #1))) (headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 (:parent #1))) :parent (org-data nil (section (:begin 1 :end 74 :contents-begin 1 :contents-end 73 :post-blank 1 :parent #3) (keyword (:key "TITLE" :value "ECM" :begin 1 :end 18 :post-blank 0 :post-affiliated 1 :parent #4)) (keyword (:key "OPTIONS" :value "H:2 texht:t toc:nil" :begin 18 :end 49 :post-blank 0 :post-affiliated 18 :parent #4)) (keyword (:key "BEAMER_THEME" :value "default" :begin 49 :end 73 :post-blank 0 :post-affiliated 49 :parent #4))) #1 (headline (:raw-value "Données" :begin 140 :end 189 :pre-blank 1 :contents-begin 151 :contents-end 189 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Données" 0 7 ...)) :parent #3) (headline (:raw-value "Données" :begin 151 :end 189 :pre-blank 1 :contents-begin 163 :contents-end 189 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY nil :title (#("Données" 0 7 ...)) :parent #4) (section (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :parent #5) (paragraph ... #("Nombre de " 0 10 ...) ... #("...\n" 0 4 ...))))))) (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #2))) :parent #1) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #2) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #3) #("Rechercher les " 0 15 (:parent #4)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #4) #("composants" 0 10 (:parent #5))) #("qui ...\n" 0 8 (:parent #4)))))) (headline (:raw-value "Données" :begin 140 :end 189 :pre-blank 1 :contents-begin 151 :contents-end 189 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Données" 0 7 (:parent #1))) :parent (org-data nil (section (:begin 1 :end 74 :contents-begin 1 :contents-end 73 :post-blank 1 :parent #3) (keyword (:key "TITLE" :value "ECM" :begin 1 :end 18 :post-blank 0 :post-affiliated 1 :parent #4)) (keyword (:key "OPTIONS" :value "H:2 texht:t toc:nil" :begin 18 :end 49 :post-blank 0 :post-affiliated 18 :parent #4)) (keyword (:key "BEAMER_THEME" :value "default" :begin 49 :end 73 :post-blank 0 :post-affiliated 49 :parent #4))) (headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 ...)) :parent #3) (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 ...)) :parent #4) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #5) (paragraph ... #("Rechercher les " 0 15 ...) ... #("qui ...\n" 0 8 ...))))) #1)) (headline (:raw-value "Données" :begin 151 :end 189 :pre-blank 1 :contents-begin 163 :contents-end 189 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY nil :title (#("Données" 0 7 (:parent #2))) :parent #1) (section (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :parent #2) (paragraph (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :post-affiliated 163 :parent #3) #("Nombre de " 0 10 (:parent #4)) (bold (:begin 173 :end 185 :contents-begin 174 :contents-end 183 :post-blank 1 :parent #4) #("variables" 0 9 (:parent #5))) #("...\n" 0 4 (:parent #4))))))) "")
(let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat (function (lambda (element) (org-export-data element info))) (org-element-contents (if (or greaterp objectp) data (org-element-normalize-contents data (if ... ...)))) ""))) (funcall transcoder data (if (not greaterp) contents (org-element-normalize-string contents)) info))
(progn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat (function (lambda (element) (org-export-data element info))) (org-element-contents (if (or greaterp objectp) data (org-element-normalize-contents data ...))) ""))) (funcall transcoder data (if (not greaterp) contents (org-element-normalize-string contents)) info)))
(if transcoder (progn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat (function (lambda ... ...)) (org-element-contents (if ... data ...)) ""))) (funcall transcoder data (if (not greaterp) contents (org-element-normalize-string contents)) info))))
(let ((transcoder (org-export-transcoder data info))) (if transcoder (progn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat (function ...) (org-element-contents ...) ""))) (funcall transcoder data (if (not greaterp) contents (org-element-normalize-string contents)) info)))))
(cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote plain-text)) (org-export-filter-apply-functions (plist-get info :filter-plain-text) (let ((transcoder (org-export-transcoder data info))) (if transcoder (funcall transcoder data info) data)) info)) ((not (org-export--interpret-p data info)) (org-export-data (org-export-expand data (mapconcat (function (lambda (blob) (org-export-data blob info))) (org-element-contents data) "")) info)) ((not type) (mapconcat (function (lambda (obj) (org-export-data obj info))) data "")) ((or (not (org-element-contents data)) (and (eq type (quote headline)) (eq (plist-get info :with-archived-trees) (quote headline)) (org-element-property :archivedp data))) (let ((transcoder (org-export-transcoder data info))) (or (and (functionp transcoder) (funcall transcoder data nil info)) (and (eq type (quote export-snippet)) "")))) (t (let ((transcoder (org-export-transcoder data info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...) (contents ...)) (funcall transcoder data (if ... contents ...) info)))))))
(let* ((type (org-element-type data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote plain-text)) (org-export-filter-apply-functions (plist-get info :filter-plain-text) (let (...) (if transcoder ... data)) info)) ((not (org-export--interpret-p data info)) (org-export-data (org-export-expand data (mapconcat ... ... "")) info)) ((not type) (mapconcat (function (lambda ... ...)) data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq ... ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (or (and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (progn ...))))))) (puthash data (cond ((not results) nil) ((memq type (quote (org-data plain-text nil))) results) (t (let ((results (org-export-filter-apply-functions ... ... info))) results))) (plist-get info :exported-data)))
(if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote plain-text)) (org-export-filter-apply-functions (plist-get info :filter-plain-text) (let ... ...) info)) ((not (org-export--interpret-p data info)) (org-export-data (org-export-expand data ...) info)) ((not type) (mapconcat (function ...) data "")) ((or (not ...) (and ... ... ...)) (let (...) (or ... ...))) (t (let (...) (if transcoder ...)))))) (puthash data (cond ((not results) nil) ((memq type (quote (org-data plain-text nil))) results) (t (let ((results ...)) results))) (plist-get info :exported-data))))
(let ((memo (gethash data (plist-get info :exported-data) (quote no-memo)))) (if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type data)) (results (cond ((memq data ...) nil) ((eq type ...) (org-export-filter-apply-functions ... ... info)) ((not ...) (org-export-data ... info)) ((not type) (mapconcat ... data "")) ((or ... ...) (let ... ...)) (t (let ... ...))))) (puthash data (cond ((not results) nil) ((memq type (quote ...)) results) (t (let (...) results))) (plist-get info :exported-data)))))
org-export-data((org-data nil (section (:begin 1 :end 74 :contents-begin 1 :contents-end 73 :post-blank 1 :parent #0) (keyword (:key "TITLE" :value "ECM" :begin 1 :end 18 :post-blank 0 :post-affiliated 1 :parent #1)) (keyword (:key "OPTIONS" :value "H:2 texht:t toc:nil" :begin 18 :end 49 :post-blank 0 :post-affiliated 18 :parent #1)) (keyword (:key "BEAMER_THEME" :value "default" :begin 49 :end 73 :post-blank 0 :post-affiliated 49 :parent #1))) (headline (:raw-value "Description" :begin 74 :end 140 :pre-blank 1 :contents-begin 89 :contents-end 139 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Description" 0 11 (:parent #1))) :parent #0) (headline (:raw-value "Objectifs" :begin 89 :end 140 :pre-blank 1 :contents-begin 103 :contents-end 139 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Objectifs" 0 9 (:parent #2))) :parent #1) (section (:begin 103 :end 140 :contents-begin 103 :contents-end 139 :post-blank 1 :parent #2) (paragraph (:begin 103 :end 139 :contents-begin 103 :contents-end 139 :post-blank 0 :post-affiliated 103 :parent #3) #("Rechercher les " 0 15 (:parent #4)) (bold (:begin 118 :end 131 :contents-begin 119 :contents-end 129 :post-blank 1 :parent #4) #("composants" 0 10 (:parent #5))) #("qui ...\n" 0 8 (:parent #4)))))) (headline (:raw-value "Données" :begin 140 :end 189 :pre-blank 1 :contents-begin 151 :contents-end 189 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY "ecm" :title (#("Données" 0 7 (:parent #1))) :parent #0) (headline (:raw-value "Données" :begin 151 :end 189 :pre-blank 1 :contents-begin 163 :contents-end 189 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :CATEGORY nil :title (#("Données" 0 7 (:parent #2))) :parent #1) (section (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :parent #2) (paragraph (:begin 163 :end 189 :contents-begin 163 :contents-end 189 :post-blank 0 :post-affiliated 163 :parent #3) #("Nombre de " 0 10 (:parent #4)) (bold (:begin 173 :end 185 :contents-begin 174 :contents-end 183 :post-blank 1 :parent #4) #("variables" 0 9 (:parent #5))) #("...\n" 0 4 (:parent #4))))))) (:export-options nil :input-buffer "ecm.txt" :input-file "d:/Users/fni/Projects/Institutions/Forem/Pfi/PFI/SlideWare/Facteurs-reussite/ecm.txt" :title ("ECM") :beamer-theme "default" :headline-levels 2 :latex-class "beamer" :latex-hyperref-p t :date ((latex-fragment (:value "\\today" :begin 1 :end 7 :post-blank 0 :parent #1))) :author ("Fabrice Niessen") :creator "Emacs 24.3.50.1 (Org mode 8.2.1)" :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :exclude-tags ("noexport") :language "en" :preserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :with-archived-trees headline :with-author t :with-clocks nil :with-creator comment :with-date t :with-drawers (not "LOGBOOK") :with-email nil ...))
(or (org-export-data tree info) "")
(org-element-normalize-string (or (org-export-data tree info) ""))
(let* ((body (org-element-normalize-string (or (org-export-data tree info) ""))) (inner-template (cdr (assq (quote inner-template) (plist-get info :translate-alist)))) (full-body (if (not (functionp inner-template)) body (funcall inner-template body info))) (template (cdr (assq (quote template) (plist-get info :translate-alist))))) (org-no-properties (org-export-filter-apply-functions (plist-get info :filter-final-output) (if (or (not (functionp template)) body-only) full-body (funcall template full-body info)) info)))
(progn (run-hook-with-args (quote org-export-before-processing-hook) (progn (or (and (vectorp backend) (>= (length backend) 8) (memq (aref backend 0) cl-struct-org-export-backend-tags)) (error "%s accessing a non-%s" (quote org-export-backend-name) (quote org-export-backend))) (aref backend 1))) (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (org-export-execute-babel-code) (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args (quote org-export-before-parsing-hook) (progn (or (and (vectorp backend) (>= (length backend) 8) (memq (aref backend 0) cl-struct-org-export-backend-tags)) (error "%s accessing a non-%s" (quote org-export-backend-name) (quote org-export-backend))) (aref backend 1)))) (setq info (org-export-install-filters (org-combine-plists info (org-export-get-environment backend subtreep ext-plist)))) (org-macro-replace-all (list (cons "author" (org-element-interpret-data (plist-get info :author))) (cons "date" (org-element-interpret-data (plist-get info :date))) (cons "email" (or (plist-get info :email) "")) (cons "title" (org-element-interpret-data (plist-get info :title))))) (let ((backend-name (progn (or (and (vectorp backend) (>= ... 8) (memq ... cl-struct-org-export-backend-tags)) (error "%s accessing a non-%s" (quote org-export-backend-name) (quote org-export-backend))) (aref backend 1)))) (progn (let ((--dolist-tail-- (plist-get info :filter-options)) filter) (while --dolist-tail-- (setq filter (car --dolist-tail--)) (let ((result ...)) (if result (progn ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-buffer nil visible-only) info)) (setq info (org-combine-plists info (org-export-collect-tree-properties tree info))) (let* ((body (org-element-normalize-string (or (org-export-data tree info) ""))) (inner-template (cdr (assq (quote inner-template) (plist-get info :translate-alist)))) (full-body (if (not (functionp inner-template)) body (funcall inner-template body info))) (template (cdr (assq (quote template) (plist-get info :translate-alist))))) (org-no-properties (org-export-filter-apply-functions (plist-get info :filter-final-output) (if (or (not (functionp template)) body-only) full-body (funcall template full-body info)) info))))
(save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args (quote org-export-before-processing-hook) (progn (or (and (vectorp backend) (>= (length backend) 8) (memq (aref backend 0) cl-struct-org-export-backend-tags)) (error "%s accessing a non-%s" (quote org-export-backend-name) (quote org-export-backend))) (aref backend 1))) (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (org-export-execute-babel-code) (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args (quote org-export-before-parsing-hook) (progn (or (and (vectorp backend) (>= ... 8) (memq ... cl-struct-org-export-backend-tags)) (error "%s accessing a non-%s" (quote org-export-backend-name) (quote org-export-backend))) (aref backend 1)))) (setq info (org-export-install-filters (org-combine-plists info (org-export-get-environment backend subtreep ext-plist)))) (org-macro-replace-all (list (cons "author" (org-element-interpret-data (plist-get info :author))) (cons "date" (org-element-interpret-data (plist-get info :date))) (cons "email" (or (plist-get info :email) "")) (cons "title" (org-element-interpret-data (plist-get info :title))))) (let ((backend-name (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref backend 1)))) (progn (let ((--dolist-tail-- (plist-get info :filter-options)) filter) (while --dolist-tail-- (setq filter (car --dolist-tail--)) (let (...) (if result ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-buffer nil visible-only) info)) (setq info (org-combine-plists info (org-export-collect-tree-properties tree info))) (let* ((body (org-element-normalize-string (or (org-export-data tree info) ""))) (inner-template (cdr (assq (quote inner-template) (plist-get info :translate-alist)))) (full-body (if (not (functionp inner-template)) body (funcall inner-template body info))) (template (cdr (assq (quote template) (plist-get info :translate-alist))))) (org-no-properties (org-export-filter-apply-functions (plist-get info :filter-final-output) (if (or (not ...) body-only) full-body (funcall template full-body info)) info)))))
(unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args (quote org-export-before-processing-hook) (progn (or (and (vectorp backend) (>= ... 8) (memq ... cl-struct-org-export-backend-tags)) (error "%s accessing a non-%s" (quote org-export-backend-name) (quote org-export-backend))) (aref backend 1))) (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (org-export-execute-babel-code) (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args (quote org-export-before-parsing-hook) (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref backend 1)))) (setq info (org-export-install-filters (org-combine-plists info (org-export-get-environment backend subtreep ext-plist)))) (org-macro-replace-all (list (cons "author" (org-element-interpret-data (plist-get info :author))) (cons "date" (org-element-interpret-data (plist-get info :date))) (cons "email" (or (plist-get info :email) "")) (cons "title" (org-element-interpret-data (plist-get info :title))))) (let ((backend-name (progn (or ... ...) (aref backend 1)))) (progn (let ((--dolist-tail-- ...) filter) (while --dolist-tail-- (setq filter ...) (let ... ...) (setq --dolist-tail-- ...))))) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-buffer nil visible-only) info)) (setq info (org-combine-plists info (org-export-collect-tree-properties tree info))) (let* ((body (org-element-normalize-string (or ... ""))) (inner-template (cdr (assq ... ...))) (full-body (if (not ...) body (funcall inner-template body info))) (template (cdr (assq ... ...)))) (org-no-properties (org-export-filter-apply-functions (plist-get info :filter-final-output) (if (or ... body-only) full-body (funcall template full-body info)) info))))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy))))
(let ((--buf-copy (org-export-copy-buffer))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args (quote org-export-before-processing-hook) (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref backend 1))) (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (org-export-execute-babel-code) (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args (quote org-export-before-parsing-hook) (progn (or ... ...) (aref backend 1)))) (setq info (org-export-install-filters (org-combine-plists info (org-export-get-environment backend subtreep ext-plist)))) (org-macro-replace-all (list (cons "author" (org-element-interpret-data ...)) (cons "date" (org-element-interpret-data ...)) (cons "email" (or ... "")) (cons "title" (org-element-interpret-data ...)))) (let ((backend-name (progn ... ...))) (progn (let (... filter) (while --dolist-tail-- ... ... ...)))) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-buffer nil visible-only) info)) (setq info (org-combine-plists info (org-export-collect-tree-properties tree info))) (let* ((body (org-element-normalize-string ...)) (inner-template (cdr ...)) (full-body (if ... body ...)) (template (cdr ...))) (org-no-properties (org-export-filter-apply-functions (plist-get info :filter-final-output) (if ... full-body ...) info))))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy)))))
(let* ((org-export-current-backend (progn (or (and (vectorp backend) (>= (length backend) 8) (memq (aref backend 0) cl-struct-org-export-backend-tags)) (error "%s accessing a non-%s" (quote org-export-backend-name) (quote org-export-backend))) (aref backend 1))) (info (org-combine-plists (list :export-options (delq nil (list (and subtreep ...) (and visible-only ...) (and body-only ...)))) (org-export--get-buffer-attributes))) tree) (let ((--buf-copy (org-export-copy-buffer))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args (quote org-export-before-processing-hook) (progn (or ... ...) (aref backend 1))) (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (org-export-execute-babel-code) (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args (quote org-export-before-parsing-hook) (progn ... ...))) (setq info (org-export-install-filters (org-combine-plists info ...))) (org-macro-replace-all (list (cons "author" ...) (cons "date" ...) (cons "email" ...) (cons "title" ...))) (let ((backend-name ...)) (progn (let ... ...))) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (org-element-parse-buffer nil visible-only) info)) (setq info (org-combine-plists info (org-export-collect-tree-properties tree info))) (let* ((body ...) (inner-template ...) (full-body ...) (template ...)) (org-no-properties (org-export-filter-apply-functions ... ... info))))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy))))))
(save-restriction (cond ((org-region-active-p) (narrow-to-region (region-beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char (point-min)) (forward-line) (narrow-to-region (point) (point-max)))) (let* ((org-export-current-backend (progn (or (and (vectorp backend) (>= ... 8) (memq ... cl-struct-org-export-backend-tags)) (error "%s accessing a non-%s" (quote org-export-backend-name) (quote org-export-backend))) (aref backend 1))) (info (org-combine-plists (list :export-options (delq nil (list ... ... ...))) (org-export--get-buffer-attributes))) tree) (let ((--buf-copy (org-export-copy-buffer))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args (quote org-export-before-processing-hook) (progn ... ...)) (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (org-export-execute-babel-code) (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args ... ...)) (setq info (org-export-install-filters ...)) (org-macro-replace-all (list ... ... ... ...)) (let (...) (progn ...)) (setq tree (org-export-filter-apply-functions ... ... info)) (setq info (org-combine-plists info ...)) (let* (... ... ... ...) (org-no-properties ...)))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy)))))))
(save-excursion (save-restriction (cond ((org-region-active-p) (narrow-to-region (region-beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char (point-min)) (forward-line) (narrow-to-region (point) (point-max)))) (let* ((org-export-current-backend (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref backend 1))) (info (org-combine-plists (list :export-options (delq nil ...)) (org-export--get-buffer-attributes))) tree) (let ((--buf-copy (org-export-copy-buffer))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args ... ...) (org-export-expand-include-keyword) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (org-export-execute-babel-code) (org-update-radio-target-regexp) (goto-char ...) (save-excursion ...) (setq info ...) (org-macro-replace-all ...) (let ... ...) (setq tree ...) (setq info ...) (let* ... ...))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer ... ...) (kill-buffer --buf-copy))))))))
org-export-as(beamer nil nil nil nil)
(let ((output (org-export-as backend subtreep visible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert output) (let ((coding-system-for-write encoding)) (write-file file))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and (org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new output))) (or (and (functionp post-process) (funcall post-process file)) file))
(if async (let ((with-temp-message "Initializing asynchronous export process") (current-message)) (unwind-protect (progn (if with-temp-message (progn (setq current-message (current-message)) (message "%s" with-temp-message))) (let ((--copy-fun (org-export--generate-copy-script ...)) (--temp-file (make-temp-file "org-export-process")) (--coding buffer-file-coding-system)) (let ((temp-file --temp-file) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...))) (let* ((process-connection-type nil) (--proc-buffer ...) (--process ...)) (org-export-add-to-stack (get-buffer --proc-buffer) nil --process) (let (...) (set-process-sentinel --process ...))))) (and with-temp-message (if current-message (message "%s" current-message) (message nil))))) (let ((output (org-export-as backend subtreep visible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert output) (let (...) (write-file file))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and (org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new output))) (or (and (functionp post-process) (funcall post-process file)) file)))
(let ((encoding (or org-export-coding-system buffer-file-coding-system))) (if async (let ((with-temp-message "Initializing asynchronous export process") (current-message)) (unwind-protect (progn (if with-temp-message (progn (setq current-message ...) (message "%s" with-temp-message))) (let ((--copy-fun ...) (--temp-file ...) (--coding buffer-file-coding-system)) (let (... ...) (unwind-protect ... ...)) (let* (... ... ...) (org-export-add-to-stack ... nil --process) (let ... ...)))) (and with-temp-message (if current-message (message "%s" current-message) (message nil))))) (let ((output (org-export-as backend subtreep visible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert output) (let ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and (org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new output))) (or (and (functionp post-process) (funcall post-process file)) file))))
(if (not (file-writable-p file)) (error "Output file not writable") (let ((encoding (or org-export-coding-system buffer-file-coding-system))) (if async (let ((with-temp-message "Initializing asynchronous export process") (current-message)) (unwind-protect (progn (if with-temp-message (progn ... ...)) (let (... ... ...) (let ... ...) (let* ... ... ...))) (and with-temp-message (if current-message (message "%s" current-message) (message nil))))) (let ((output (org-export-as backend subtreep visible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...)))) (if (and (org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new output))) (or (and (functionp post-process) (funcall post-process file)) file)))))
org-export-to-file(beamer "./ecm.tex" nil nil nil nil nil (lambda (file) (org-latex-compile file)))
(let ((file (org-export-output-file-name ".tex" subtreep))) (org-export-to-file (quote beamer) file async subtreep visible-only body-only ext-plist (function (lambda (file) (org-latex-compile file)))))
org-beamer-export-to-pdf(nil nil nil nil)
(org-open-file (org-beamer-export-to-pdf nil s v b))
(if a (org-beamer-export-to-pdf t s v b) (org-open-file (org-beamer-export-to-pdf nil s v b)))
(lambda (a s v b) (if a (org-beamer-export-to-pdf t s v b) (org-open-file (org-beamer-export-to-pdf nil s v b))))(nil nil nil nil)
funcall((lambda (a s v b) (if a (org-beamer-export-to-pdf t s v b) (org-open-file (org-beamer-export-to-pdf nil s v b)))) nil nil nil nil)
(save-excursion (if arg (progn (if (eq (marker-buffer org-export-dispatch-last-position) (org-base-buffer (current-buffer))) (goto-char org-export-dispatch-last-position) (move-marker org-export-dispatch-last-position nil)))) (funcall action (and (memq (quote async) optns) t) (and (memq (quote subtree) optns) t) (and (memq (quote visible) optns) t) (and (memq (quote body) optns) t)))
(cond ((eql action (quote template)) (org-export-insert-default-template nil optns)) ((eql action (quote stack)) (org-export-stack)) ((eql action (quote publish-current-file)) (org-publish-current-file (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-current-project)) (org-publish-current-project (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-choose-project)) (org-publish (assoc (org-icompleting-read "Publish project: " org-publish-project-alist nil t) org-publish-project-alist) (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-all)) (org-publish-all (memq (quote force) optns) (memq (quote async) optns))) (t (save-excursion (if arg (progn (if (eq (marker-buffer org-export-dispatch-last-position) (org-base-buffer ...)) (goto-char org-export-dispatch-last-position) (move-marker org-export-dispatch-last-position nil)))) (funcall action (and (memq (quote async) optns) t) (and (memq (quote subtree) optns) t) (and (memq (quote visible) optns) t) (and (memq (quote body) optns) t)))))
(let* ((input (cond ((equal arg (quote (16))) (quote (stack))) ((and arg org-export-dispatch-last-action)) (t (let ((wconfig ...)) (unwind-protect (progn ...) (set-window-configuration wconfig)))))) (action (car input)) (optns (cdr input))) (if (memq (quote subtree) optns) nil (move-marker org-export-dispatch-last-position nil)) (cond ((eql action (quote template)) (org-export-insert-default-template nil optns)) ((eql action (quote stack)) (org-export-stack)) ((eql action (quote publish-current-file)) (org-publish-current-file (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-current-project)) (org-publish-current-project (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-choose-project)) (org-publish (assoc (org-icompleting-read "Publish project: " org-publish-project-alist nil t) org-publish-project-alist) (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-all)) (org-publish-all (memq (quote force) optns) (memq (quote async) optns))) (t (save-excursion (if arg (progn (if (eq ... ...) (goto-char org-export-dispatch-last-position) (move-marker org-export-dispatch-last-position nil)))) (funcall action (and (memq (quote async) optns) t) (and (memq (quote subtree) optns) t) (and (memq (quote visible) optns) t) (and (memq (quote body) optns) t))))))
org-export-dispatch()
--8<---------------cut here---------------end--------------->8---
I don't understand what this means... nor how to fix it.
Environment:
- GNU Emacs 24.3.50.1 (i686-pc-mingw32) of 2013-10-19 on LEG570
- Org-mode version 8.2.1 (release_8.2.1-202-gea797e.dirty @ ~/Public/Repositories/org-mode/lisp/)
Best regards,
Seb
--
Sebastien Vauban
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: Beamer--Lisp error: (wrong-type-argument buffer-or-string-p t)
2013-11-07 15:56 Beamer--Lisp error: (wrong-type-argument buffer-or-string-p t) Sebastien Vauban
@ 2013-11-07 16:05 ` Nicolas Goaziou
2013-11-07 17:49 ` Sebastien Vauban
0 siblings, 1 reply; 3+ messages in thread
From: Nicolas Goaziou @ 2013-11-07 16:05 UTC (permalink / raw)
To: Sebastien Vauban; +Cc: public-emacs-orgmode-mXXj517/zsQ
Hello,
"Sebastien Vauban" <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org>
writes:
> When using Org Beamer (in the following ECM, but not limited to it) with the
> option H:1, everything works as expected. I get a PDF produced with some
> slides.
[...]
> Though, when setting H:2 (and refreshing the options), I get:
>
> Debugger entered--Lisp error: (wrong-type-argument buffer-or-string-p t)
> get-text-property(0 org-props t)
> org-get-text-property-any(0 org-props t)
> org-beamer-sectioning(1 t)
`org-beamer-sectioning' is an old function from the previous export
framework. You probably set it in `org-latex-classes' but you don't need
it.
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: Beamer--Lisp error: (wrong-type-argument buffer-or-string-p t)
2013-11-07 16:05 ` Nicolas Goaziou
@ 2013-11-07 17:49 ` Sebastien Vauban
0 siblings, 0 replies; 3+ messages in thread
From: Sebastien Vauban @ 2013-11-07 17:49 UTC (permalink / raw)
To: emacs-orgmode-mXXj517/zsQ
Hello Nicolas,
Nicolas Goaziou wrote:
> "Sebastien Vauban" <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org> writes:
>
>> When using Org Beamer (in the following ECM, but not limited to it) with the
>> option H:1, everything works as expected. I get a PDF produced with some
>> slides.
>>
>> Though, when setting H:2 (and refreshing the options), I get:
>>
>> Debugger entered--Lisp error: (wrong-type-argument buffer-or-string-p t)
>> get-text-property(0 org-props t)
>> org-get-text-property-any(0 org-props t)
>> org-beamer-sectioning(1 t)
>
> `org-beamer-sectioning' is an old function from the previous export
> framework. You probably set it in `org-latex-classes' but you don't need
> it.
That was it. Thanks for your prompt help!
Best regards,
Seb
--
Sebastien Vauban
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2013-11-07 17:49 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2013-11-07 15:56 Beamer--Lisp error: (wrong-type-argument buffer-or-string-p t) Sebastien Vauban
2013-11-07 16:05 ` Nicolas Goaziou
2013-11-07 17:49 ` Sebastien Vauban
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).