Re: [O] default file for any .org file

[Sébastien Le Maguer]

Hello,

If I understand well, you are looking for a template. On my side, 
I used yatemplate coupled with auto-insert. Here is the part of 
configuration I have:


 (use-package yatemplate
   :ensure t
   :after yasnippet
   :config

   ;; Define template directory
   (setq yatemplate-dir (concat config-basedir 
   "/third_parties/templates"))


   ;; Coupling with auto-insert

   (setq auto-insert-alist nil)
   (yatemplate-fill-alist)
   (add-hook 'find-file-hook 'auto-insert)
   )

I use a template like the one attached which is place on the 
directory "/third_parties/templates". I let you 
adapt but technically it should work with many adaptations.


Kind regards,
Sébastien

#+TITLE:
#+AUTHOR: `user-full-name`
#+EMAIL: `user-mail-address`
#+DATE: `(format-time-string "%e %B %Y")`
#+DESCRIPTION:
#+KEYWORDS:
#+LANGUAGE:  fr
#+OPTIONS:   H:3 num:t toc:t \n:nil @:t ::t |:t ^:t -:t f:t *:t <:t
#+SELECT_TAGS: export
#+EXCLUDE_TAGS: noexport
#+HTML_HEAD: http://www.coli.uni-saarland.de/~slemaguer/default.css; />
#+HTML_HEAD: 

* COMMENT some extra configuration




On Thu, Oct 19 2017 (06:55), Joseph Vidal-Rosset 
<joseph.vidal.ros...@gmail.com> wrote:



Hello the list,

I apologize if the reply to my question has already be given 
here of if it

is in the org-mode website.

I would be happy to get in advance,  for any new .org file that 
I am going
to create, some properties given by default, for example the 
following

links for .bib file:


bibliography:/home/joseph/MEGA/org/reforg.bib
bibliographystyle:smfplain

and others things that I am always constrained to copy from 
previous .org

files and paste in the new one.

Your suggestions and your help will be very welcome,

Joseph



--
Save our in-boxes! http://emailcharter.org

============
Dr. Sébastien Le Maguer
Postdoctorate researcher
Co-chair of SYNSIG (https://synsig.org/index.php/Main_Page)

Saarland University
Campus C7.4 - room 2.03
D-66123 Saarbrücken
Germany

phone : +49-681-302-70030
Mail: slemag...@coli.uni-saarland.de
website :  http://www.coli.uni-saarland.de/~slemaguer/

Re: [O] Bug: org-agenda-span value not quoted via customize interface

[Sébastien Le Maguer]

Hello

I might say something stupid buy isn't it 'day (with a simple quote) ?

⁣Sent from Blue ​

On 30 Aug 2017, 14:45, at 14:45, Niall Dooley  wrote:
>Hi all,
>
>This is my first mail to this list so please tell me if I haven't
>followed the expected conventions.
>
>I created the following org-agenda-custom-command via the customise
>interface
>
> '(org-agenda-custom-commands
>   (quote
>(("A" "Priority #A tasks" agenda ""
>  ((org-agenda-span day)
>   (org-agenda-overriding-header "Today's priority #A tasks: ")
>   (org-agenda-skip-function
>(quote
> (org-agenda-skip-entry-if
>  (quote notregexp)
>  "\\=.*\\[#A\\]"
>
>I receive the following error:
>
>Symbol’s value as variable is void: day
>
>The default value of week seems to be quoted. Manually, quoting the
>value day in the above snippet resolves the error. So it just seems
>like
>choosing a value through the available choices in the customise
>interface does not automatically quote the choice.
>
>Regards,
>
>Niall
>
>Emacs : GNU Emacs 25.2.1 (i686-w64-mingw32) of 2017-04-24
>Package: Org mode version 9.0.9 (9.0.9-68-g492420-elpaplus @
>d:/.emacs.d/elpa/org-plus-contrib-20170807/)

[O] switch export subtree

[Sébastien Le Maguer]

Hello,

I'm looking for a way to switch of the export of a specific 
subtree in a document using a specific exporter. For example, 
let's assume the document


* Section 1
** Subsection 11
** Subsection 12

I would like to export only Subsection 11 into HTML and only 
Subsection 12 into LATEX/PDF.


Is there some kind of property to control that ? Or maybe another 
way ?


Thanks a lot,
Sébastien

--
Save our in-boxes! http://emailcharter.org


Dr. Sébastien Le Maguer
Postdoctorate researcher
Co-chair of SYNSIG (https://synsig.org/index.php/Main_Page)

Saarland University
Campus C7.4 - room 2.03
D-66123 Saarbrücken
Germany

phone : +49-681-302-70030
Mail: slemag...@coli.uni-saarland.de
website :  http://www.coli.uni-saarland.de/~slemaguer/

Re: [O] Fontification error

[Sébastien Le Maguer]

in beg beg1) (add-text-properties end1
>> ... ...) (org-remove-flyspell-overlays-in end1 end) (cond ... ... ...
>> ... ...) (add-text-properties beg beg1 ...) (add-text-properties ...
>> ... ...) t))) ((member dc1 (quote ("+title:" "+author:" "+email:"
>> "+date:"))) (org-remove-flyspell-overlays-in (match-beginning 0) (if
>> (equal "+title:" dc1) (match-end 2) (match-end 0)))
>> (add-text-properties beg (match-end 3) (if (member ...
>> org-hidden-keywords) (quote ...) (quote ...))) (add-text-properties
>> (match-beginning 6) (min (point-max) (1+ ...)) (if (string-equal dc1
>> "+title:") (quote ...) (quote ... ((string-prefix-p "+caption"
>> dc1) (org-remove-flyspell-overlays-in (match-end 2) (match-end 0))
>> (remove-text-properties (match-beginning 0) (match-end 0) (quote
>> (display t invisible t intangible t))) (save-excursion
>> (beginning-of-line) (looking-at "\\([
>> ]*#\\+caption\\(?:\\[.*\\]\\)?:\\)[ ]*")) (add-text-properties
>> (line-beginning-position) (match-end 1) (quote (font-lock-fontified t
>> face org-meta-line))) (add-text-properties (match-end 0)
>> (line-end-position) (quote (font-lock-fontified t face org-block))) t)
>> ((member dc3 (quote (" " ""))) (org-remove-flyspell-overlays-in beg
>> (match-end 0)) (add-text-properties beg (match-end 0) (quote
>> (font-lock-fontified t face font-lock-comment-face (t
>> (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
>> (remove-text-properties (match-beginning 0) (match-end 0) (quote
>> (display t invisible t intangible t))) (add-text-properties beg
>> (match-end 0) (quote (font-lock-fontified t face org-meta-line)))
>> t)
>>   (let ((case-fold-search t)) (if (re-search-forward "^\\([
>> ]*#\\(\\(\\+[a-zA-Z]+:?\\| \\|$\\)\\(_\\([a-zA-Z]+\\)\\)?\\)[
>> ]*\\(\\([^ \n]*\\)[ ]*\\(.*\\)\\)\\)" limit t) (progn (let ((beg
>> (match-beginning 0)) (block-start (match-end 0)) (block-end nil) (lang
>> (match-string 7)) (beg1 (line-beginning-position 2)) (dc1 (downcase
>> (match-string 2))) (dc3 (downcase (match-string 3))) end end1 quoting
>> block-type) (cond ((and (match-end 4) (equal dc3 "+begin")) (setq
>> block-type (downcase ...) quoting (member block-type
>> org-protecting-blocks)) (if (re-search-forward ... nil t) (progn ...
>> ... ... ... ... ... ... ... ... ... ... t))) ((member dc1 (quote ...))
>> (org-remove-flyspell-overlays-in (match-beginning 0) (if ... ... ...))
>> (add-text-properties beg (match-end 3) (if ... ... ...))
>> (add-text-properties (match-beginning 6) (min ... ...) (if ... ...
>> ...))) ((string-prefix-p "+caption" dc1)
>> (org-remove-flyspell-overlays-in (match-end 2) (match-end 0))
>> (remove-text-properties (match-beginning 0) (match-end 0) (quote ...))
>> (save-excursion (beginning-of-line) (looking-at "\\([
>> ]*#\\+caption\\(?:\\[.*\\]\\)?:\\)[ ]*")) (add-text-properties
>> (line-beginning-position) (match-end 1) (quote ...))
>> (add-text-properties (match-end 0) (line-end-position) (quote ...)) t)
>> ((member dc3 (quote ...)) (org-remove-flyspell-overlays-in beg
>> (match-end 0)) (add-text-properties beg (match-end 0) (quote ...))) (t
>> (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
>> (remove-text-properties (match-beginning 0) (match-end 0) (quote ...))
>> (add-text-properties beg (match-end 0) (quote ...)) t))
>>   org-fontify-meta-lines-and-blocks-1(37)
>>   org-fontify-meta-lines-and-blocks(37)
>>   font-lock-fontify-keywords-region(1 37 nil)
>>   font-lock-default-fontify-region(1 37 nil)
>>   font-lock-fontify-region(1 37 nil)
>>   font-lock-default-fontify-buffer()
>>   font-lock-fontify-buffer()
>>   org-bullets-mode()
>>   run-hooks(change-major-mode-after-body-hook text-mode-hook
>> outline-mode-hook org-mode-hook)
>>   apply(run-hooks (change-major-mode-after-body-hook text-mode-hook
>> outline-mode-hook org-mode-hook))
>>   run-mode-hooks(org-mode-hook)
>>   org-mode()
>>   set-auto-mode-0(org-mode nil)
>>   set-auto-mode()
>>   normal-mode(t)
>>   after-find-file(nil t)
>>   find-file-noselect-1(# "~/Dropbox
>> (Personal)/Notes/test.org" nil nil "~/Dropbox
>> (Personal)/Notes/test.org" (213415716 16777220))
>>   find-file-noselect("/Users/aaronjensen/Dropbox
>> (Personal)/Notes/test.org" nil nil nil)
>>   find-file("/Users/aaronjensen/Dropbox (Personal)/Notes/test.org")
>>   find-file-existing("/Users/aaronjensen/Dropbox (Personal)/Notes/test.org")
>>   (lambda ( ignore) (find-file-existing
>> "/Users/aaronjensen/Dropbox (Personal)/Notes/test.org"))((push-button
>> :args nil :value "~/Dropbox (Personal)/Notes/test.org" :action (lambda
>> ( ignore) (find-file-existing "/Users/aaronjensen/Dropbox
>> (Personal)/Notes/test.org")) :mouse-face highlight :follow-link "
>> " :button-prefix "" :button-suffix "" :format "%[%t%]" :button-overlay
>> # :from #> after insertion) at 1115 in *spacemacs*> :to #> *spacemacs*>) nil)
>>   widget-apply((push-button :args nil :value "~/Dropbox
>> (Personal)/Notes/test.org" :action (lambda ( ignore)
>> (find-file-existing "/Users/aaronjensen/Dropbox
>> (Personal)/Notes/test.org")) :mouse-face highlight :follow-link "
>> " :button-prefix "" :button-suffix "" :format "%[%t%]" :button-overlay
>> # :from #> after insertion) at 1115 in *spacemacs*> :to #> *spacemacs*>) :action nil)
>>   widget-apply-action((push-button :args nil :value "~/Dropbox
>> (Personal)/Notes/test.org" :action (lambda ( ignore)
>> (find-file-existing "/Users/aaronjensen/Dropbox
>> (Personal)/Notes/test.org")) :mouse-face highlight :follow-link "
>> " :button-prefix "" :button-suffix "" :format "%[%t%]" :button-overlay
>> # :from #> after insertion) at 1115 in *spacemacs*> :to #> *spacemacs*>) nil)
>>   widget-button-press(1142)
>>   funcall-interactively(widget-button-press 1142)
>>   call-interactively(widget-button-press nil nil)
>>   command-execute(widget-button-press)


--
Dr. Sébastien Le Maguer
Postdoctorate researcher

Saarland University
Campus C7.4 - room 2.03
D-66123 Saarbrücken
Germany

phone : +49-681-302-70030
Mail: slemag...@coli.uni-saarland.de
website :  http://www.coli.uni-saarland.de/~slemaguer/

Re: [O] Fontification error

[Sébastien Le Maguer]

Hello,

I do have the same problem but I think it might be more a theme issues than an 
org-mode one. I try to find a minimal example but @Thomas, are you using a 
specific theme ?

Kind regards,
Sébastien
On Mon, Feb 13 2017 (18:21), Nicolas Goaziou <m...@nicolasgoaziou.fr> wrote:

> Hello,
>
> "Thomas S. Dye" <t...@tsdye.com> writes:
>
>> I get fontification error messages when loading Org mode files since
>> upgrading this morning.
>>
>> org-mode fontification error in # at 685
>>
>> Org mode version 9.0.5 (9.0.5-elpaplus @
>> /Users/dk/.emacs.d/elpa/org-plus-contrib-20170210/)
>>
>> Let me know if you have questions.
>
> I cannot reproduce it. Could you provide an ECM?
>
> Regards,


--
Dr. Sébastien Le Maguer
Postdoctorate researcher

Saarland University
Campus C7.4 - room 2.03
D-66123 Saarbrücken
Germany

phone : +49-681-302-70030
Mail: slemag...@coli.uni-saarland.de
website :  http://www.coli.uni-saarland.de/~slemaguer/

[O] more global keys in ox-bibtex

[Sébastien Le Maguer]

Dear All,

I did a mini-patch to capture completely the key in bibtex export. For example 
for the following key, in the bibtex2html produced file:

Balestri etal., 1999

only Balestri will be captured instead of Balestri etal., 1999

As it is 3 characters, I just submit the patch here and hope it might help :)

Kind regards,
Sébastien
diff --git a/contrib/lisp/ox-bibtex.el b/contrib/lisp/ox-bibtex.el
index 56dec38..fb34a5e 100644
--- a/contrib/lisp/ox-bibtex.el
+++ b/contrib/lisp/ox-bibtex.el
@@ -235,7 +235,7 @@ Return new parse tree."
 	  ;; Update `org-bibtex-html-entries-alist'.
 	  (goto-char (point-min))
 	  (while (re-search-forward
-		  "a name=\"\\([-_a-zA-Z0-9:]+\\)\">\\(\\w+\\)" nil t)
+		  "a name=\"\\([-_a-zA-Z0-9:]+\\)\">\\([^<]+\\)" nil t)
 		(push (cons (match-string 1) (match-string 2))
 		  org-bibtex-html-entries-alist)))
 	;; Open produced HTML file, wrap references within a block and

--
Dr. Sébastien Le Maguer
Postdoctorate researcher

Saarland University
Campus C7.4 - room 2.03
D-66123 Saarbrücken
Germany

phone : +49-681-302-70030
Mail: slemag...@coli.uni-saarland.de
website :  http://www.coli.uni-saarland.de/~slemaguer/