Release 4.76
This commit is contained in:
parent
faa09adf0e
commit
388f9e690a
17
Makefile
17
Makefile
|
@ -57,7 +57,8 @@ CP = cp -p
|
|||
# The following variables need to be defined by the maintainer
|
||||
LISPFILES = org.el org-publish.el org-mouse.el org-install.el
|
||||
ELCFILES = $(LISPFILES:.el=.elc)
|
||||
DOCFILES = org.texi org.pdf org orgcard.tex orgcard.pdf
|
||||
DOCFILES = org.texi org.pdf org
|
||||
CARDFILES = orgcard.tex orgcard.pdf orgcard_letter.pdf orgcard_letter.ps
|
||||
TEXIFILES = org.texi
|
||||
INFOFILES = org
|
||||
HTMLDIR = /home/dominik/public_html/Tools/org
|
||||
|
@ -65,7 +66,7 @@ HTMLDIR = /home/dominik/public_html/Tools/org
|
|||
.SUFFIXES: .el .elc .texi
|
||||
SHELL = /bin/sh
|
||||
|
||||
DISTFILES= README ${LISPFILES} ${DOCFILES} Makefile
|
||||
DISTFILES= README ${LISPFILES} ${DOCFILES} ${CARDFILES} Makefile
|
||||
DISTFILES_xemacs= xemacs/noutline.el xemacs/ps-print-invisible.el xemacs/README
|
||||
|
||||
all: $(ELCFILES)
|
||||
|
@ -119,6 +120,16 @@ orgcard.pdf: orgcard.dvi
|
|||
orgcard.ps: orgcard.dvi
|
||||
dvips -t landscape -o orgcard.ps orgcard.dvi
|
||||
|
||||
orgcard_letter.dvi: orgcard.tex
|
||||
perl -pe 's/letterpaper=0/letterpaper=1/' orgcard.tex > orgcard_letter.tex
|
||||
tex orgcard_letter.tex
|
||||
|
||||
orgcard_letter.pdf: orgcard_letter.dvi
|
||||
dvips -q -f -t landscape orgcard_letter.dvi | gs -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile=orgcard_letter.pdf -c .setpdfwrite -
|
||||
|
||||
orgcard_letter.ps: orgcard_letter.dvi
|
||||
dvips -t landscape -o orgcard_letter.ps orgcard_letter.dvi
|
||||
|
||||
# Below here are special targets for maintenance only
|
||||
|
||||
info:
|
||||
|
@ -126,7 +137,7 @@ info:
|
|||
|
||||
pdf: org.pdf
|
||||
|
||||
card: orgcard.pdf orgcard.ps
|
||||
card: orgcard.pdf orgcard.ps orgcard_letter.pdf orgcard_letter.ps
|
||||
|
||||
xcompile:
|
||||
xemacs -batch -q -f batch-byte-compile $(LISPFILES)
|
||||
|
|
432
org
432
org
|
@ -5,7 +5,7 @@ START-INFO-DIR-ENTRY
|
|||
* Org Mode: (org). Outline-based notes management and organizer
|
||||
END-INFO-DIR-ENTRY
|
||||
|
||||
This manual is for Org-mode (version 4.75).
|
||||
This manual is for Org-mode (version 4.76).
|
||||
|
||||
Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation
|
||||
|
||||
|
@ -27,7 +27,7 @@ File: org, Node: Top, Next: Introduction, Prev: (dir), Up: (dir)
|
|||
Org Mode Manual
|
||||
***************
|
||||
|
||||
This manual is for Org-mode (version 4.75).
|
||||
This manual is for Org-mode (version 4.76).
|
||||
|
||||
Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation
|
||||
|
||||
|
@ -229,6 +229,7 @@ Text interpretation by the exporter
|
|||
|
||||
* Comment lines:: Some lines will not be exported
|
||||
* Initial text:: Text before the first headline
|
||||
* Footnotes:: Numbers like [1]
|
||||
* Enhancing text:: Subscripts, symbols and more
|
||||
* Export options:: How to influence the export settings
|
||||
|
||||
|
@ -4259,7 +4260,7 @@ you want to do this only occasionally, use the commend
|
|||
(setq org-agenda-exporter-settings
|
||||
'((ps-number-of-columns 2)
|
||||
(ps-landscape-mode t)
|
||||
(htmlize-output-type 'inline-css)))
|
||||
(htmlize-output-type 'css)))
|
||||
|
||||
If you need to export certain agenda views frequently, you can
|
||||
associate any custom agenda command with a list of output file names
|
||||
|
@ -4927,6 +4928,7 @@ file in order to produce better output.
|
|||
|
||||
* Comment lines:: Some lines will not be exported
|
||||
* Initial text:: Text before the first headline
|
||||
* Footnotes:: Numbers like [1]
|
||||
* Enhancing text:: Subscripts, symbols and more
|
||||
* Export options:: How to influence the export settings
|
||||
|
||||
|
@ -4944,7 +4946,7 @@ never be exported. Also entire subtrees starting with the word
|
|||
Toggle the COMMENT keyword at the beginning of an entry.
|
||||
|
||||
|
||||
File: org, Node: Initial text, Next: Enhancing text, Prev: Comment lines, Up: Text interpretation
|
||||
File: org, Node: Initial text, Next: Footnotes, Prev: Comment lines, Up: Text interpretation
|
||||
|
||||
10.5.2 Text before the first headline
|
||||
-------------------------------------
|
||||
|
@ -4980,9 +4982,30 @@ headline when exporting the file, you can use the `#+TEXT' construct:
|
|||
#+TEXT: This goes between the table of contents and the first headline
|
||||
|
||||
|
||||
File: org, Node: Enhancing text, Next: Export options, Prev: Initial text, Up: Text interpretation
|
||||
File: org, Node: Footnotes, Next: Enhancing text, Prev: Initial text, Up: Text interpretation
|
||||
|
||||
10.5.3 Enhancing text for export
|
||||
10.5.3 Footnotes
|
||||
----------------
|
||||
|
||||
Numbers in square brackets are treated as footnotes, so that you can use
|
||||
the Emacs package `footnote.el' to create footnotes. For example:
|
||||
|
||||
The org-mode homepage[1] clearly needs help from
|
||||
a good web designer.
|
||||
|
||||
[1] The link is: http://www.astro.uva.nl/~dominik/Tools/org
|
||||
|
||||
Note that the `footnote' package uses `C-c !' to invoke its commands.
|
||||
This binding conflicts with the org-mode command for inserting inactive
|
||||
time stamps. You could use the variable `footnote-prefix' to switch
|
||||
footnotes commands to another key. Or, if you are too used to this
|
||||
binding, you could use `org-replace-disputed-keys' and
|
||||
`org-disputed-keys' to change the settings in Org-mode.
|
||||
|
||||
|
||||
File: org, Node: Enhancing text, Next: Export options, Prev: Footnotes, Up: Text interpretation
|
||||
|
||||
10.5.4 Enhancing text for export
|
||||
--------------------------------
|
||||
|
||||
Some of the export backends of Org-mode allow for sophisticated text
|
||||
|
@ -5030,7 +5053,7 @@ should never be used.
|
|||
|
||||
File: org, Node: Export options, Prev: Enhancing text, Up: Text interpretation
|
||||
|
||||
10.5.4 Export options
|
||||
10.5.5 Export options
|
||||
---------------------
|
||||
|
||||
The exporter recognizes special lines in the buffer which provide
|
||||
|
@ -5808,7 +5831,11 @@ File: org, Node: Cooperation, Next: Conflicts, Prev: Interaction, Up: Intera
|
|||
and the Org-mode format. See the documentation string of the
|
||||
command `org-convert-table' for the restrictions under which
|
||||
this is possible.
|
||||
`table.el' is part of Emacs 22.
|
||||
`table.el' is part of Emacs 22.
|
||||
|
||||
`footnote.el' by Steven L. Baur
|
||||
Org-mode recognizes numerical footnotes as provided by this package
|
||||
(*note Footnotes::).
|
||||
|
||||
|
||||
File: org, Node: Conflicts, Prev: Cooperation, Up: Interaction
|
||||
|
@ -5845,6 +5872,15 @@ File: org, Node: Conflicts, Prev: Cooperation, Up: Interaction
|
|||
Also this package uses the `S-<cursor>' keys, so everything written
|
||||
in the paragraph above about CUA mode also applies here.
|
||||
|
||||
`footnote.el' by Steven L. Baur
|
||||
Org-mode supports the syntax of the footnote package, but only the
|
||||
numerical footnote markers. Also, the default key for footnote
|
||||
commands, `C-c !' is already used by org-mode. You could use the
|
||||
variable `footnote-prefix' to switch footnotes commands to another
|
||||
key. Or, you could use `org-replace-disputed-keys' and
|
||||
`org-disputed-keys' to change the settings in Org-mode.
|
||||
|
||||
|
||||
|
||||
File: org, Node: Bugs, Prev: Interaction, Up: Miscellaneous
|
||||
|
||||
|
@ -6611,6 +6647,10 @@ Index
|
|||
* folded, subtree visibility state: Visibility cycling. (line 10)
|
||||
* folding, sparse trees: Sparse trees. (line 6)
|
||||
* following links: Handling links. (line 58)
|
||||
* footnote.el <1>: Conflicts. (line 35)
|
||||
* footnote.el <2>: Cooperation. (line 56)
|
||||
* footnote.el: Footnotes. (line 6)
|
||||
* footnotes: Footnotes. (line 6)
|
||||
* format specifier: Formula syntax for Calc.
|
||||
(line 14)
|
||||
* format, of links: Link format. (line 6)
|
||||
|
@ -6955,6 +6995,7 @@ Key Index
|
|||
* C-,: Agenda files. (line 18)
|
||||
* C-_: Agenda commands. (line 107)
|
||||
* C-a a L: Timeline. (line 10)
|
||||
* C-c ! <1>: Footnotes. (line 14)
|
||||
* C-c !: Creating timestamps. (line 19)
|
||||
* C-c #: Checkboxes. (line 56)
|
||||
* C-c %: Handling links. (line 81)
|
||||
|
@ -7248,192 +7289,193 @@ Key Index
|
|||
|
||||
Tag Table:
|
||||
Node: Top970
|
||||
Node: Introduction11627
|
||||
Node: Summary12042
|
||||
Node: Installation15051
|
||||
Node: Activation16429
|
||||
Node: Feedback17678
|
||||
Node: Document structure19754
|
||||
Node: Outlines20528
|
||||
Node: Headlines21188
|
||||
Ref: Headlines-Footnote-122196
|
||||
Node: Visibility cycling22295
|
||||
Ref: Visibility cycling-Footnote-124505
|
||||
Ref: Visibility cycling-Footnote-224563
|
||||
Ref: Visibility cycling-Footnote-324613
|
||||
Node: Motion24883
|
||||
Node: Structure editing25837
|
||||
Node: Archiving28663
|
||||
Node: ARCHIVE tag29221
|
||||
Node: Moving subtrees31014
|
||||
Node: Sparse trees32325
|
||||
Ref: Sparse trees-Footnote-134457
|
||||
Ref: Sparse trees-Footnote-234639
|
||||
Node: Plain lists34754
|
||||
Ref: Plain lists-Footnote-138523
|
||||
Ref: Plain lists-Footnote-238881
|
||||
Node: Tables39065
|
||||
Node: Built-in table editor39579
|
||||
Node: Narrow columns46818
|
||||
Ref: Narrow columns-Footnote-148751
|
||||
Node: orgtbl-mode48797
|
||||
Node: The spreadsheet49601
|
||||
Node: References50688
|
||||
Ref: References-Footnote-154817
|
||||
Node: Formula syntax for Calc55106
|
||||
Node: Formula syntax for Lisp57563
|
||||
Node: Field formulas58832
|
||||
Node: Column formulas60140
|
||||
Node: Editing and debugging formulas61739
|
||||
Node: Updating the table65892
|
||||
Node: Advanced features66927
|
||||
Node: Hyperlinks71452
|
||||
Node: Link format72225
|
||||
Node: Internal links73518
|
||||
Ref: Internal links-Footnote-175443
|
||||
Node: Radio targets75575
|
||||
Node: External links76266
|
||||
Node: Handling links78670
|
||||
Ref: Handling links-Footnote-183957
|
||||
Ref: Handling links-Footnote-284194
|
||||
Node: Link abbreviations84268
|
||||
Node: Search options85947
|
||||
Ref: Search options-Footnote-187727
|
||||
Node: Custom searches87808
|
||||
Node: Remember88856
|
||||
Node: Setting up remember89843
|
||||
Node: Remember templates90425
|
||||
Ref: Remember templates-Footnote-193717
|
||||
Node: Storing notes93815
|
||||
Node: TODO items95702
|
||||
Node: TODO basics96685
|
||||
Node: TODO extensions98382
|
||||
Node: Workflow states99201
|
||||
Ref: Workflow states-Footnote-1100376
|
||||
Node: TODO types100469
|
||||
Ref: TODO types-Footnote-1102052
|
||||
Node: Multiple sets in one file102134
|
||||
Node: Per file keywords103745
|
||||
Ref: Per file keywords-Footnote-1105034
|
||||
Node: Priorities105235
|
||||
Node: Breaking down tasks106845
|
||||
Ref: Breaking down tasks-Footnote-1107365
|
||||
Node: Checkboxes107461
|
||||
Node: Timestamps110216
|
||||
Node: Time stamps110657
|
||||
Ref: Time stamps-Footnote-1112962
|
||||
Node: Creating timestamps113078
|
||||
Node: The date/time prompt115152
|
||||
Ref: The date/time prompt-Footnote-1117140
|
||||
Node: Custom time format117246
|
||||
Node: Deadlines and scheduling118794
|
||||
Ref: Deadlines and scheduling-Footnote-1120144
|
||||
Node: Inserting deadline/schedule120299
|
||||
Node: Repeated tasks121237
|
||||
Node: Progress logging122876
|
||||
Node: Closing items123531
|
||||
Ref: Closing items-Footnote-1124465
|
||||
Ref: Closing items-Footnote-2124534
|
||||
Node: Tracking TODO state changes124607
|
||||
Node: Clocking work time125463
|
||||
Ref: Clocking work time-Footnote-1129109
|
||||
Ref: Clocking work time-Footnote-2129187
|
||||
Node: Tags129313
|
||||
Node: Tag inheritance130075
|
||||
Node: Setting tags131012
|
||||
Ref: Setting tags-Footnote-1135535
|
||||
Ref: Setting tags-Footnote-2135647
|
||||
Node: Tag searches135730
|
||||
Node: Agenda views138441
|
||||
Node: Agenda files140386
|
||||
Ref: Agenda files-Footnote-1141352
|
||||
Ref: Agenda files-Footnote-2141501
|
||||
Node: Agenda dispatcher141694
|
||||
Node: Built-in agenda views143385
|
||||
Node: Weekly/Daily agenda143963
|
||||
Node: Global TODO list146904
|
||||
Node: Matching headline tags149176
|
||||
Node: Timeline150247
|
||||
Node: Stuck projects150913
|
||||
Node: Presentation and sorting152764
|
||||
Node: Categories153555
|
||||
Node: Time-of-day specifications154219
|
||||
Node: Sorting of agenda items156190
|
||||
Node: Agenda commands157472
|
||||
Node: Custom agenda views164626
|
||||
Node: Storing searches165345
|
||||
Node: Block agenda167257
|
||||
Node: Setting Options168487
|
||||
Node: Exporting Agenda Views171226
|
||||
Ref: Exporting Agenda Views-Footnote-1175517
|
||||
Ref: Exporting Agenda Views-Footnote-2175574
|
||||
Node: Extracting Agenda Information for other programs175760
|
||||
Node: Embedded LaTeX179886
|
||||
Ref: Embedded LaTeX-Footnote-1180978
|
||||
Node: Math symbols181168
|
||||
Node: Subscripts and Superscripts181933
|
||||
Node: LaTeX fragments182777
|
||||
Ref: LaTeX fragments-Footnote-1185011
|
||||
Node: Processing LaTeX fragments185273
|
||||
Node: CDLaTeX mode186219
|
||||
Ref: CDLaTeX mode-Footnote-1188703
|
||||
Node: Exporting188851
|
||||
Node: ASCII export190165
|
||||
Node: HTML export191455
|
||||
Node: Export commands192074
|
||||
Node: Quoting HTML tags193318
|
||||
Node: Links193948
|
||||
Node: Images194645
|
||||
Ref: Images-Footnote-1195516
|
||||
Node: CSS support195577
|
||||
Ref: CSS support-Footnote-1196896
|
||||
Node: XOXO export197009
|
||||
Node: iCalendar export197448
|
||||
Node: Text interpretation198667
|
||||
Node: Comment lines199209
|
||||
Node: Initial text199604
|
||||
Node: Enhancing text201278
|
||||
Ref: Enhancing text-Footnote-1203140
|
||||
Node: Export options203230
|
||||
Node: Publishing205123
|
||||
Ref: Publishing-Footnote-1205919
|
||||
Node: Configuration206115
|
||||
Node: Project alist206833
|
||||
Node: Sources and destinations207899
|
||||
Node: Selecting files208629
|
||||
Node: Publishing action209377
|
||||
Node: Publishing options210610
|
||||
Node: Publishing links212762
|
||||
Node: Project page index214275
|
||||
Node: Sample configuration215053
|
||||
Node: Simple example215545
|
||||
Node: Complex example216218
|
||||
Node: Triggering publication218294
|
||||
Node: Miscellaneous218979
|
||||
Node: Completion219613
|
||||
Node: Customization221084
|
||||
Node: In-buffer settings221667
|
||||
Node: The very busy C-c C-c key226543
|
||||
Node: Clean view228187
|
||||
Node: TTY keys230764
|
||||
Node: Interaction232374
|
||||
Node: Cooperation232771
|
||||
Node: Conflicts235513
|
||||
Node: Bugs237076
|
||||
Node: Extensions and Hacking238572
|
||||
Node: Extensions239168
|
||||
Node: Tables in arbitrary syntax241115
|
||||
Node: Radio tables242192
|
||||
Node: A LaTeX example244695
|
||||
Ref: A LaTeX example-Footnote-1248341
|
||||
Ref: A LaTeX example-Footnote-2248489
|
||||
Node: Translator functions248924
|
||||
Ref: Translator functions-Footnote-1252033
|
||||
Node: Dynamic blocks252121
|
||||
Node: Special agenda views254093
|
||||
Ref: Special agenda views-Footnote-1256372
|
||||
Node: History and Acknowledgments256632
|
||||
Node: Index262726
|
||||
Node: Key Index294515
|
||||
Node: Introduction11676
|
||||
Node: Summary12091
|
||||
Node: Installation15100
|
||||
Node: Activation16478
|
||||
Node: Feedback17727
|
||||
Node: Document structure19803
|
||||
Node: Outlines20577
|
||||
Node: Headlines21237
|
||||
Ref: Headlines-Footnote-122245
|
||||
Node: Visibility cycling22344
|
||||
Ref: Visibility cycling-Footnote-124554
|
||||
Ref: Visibility cycling-Footnote-224612
|
||||
Ref: Visibility cycling-Footnote-324662
|
||||
Node: Motion24932
|
||||
Node: Structure editing25886
|
||||
Node: Archiving28712
|
||||
Node: ARCHIVE tag29270
|
||||
Node: Moving subtrees31063
|
||||
Node: Sparse trees32374
|
||||
Ref: Sparse trees-Footnote-134506
|
||||
Ref: Sparse trees-Footnote-234688
|
||||
Node: Plain lists34803
|
||||
Ref: Plain lists-Footnote-138572
|
||||
Ref: Plain lists-Footnote-238930
|
||||
Node: Tables39114
|
||||
Node: Built-in table editor39628
|
||||
Node: Narrow columns46867
|
||||
Ref: Narrow columns-Footnote-148800
|
||||
Node: orgtbl-mode48846
|
||||
Node: The spreadsheet49650
|
||||
Node: References50737
|
||||
Ref: References-Footnote-154866
|
||||
Node: Formula syntax for Calc55155
|
||||
Node: Formula syntax for Lisp57612
|
||||
Node: Field formulas58881
|
||||
Node: Column formulas60189
|
||||
Node: Editing and debugging formulas61788
|
||||
Node: Updating the table65941
|
||||
Node: Advanced features66976
|
||||
Node: Hyperlinks71501
|
||||
Node: Link format72274
|
||||
Node: Internal links73567
|
||||
Ref: Internal links-Footnote-175492
|
||||
Node: Radio targets75624
|
||||
Node: External links76315
|
||||
Node: Handling links78719
|
||||
Ref: Handling links-Footnote-184006
|
||||
Ref: Handling links-Footnote-284243
|
||||
Node: Link abbreviations84317
|
||||
Node: Search options85996
|
||||
Ref: Search options-Footnote-187776
|
||||
Node: Custom searches87857
|
||||
Node: Remember88905
|
||||
Node: Setting up remember89892
|
||||
Node: Remember templates90474
|
||||
Ref: Remember templates-Footnote-193766
|
||||
Node: Storing notes93864
|
||||
Node: TODO items95751
|
||||
Node: TODO basics96734
|
||||
Node: TODO extensions98431
|
||||
Node: Workflow states99250
|
||||
Ref: Workflow states-Footnote-1100425
|
||||
Node: TODO types100518
|
||||
Ref: TODO types-Footnote-1102101
|
||||
Node: Multiple sets in one file102183
|
||||
Node: Per file keywords103794
|
||||
Ref: Per file keywords-Footnote-1105083
|
||||
Node: Priorities105284
|
||||
Node: Breaking down tasks106894
|
||||
Ref: Breaking down tasks-Footnote-1107414
|
||||
Node: Checkboxes107510
|
||||
Node: Timestamps110265
|
||||
Node: Time stamps110706
|
||||
Ref: Time stamps-Footnote-1113011
|
||||
Node: Creating timestamps113127
|
||||
Node: The date/time prompt115201
|
||||
Ref: The date/time prompt-Footnote-1117189
|
||||
Node: Custom time format117295
|
||||
Node: Deadlines and scheduling118843
|
||||
Ref: Deadlines and scheduling-Footnote-1120193
|
||||
Node: Inserting deadline/schedule120348
|
||||
Node: Repeated tasks121286
|
||||
Node: Progress logging122925
|
||||
Node: Closing items123580
|
||||
Ref: Closing items-Footnote-1124514
|
||||
Ref: Closing items-Footnote-2124583
|
||||
Node: Tracking TODO state changes124656
|
||||
Node: Clocking work time125512
|
||||
Ref: Clocking work time-Footnote-1129158
|
||||
Ref: Clocking work time-Footnote-2129236
|
||||
Node: Tags129362
|
||||
Node: Tag inheritance130124
|
||||
Node: Setting tags131061
|
||||
Ref: Setting tags-Footnote-1135584
|
||||
Ref: Setting tags-Footnote-2135696
|
||||
Node: Tag searches135779
|
||||
Node: Agenda views138490
|
||||
Node: Agenda files140435
|
||||
Ref: Agenda files-Footnote-1141401
|
||||
Ref: Agenda files-Footnote-2141550
|
||||
Node: Agenda dispatcher141743
|
||||
Node: Built-in agenda views143434
|
||||
Node: Weekly/Daily agenda144012
|
||||
Node: Global TODO list146953
|
||||
Node: Matching headline tags149225
|
||||
Node: Timeline150296
|
||||
Node: Stuck projects150962
|
||||
Node: Presentation and sorting152813
|
||||
Node: Categories153604
|
||||
Node: Time-of-day specifications154268
|
||||
Node: Sorting of agenda items156239
|
||||
Node: Agenda commands157521
|
||||
Node: Custom agenda views164675
|
||||
Node: Storing searches165394
|
||||
Node: Block agenda167306
|
||||
Node: Setting Options168536
|
||||
Node: Exporting Agenda Views171275
|
||||
Ref: Exporting Agenda Views-Footnote-1175559
|
||||
Ref: Exporting Agenda Views-Footnote-2175616
|
||||
Node: Extracting Agenda Information for other programs175802
|
||||
Node: Embedded LaTeX179928
|
||||
Ref: Embedded LaTeX-Footnote-1181020
|
||||
Node: Math symbols181210
|
||||
Node: Subscripts and Superscripts181975
|
||||
Node: LaTeX fragments182819
|
||||
Ref: LaTeX fragments-Footnote-1185053
|
||||
Node: Processing LaTeX fragments185315
|
||||
Node: CDLaTeX mode186261
|
||||
Ref: CDLaTeX mode-Footnote-1188745
|
||||
Node: Exporting188893
|
||||
Node: ASCII export190207
|
||||
Node: HTML export191497
|
||||
Node: Export commands192116
|
||||
Node: Quoting HTML tags193360
|
||||
Node: Links193990
|
||||
Node: Images194687
|
||||
Ref: Images-Footnote-1195558
|
||||
Node: CSS support195619
|
||||
Ref: CSS support-Footnote-1196938
|
||||
Node: XOXO export197051
|
||||
Node: iCalendar export197490
|
||||
Node: Text interpretation198709
|
||||
Node: Comment lines199300
|
||||
Node: Initial text199695
|
||||
Node: Footnotes201364
|
||||
Node: Enhancing text202179
|
||||
Ref: Enhancing text-Footnote-1204038
|
||||
Node: Export options204128
|
||||
Node: Publishing206021
|
||||
Ref: Publishing-Footnote-1206817
|
||||
Node: Configuration207013
|
||||
Node: Project alist207731
|
||||
Node: Sources and destinations208797
|
||||
Node: Selecting files209527
|
||||
Node: Publishing action210275
|
||||
Node: Publishing options211508
|
||||
Node: Publishing links213660
|
||||
Node: Project page index215173
|
||||
Node: Sample configuration215951
|
||||
Node: Simple example216443
|
||||
Node: Complex example217116
|
||||
Node: Triggering publication219192
|
||||
Node: Miscellaneous219877
|
||||
Node: Completion220511
|
||||
Node: Customization221982
|
||||
Node: In-buffer settings222565
|
||||
Node: The very busy C-c C-c key227441
|
||||
Node: Clean view229085
|
||||
Node: TTY keys231662
|
||||
Node: Interaction233272
|
||||
Node: Cooperation233669
|
||||
Node: Conflicts236545
|
||||
Node: Bugs238548
|
||||
Node: Extensions and Hacking240044
|
||||
Node: Extensions240640
|
||||
Node: Tables in arbitrary syntax242587
|
||||
Node: Radio tables243664
|
||||
Node: A LaTeX example246167
|
||||
Ref: A LaTeX example-Footnote-1249813
|
||||
Ref: A LaTeX example-Footnote-2249961
|
||||
Node: Translator functions250396
|
||||
Ref: Translator functions-Footnote-1253505
|
||||
Node: Dynamic blocks253593
|
||||
Node: Special agenda views255565
|
||||
Ref: Special agenda views-Footnote-1257844
|
||||
Node: History and Acknowledgments258104
|
||||
Node: Index264198
|
||||
Node: Key Index296279
|
||||
|
||||
End Tag Table
|
||||
|
|
1198
org-publish.el
1198
org-publish.el
File diff suppressed because it is too large
Load Diff
333
org.el
333
org.el
|
@ -1,11 +1,11 @@
|
|||
;;;; org.el --- Outline-based notes management and organizer
|
||||
;;; org.el --- Outline-based notes management and organizer
|
||||
;; Carstens outline-mode for keeping track of everything.
|
||||
;; Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
|
||||
;;
|
||||
;; Author: Carsten Dominik <dominik at science dot uva dot nl>
|
||||
;; Keywords: outlines, hypermedia, calendar, wp
|
||||
;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/
|
||||
;; Version: 4.75
|
||||
;; Version: 4.76
|
||||
;;
|
||||
;; This file is part of GNU Emacs.
|
||||
;;
|
||||
|
@ -83,7 +83,7 @@
|
|||
|
||||
;;; Version
|
||||
|
||||
(defconst org-version "4.75"
|
||||
(defconst org-version "4.76"
|
||||
"The version number of the file org.el.")
|
||||
(defun org-version ()
|
||||
(interactive)
|
||||
|
@ -179,7 +179,7 @@ become effective."
|
|||
([(control shift right)] . [(meta shift +)])
|
||||
([(control shift left)] . [(meta shift -)]))
|
||||
"Keys for which Org-mode and other modes compete.
|
||||
This is an alist, cars are the default keys, second element specifies
|
||||
This is an alist, cars are the default keys, second element specifies
|
||||
the alternative to use when `org-replace-disputed-keys' is t.
|
||||
|
||||
Keys can be specified in any syntax supported by `define-key'.
|
||||
|
@ -193,7 +193,7 @@ therefore you'll have to restart Emacs to apply it after changing."
|
|||
Or return the original if not disputed."
|
||||
(if org-replace-disputed-keys
|
||||
(let* ((nkey (key-description key))
|
||||
(x (org-find-if (lambda (x)
|
||||
(x (org-find-if (lambda (x)
|
||||
(equal (key-description (car x)) nkey))
|
||||
org-disputed-keys)))
|
||||
(if x (cdr x) key))
|
||||
|
@ -2112,7 +2112,7 @@ a format string understood by `format-time-string'.
|
|||
FIXME: Not used currently, because of timezone problem."
|
||||
:group 'org-agenda-daily/weekly
|
||||
:type 'string)
|
||||
|
||||
|
||||
(defcustom org-agenda-include-diary nil
|
||||
"If non-nil, include in the agenda entries from the Emacs Calendar's diary."
|
||||
:group 'org-agenda-daily/weekly
|
||||
|
@ -2783,7 +2783,7 @@ be linked only."
|
|||
(const :tag "Always" t)
|
||||
(const :tag "When there is no description" maybe)))
|
||||
|
||||
;; FIXME: rename
|
||||
;; FIXME: rename
|
||||
(defcustom org-export-html-expand t
|
||||
"Non-nil means, for HTML export, treat @<...> as HTML tag.
|
||||
When nil, these tags will be exported as plain text and therefore
|
||||
|
@ -3461,9 +3461,9 @@ means to push this value onto the list in the variable.")
|
|||
(when prio
|
||||
(if (< (length prio) 3) (setq prio '("A" "C" "B")))
|
||||
(setq prio (mapcar 'string-to-char prio))
|
||||
(org-set-local 'org-highest-priority (aref (nth 0 prio) 0))
|
||||
(org-set-local 'org-lowest-priority (aref (nth 1 prio) 0))
|
||||
(org-set-local 'org-default-priority (aref (nth 2 prio) 0)))
|
||||
(org-set-local 'org-highest-priority (nth 0 prio))
|
||||
(org-set-local 'org-lowest-priority (nth 1 prio))
|
||||
(org-set-local 'org-default-priority (nth 2 prio)))
|
||||
(and arch (org-set-local 'org-archive-location arch))
|
||||
(and links (setq org-link-abbrev-alist-local (nreverse links)))
|
||||
;; Process the TODO keywords
|
||||
|
@ -3533,7 +3533,7 @@ means to push this value onto the list in the variable.")
|
|||
(concat "^\\(\\*+\\)[ \t]*\\(?:\\("
|
||||
(mapconcat 'regexp-quote org-todo-keywords-1 "\\|")
|
||||
"\\)\\>\\)? *\\(.*?\\([ \t]:[a-zA-Z0-9:_@]+:[ \t]*\\)?$\\)")
|
||||
org-looking-at-done-regexp
|
||||
org-looking-at-done-regexp
|
||||
(concat "^" "\\(?:"
|
||||
(mapconcat 'regexp-quote org-done-keywords "\\|") "\\)"
|
||||
"\\>")
|
||||
|
@ -3570,7 +3570,7 @@ means to push this value onto the list in the variable.")
|
|||
"\\|" org-deadline-string
|
||||
"\\|" org-closed-string "\\|" org-clock-string "\\)\\>\\)")
|
||||
)
|
||||
|
||||
|
||||
(org-set-font-lock-defaults)))
|
||||
|
||||
|
||||
|
@ -3982,7 +3982,7 @@ that will be added to PLIST. Returns the string that was modified."
|
|||
(concat "\\(" org-bracket-link-regexp "\\)\\|\\("
|
||||
org-angle-link-re "\\)\\|\\("
|
||||
org-plain-link-re "\\)")
|
||||
"Regular expression matching any link.")
|
||||
"Regular expression matching any link.")
|
||||
|
||||
(defconst org-ts-lengths
|
||||
(cons (length (format-time-string (car org-time-stamp-formats)))
|
||||
|
@ -3996,7 +3996,8 @@ that will be added to PLIST. Returns the string that was modified."
|
|||
"Regular expression matching time strings for analysis.")
|
||||
(defconst org-ts-regexp2 (concat "<" org-ts-regexp1 "[^>\n]\\{0,5\\}>")
|
||||
"Regular expression matching time stamps, with groups.")
|
||||
(defconst org-ts-regexp3 (concat "[[<]" org-ts-regexp1 "[^>\n]\\{0,5\\}[]>]")
|
||||
;; FIXME need to exclude ] here as well, also need to think about lengths
|
||||
(defconst org-ts-regexp3 (concat "[[<]" org-ts-regexp1 "[^]>\n]\\{0,5\\}[]>]")
|
||||
"Regular expression matching time stamps (also [..]), with groups.")
|
||||
(defconst org-tr-regexp (concat org-ts-regexp "--?-?" org-ts-regexp)
|
||||
"Regular expression matching a time stamp range.")
|
||||
|
@ -4049,7 +4050,7 @@ will be prompted for."
|
|||
(setq beg (region-beginning) end (region-end)
|
||||
string (buffer-substring beg end))
|
||||
(setq move t))
|
||||
|
||||
|
||||
(while (setq e (pop eal))
|
||||
(setq tag (car (org-split-string (nth 2 e) "[ <>/]+"))
|
||||
c (aref tag 0))
|
||||
|
@ -4080,7 +4081,7 @@ will be prompted for."
|
|||
(insert " ") (backward-char 1))
|
||||
(insert string)
|
||||
(and move (backward-char 1))))
|
||||
|
||||
|
||||
(defun org-activate-plain-links (limit)
|
||||
"Run through the buffer and add overlays to links."
|
||||
(catch 'exit
|
||||
|
@ -4278,7 +4279,6 @@ between words."
|
|||
;; Priorities
|
||||
(list (concat "\\[#[A-Z0-9]\\]") '(0 'org-special-keyword t))
|
||||
;; Special keywords
|
||||
(list org-repeat-re '(0 'org-special-keyword t))
|
||||
(list (concat "\\<" org-deadline-string) '(0 'org-special-keyword t))
|
||||
(list (concat "\\<" org-scheduled-string) '(0 'org-special-keyword t))
|
||||
(list (concat "\\<" org-closed-string) '(0 'org-special-keyword t))
|
||||
|
@ -4466,8 +4466,10 @@ between words."
|
|||
(beginning-of-line 2)) (setq eol (point)))
|
||||
(outline-end-of-heading) (setq eoh (point))
|
||||
(org-end-of-subtree t)
|
||||
(skip-chars-forward " \t\n")
|
||||
(beginning-of-line 1) ; in case this is an item
|
||||
(unless (eobp)
|
||||
(skip-chars-forward " \t\n")
|
||||
(beginning-of-line 1) ; in case this is an item
|
||||
)
|
||||
(setq eos (1- (point))))
|
||||
;; Find out what to do next and set `this-command'
|
||||
(cond
|
||||
|
@ -4521,7 +4523,7 @@ between words."
|
|||
(beginning-of-line 1)
|
||||
(and (looking-at "[ \t]+") (replace-match ""))))
|
||||
(call-interactively (global-key-binding "\t")))
|
||||
|
||||
|
||||
(t (save-excursion
|
||||
(org-back-to-heading)
|
||||
(org-cycle))))))
|
||||
|
@ -4579,7 +4581,8 @@ With numerical argument N, show content up to level N."
|
|||
This function is the default value of the hook `org-cycle-hook'."
|
||||
(when (get-buffer-window (current-buffer))
|
||||
(cond
|
||||
((eq state 'overview) (org-first-headline-recenter 1))
|
||||
; ((eq state 'overview) (org-first-headline-recenter 1))
|
||||
; ((eq state 'overview) (org-beginning-of-line))
|
||||
((eq state 'content) nil)
|
||||
((eq state 'all) nil)
|
||||
((eq state 'folded) nil)
|
||||
|
@ -6792,7 +6795,7 @@ is always the old value."
|
|||
|
||||
(defun org-table-field-info (arg)
|
||||
"Show info about the current field, and highlight any reference at point."
|
||||
(interactive "P")
|
||||
(interactive "P")
|
||||
(org-table-get-specials)
|
||||
(save-excursion
|
||||
(let* ((pos (point))
|
||||
|
@ -7037,7 +7040,7 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables."
|
|||
(goto-line linepos)
|
||||
(org-table-goto-column colpos)
|
||||
(org-table-align)
|
||||
(org-table-fix-formulas
|
||||
(org-table-fix-formulas
|
||||
"$" (list (cons (number-to-string col) (number-to-string colpos))
|
||||
(cons (number-to-string colpos) (number-to-string col))))))
|
||||
|
||||
|
@ -7055,7 +7058,7 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables."
|
|||
(interactive "P")
|
||||
(let* ((col (current-column))
|
||||
(pos (point))
|
||||
(hline1p (save-excursion (beginning-of-line 1)
|
||||
(hline1p (save-excursion (beginning-of-line 1)
|
||||
(looking-at org-table-hline-regexp)))
|
||||
(dline1 (org-table-current-dline))
|
||||
(dline2 (+ dline1 (if up -1 1)))
|
||||
|
@ -7076,7 +7079,7 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables."
|
|||
(beginning-of-line 0)
|
||||
(move-to-column col)
|
||||
(unless (or hline1p hline2p)
|
||||
(org-table-fix-formulas
|
||||
(org-table-fix-formulas
|
||||
"@" (list (cons (number-to-string dline1) (number-to-string dline2))
|
||||
(cons (number-to-string dline2) (number-to-string dline1)))))))
|
||||
|
||||
|
@ -7679,7 +7682,7 @@ When NAMED is non-nil, look for a named equation."
|
|||
stored)
|
||||
((stringp equation)
|
||||
equation)
|
||||
(t (org-table-formula-from-user
|
||||
(t (org-table-formula-from-user
|
||||
(read-string
|
||||
(org-table-formula-to-user
|
||||
(format "%s formula %s%s="
|
||||
|
@ -7750,8 +7753,8 @@ When NAMED is non-nil, look for a named equation."
|
|||
(setq strings (org-split-string (match-string 2) " *:: *"))
|
||||
(while (setq string (pop strings))
|
||||
(when (string-match "\\(@[0-9]+\\$[0-9]+\\|\\$\\([a-zA-Z0-9]+\\)\\) *= *\\(.*[^ \t]\\)" string)
|
||||
(setq scol (if (match-end 2)
|
||||
(match-string 2 string)
|
||||
(setq scol (if (match-end 2)
|
||||
(match-string 2 string)
|
||||
(match-string 1 string))
|
||||
eq (match-string 3 string)
|
||||
eq-alist (cons (cons scol eq) eq-alist))
|
||||
|
@ -7801,7 +7804,7 @@ For all numbers larger than LIMIT, shift them by DELTA."
|
|||
org-table-named-field-locations nil
|
||||
org-table-current-begin-line nil
|
||||
org-table-current-begin-pos nil
|
||||
org-table-current-line-types nil)
|
||||
org-table-current-line-types nil)
|
||||
(goto-char beg)
|
||||
(when (re-search-forward "^[ \t]*| *! *\\(|.*\\)" end t)
|
||||
(setq names (org-split-string (match-string 1) " *| *")
|
||||
|
@ -7839,7 +7842,7 @@ For all numbers larger than LIMIT, shift them by DELTA."
|
|||
(goto-char beg)
|
||||
(setq org-table-current-begin-line (org-current-line)
|
||||
org-table-current-begin-pos (point)
|
||||
l org-table-current-begin-line)
|
||||
l org-table-current-begin-line)
|
||||
(while (looking-at "[ \t]*|\\(-\\)?")
|
||||
(push (if (match-end 1) 'hline 'dline) types)
|
||||
(if (match-end 1) (push l hlines) (push l dlines))
|
||||
|
@ -8076,7 +8079,7 @@ not overwrite the stored one."
|
|||
;; Insert complex ranges
|
||||
(while (string-match org-table-range-regexp form)
|
||||
(setq form
|
||||
(replace-match
|
||||
(replace-match
|
||||
(save-match-data
|
||||
(org-table-make-reference
|
||||
(org-table-get-range (match-string 0 form) nil n0)
|
||||
|
@ -8084,7 +8087,7 @@ not overwrite the stored one."
|
|||
t t form)))
|
||||
;; Insert simple ranges
|
||||
(while (string-match "\\$\\([0-9]+\\)\\.\\.\\$\\([0-9]+\\)" form)
|
||||
(setq form
|
||||
(setq form
|
||||
(replace-match
|
||||
(save-match-data
|
||||
(org-table-make-reference
|
||||
|
@ -8114,7 +8117,7 @@ not overwrite the stored one."
|
|||
(error "Calc does not seem to be installed, and is needed to evaluate the formula"))
|
||||
(setq ev (calc-eval (cons form modes)
|
||||
(if numbers 'num))))
|
||||
|
||||
|
||||
(when org-table-formula-debug
|
||||
(with-output-to-temp-buffer "*Substitution History*"
|
||||
(princ (format "Substitution history of formula
|
||||
|
@ -8356,7 +8359,7 @@ With prefix arg ALL, do this for all lines in the table."
|
|||
a (assoc name org-table-named-field-locations))
|
||||
(and (not a)
|
||||
(string-match "@\\([0-9]+\\)\\$\\([0-9]+\\)" name)
|
||||
(setq a
|
||||
(setq a
|
||||
(list
|
||||
name
|
||||
(aref org-table-dlines
|
||||
|
@ -8374,12 +8377,12 @@ With prefix arg ALL, do this for all lines in the table."
|
|||
(org-table-goto-column thiscol)
|
||||
(or noalign (and org-table-may-need-update (org-table-align))
|
||||
(and all (message "Re-applying formulas...done"))))))
|
||||
|
||||
|
||||
(defun org-table-iterate (&optional arg)
|
||||
"Recalculate the table until it does not change anymore."
|
||||
(interactive "P")
|
||||
(let ((imax (if arg (prefix-numeric-value arg) 10))
|
||||
(i 0)
|
||||
(i 0)
|
||||
(lasttbl (buffer-substring (org-table-begin) (org-table-end)))
|
||||
thistbl)
|
||||
(catch 'exit
|
||||
|
@ -8668,7 +8671,7 @@ If HLINE is set, this may be a hline reference, it certainly is not
|
|||
a translation reference."
|
||||
(save-match-data
|
||||
(let* ((sign (string-match "^[-+]" ref)) n)
|
||||
|
||||
|
||||
(if sign (setq sign (substring ref 0 1) ref (substring ref 1)))
|
||||
(cond
|
||||
((and hline (string-match "^I+" ref))
|
||||
|
@ -8679,14 +8682,14 @@ a translation reference."
|
|||
(setq sign (if (< n 0) "-" "+") n (abs n))
|
||||
(setq n (max 1 n)))
|
||||
(concat sign (make-string n ?I)))
|
||||
|
||||
|
||||
((string-match "^[0-9]+" ref)
|
||||
(setq n (string-to-number (concat sign ref)))
|
||||
(setq n (+ n (if decr -1 1)))
|
||||
(if sign
|
||||
(concat (if (< n 0) "-" "+") (number-to-string (abs n)))
|
||||
(number-to-string (max 1 n))))
|
||||
|
||||
|
||||
((string-match "^[a-zA-Z]+" ref)
|
||||
(org-number-to-letters
|
||||
(max 1 (+ (org-letters-to-number ref) (if decr -1 1)))))
|
||||
|
@ -8806,7 +8809,7 @@ With prefix ARG, apply the new formulas to the table."
|
|||
((or (org-at-regexp-p org-table-range-regexp2)
|
||||
(org-at-regexp-p org-table-translate-regexp)
|
||||
(org-at-regexp-p org-table-range-regexp))
|
||||
(setq match
|
||||
(setq match
|
||||
(save-match-data
|
||||
(org-table-convert-refs-to-rc (match-string 0))))
|
||||
'range)
|
||||
|
@ -8830,7 +8833,7 @@ With prefix ARG, apply the new formulas to the table."
|
|||
(re-search-backward "^\\S-" nil t)
|
||||
(beginning-of-line 1)
|
||||
(when (looking-at "\\(\\$[0-9a-zA-Z]+\\|@[0-9]+\\$[0-9]+\\|[a-zA-Z]+\\([0-9]+\\|&\\)\\) *=")
|
||||
(setq dest
|
||||
(setq dest
|
||||
(save-match-data
|
||||
(org-table-convert-refs-to-rc (match-string 1))))
|
||||
(org-table-add-rectangle-overlay
|
||||
|
@ -8966,7 +8969,7 @@ Use COMMAND to do the motion, repeat if necessary to end up in a data line."
|
|||
(org-table-fedit-scroll (- N)))
|
||||
|
||||
(defvar org-table-rectangle-overlays nil)
|
||||
|
||||
|
||||
(defun org-table-add-rectangle-overlay (beg end &optional face)
|
||||
"Add a new overlay."
|
||||
(let ((ov (org-make-overlay beg end)))
|
||||
|
@ -9411,6 +9414,30 @@ overwritten, and the table is not marked as requiring realignment."
|
|||
|
||||
(defvar org-table-clean-did-remove-column-1 nil)
|
||||
|
||||
(defun orgtbl-export (table target)
|
||||
(let ((func (intern (concat "orgtbl-to-" (symbol-name target))))
|
||||
(lines (org-split-string table "[ \t]*\n[ \t]*"))
|
||||
org-table-last-alignment org-table-last-column-widths
|
||||
maxcol column)
|
||||
(if (not (fboundp func))
|
||||
(error "Cannot export orgtbl table to %s" target))
|
||||
(setq lines (org-table-clean-before-export lines))
|
||||
(setq table
|
||||
(mapcar
|
||||
(lambda (x)
|
||||
(if (string-match org-table-hline-regexp x)
|
||||
'hline
|
||||
(org-split-string (org-trim x) "\\s-*|\\s-*")))
|
||||
lines))
|
||||
(setq maxcol (apply 'max (mapcar (lambda (x) (if (listp x) (length x) 0))
|
||||
table)))
|
||||
(loop for i from (1- maxcol) downto 0 do
|
||||
(setq column (mapcar (lambda (x) (if (listp x) (nth i x) nil)) table))
|
||||
(setq column (delq nil column))
|
||||
(push (apply 'max (mapcar 'string-width column)) org-table-last-column-widths)
|
||||
(push (> (/ (apply '+ (mapcar (lambda (x) (if (string-match org-table-number-regexp x) 1 0)) column)) maxcol) org-table-number-fraction) org-table-last-alignment))
|
||||
(funcall func table nil)))
|
||||
|
||||
(defun orgtbl-send-table (&optional maybe)
|
||||
"Send a tranformed version of this table to the receiver position.
|
||||
With argument MAYBE, fail quietly if no transformation is defined for
|
||||
|
@ -9453,7 +9480,7 @@ this table."
|
|||
(org-table-last-column-widths
|
||||
(org-remove-by-index (funcall fun org-table-last-column-widths)
|
||||
skipcols i0)))
|
||||
|
||||
|
||||
(unless (fboundp transform)
|
||||
(error "No such transformation function %s" transform))
|
||||
(setq txt (funcall transform table params))
|
||||
|
@ -9485,7 +9512,7 @@ First element has index 0, or I0 if given."
|
|||
(setq i0 (1+ i0))
|
||||
(if (memq i0 indices) :rm x))
|
||||
list))))
|
||||
|
||||
|
||||
(defun orgtbl-toggle-comment ()
|
||||
"Comment or uncomment the orgtbl at point."
|
||||
(interactive)
|
||||
|
@ -9581,7 +9608,7 @@ directly by `orgtbl-send-table'. See manual."
|
|||
(splicep (plist-get p :splice))
|
||||
(hline (plist-get p :hline))
|
||||
rtn line i fm efm lfmt h)
|
||||
|
||||
|
||||
;; Do we have a header?
|
||||
(if (and (not splicep) (listp (car table)) (memq 'hline table))
|
||||
(setq h t))
|
||||
|
@ -9589,7 +9616,7 @@ directly by `orgtbl-send-table'. See manual."
|
|||
;; Put header
|
||||
(unless splicep
|
||||
(push (or (plist-get p :tstart) "ERROR: no :tstart") rtn))
|
||||
|
||||
|
||||
;; Now loop over all lines
|
||||
(while (setq line (pop table))
|
||||
(if (eq line 'hline)
|
||||
|
@ -9617,10 +9644,10 @@ directly by `orgtbl-send-table'. See manual."
|
|||
(mapconcat 'identity line (org-get-param p h i :sep :hsep))
|
||||
(org-get-param p h i :lend :hlend))
|
||||
rtn))))
|
||||
|
||||
(unless splicep
|
||||
|
||||
(unless splicep
|
||||
(push (or (plist-get p :tend) "ERROR: no :tend") rtn))
|
||||
|
||||
|
||||
(mapconcat 'identity (nreverse rtn) "\n")))
|
||||
|
||||
(defun orgtbl-to-latex (table params)
|
||||
|
@ -9772,7 +9799,7 @@ For file links, arg negates `org-context-in-file-links'."
|
|||
(setq cpltxt (concat "bbdb:" (or name company))
|
||||
link (org-make-link cpltxt))
|
||||
(org-store-link-props :type "bbdb" :name name :company company)))
|
||||
|
||||
|
||||
((eq major-mode 'Info-mode)
|
||||
(setq link (org-make-link "info:"
|
||||
(file-name-nondirectory Info-current-file)
|
||||
|
@ -9950,7 +9977,7 @@ For file links, arg negates `org-context-in-file-links'."
|
|||
(if (string-match "::\\'" cpltxt)
|
||||
(setq cpltxt (substring cpltxt 0 -2)))
|
||||
(setq link (org-make-link cpltxt)))
|
||||
|
||||
|
||||
(buffer-file-name
|
||||
;; Just link to this file here.
|
||||
(setq cpltxt (concat "file:"
|
||||
|
@ -10161,7 +10188,8 @@ is in the current directory or below.
|
|||
With three \\[universal-argument] prefixes, negate the meaning of
|
||||
`org-keep-stored-link-after-insertion'."
|
||||
(interactive "P")
|
||||
(let ((region (if (org-region-active-p)
|
||||
(let ((wcf (current-window-configuration))
|
||||
(region (if (org-region-active-p)
|
||||
(prog1 (buffer-substring (region-beginning) (region-end))
|
||||
(delete-region (region-beginning) (region-end)))))
|
||||
tmphist ; byte-compile incorrectly complains about this
|
||||
|
@ -10200,23 +10228,31 @@ With three \\[universal-argument] prefixes, negate the meaning of
|
|||
(t (setq link (org-make-link "file:" file))))))
|
||||
(t
|
||||
;; Read link, with completion for stored links.
|
||||
;; Fake a link history
|
||||
(with-output-to-temp-buffer "*Org Links*"
|
||||
(princ "Insert a link. Use TAB to complete valid link prefixes.\n")
|
||||
(when org-stored-links
|
||||
(princ "\nStored links ar available with <up>/<down> (most recent with RET):\n\n")
|
||||
(princ (mapconcat 'car (reverse org-stored-links) "\n"))))
|
||||
(let ((cw (selected-window)))
|
||||
(select-window (get-buffer-window "*Org Links*"))
|
||||
(shrink-window-if-larger-than-buffer)
|
||||
(setq truncate-lines t)
|
||||
(select-window cw))
|
||||
;; Fake a link history, containing the stored links.
|
||||
(setq tmphist (append (mapcar 'car org-stored-links)
|
||||
org-insert-link-history))
|
||||
; (setq link (org-completing-read
|
||||
; "Link: " org-stored-links nil nil nil
|
||||
; 'tmphist
|
||||
; (or (car (car org-stored-links)))))
|
||||
(setq link (org-completing-read
|
||||
"Link: "
|
||||
(append
|
||||
(mapcar (lambda (x) (concat (car x) ":"))
|
||||
(append org-link-abbrev-alist-local org-link-abbrev-alist))
|
||||
(mapcar (lambda (x) (concat x ":")) org-link-types))
|
||||
; org-stored-links
|
||||
nil nil nil
|
||||
'tmphist
|
||||
(or (car (car org-stored-links)))))
|
||||
(unwind-protect
|
||||
(setq link (org-completing-read
|
||||
"Link: "
|
||||
(append
|
||||
(mapcar (lambda (x) (concat (car x) ":"))
|
||||
(append org-link-abbrev-alist-local org-link-abbrev-alist))
|
||||
(mapcar (lambda (x) (concat x ":")) org-link-types))
|
||||
nil nil nil
|
||||
'tmphist
|
||||
(or (car (car org-stored-links)))))
|
||||
(set-window-configuration wcf)
|
||||
(kill-buffer "*Org Links*"))
|
||||
(setq entry (assoc link org-stored-links))
|
||||
(or entry (push link org-insert-link-history))
|
||||
(if (funcall (if (equal complete-file '(64)) 'not 'identity)
|
||||
|
@ -10571,6 +10607,10 @@ If the current buffer is in `dired-mode', grep will be used to search
|
|||
in all files. If AVOID-POS is given, ignore matches near that position."
|
||||
(let ((case-fold-search t)
|
||||
(s0 (mapconcat 'identity (org-split-string s "[ \t\r\n]+") " "))
|
||||
(markers (concat "\\(?:" (mapconcat (lambda (x) (regexp-quote (car x)))
|
||||
(append '((" ") ("\t") ("\n"))
|
||||
org-emphasis-alist)
|
||||
"\\|") "\\)"))
|
||||
(pos (point))
|
||||
(pre "") (post "")
|
||||
words re0 re1 re2 re3 re4 re5 re2a reall)
|
||||
|
@ -10607,7 +10647,8 @@ in all files. If AVOID-POS is given, ignore matches near that position."
|
|||
;; Make a series of regular expressions to find a match
|
||||
(setq words (org-split-string s "[ \n\r\t]+")
|
||||
re0 (concat "\\(<<" (regexp-quote s0) ">>\\)")
|
||||
re2 (concat "[ \t\r\n]\\(" (mapconcat 'downcase words "[ \t]+") "\\)[ \t\r\n]")
|
||||
re2 (concat markers "\\(" (mapconcat 'downcase words "[ \t]+")
|
||||
"\\)" markers)
|
||||
re2a (concat "[ \t\r\n]\\(" (mapconcat 'downcase words "[ \t\r\n]+") "\\)[ \t\r\n]")
|
||||
re4 (concat "[^a-zA-Z_]\\(" (mapconcat 'downcase words "[^a-zA-Z_\r\n]+") "\\)[^a-zA-Z_]")
|
||||
re1 (concat pre re2 post)
|
||||
|
@ -11344,7 +11385,7 @@ See also the variable `org-reverse-note-order'."
|
|||
(not (re-search-forward "^\\* " nil t))
|
||||
(insert "\n* Notes\n"))
|
||||
(setq reversed (org-notes-order-reversed-p))
|
||||
|
||||
|
||||
;; Find the default location
|
||||
(when (and heading (stringp heading) (string-match "\\S-" heading))
|
||||
(goto-char (point-min))
|
||||
|
@ -11353,7 +11394,7 @@ See also the variable `org-reverse-note-order'."
|
|||
"\\([ \t]+:[@a-zA-Z0-9_:]*\\)?[ \t]*$")
|
||||
nil t)
|
||||
(setq org-goto-start-pos (match-beginning 0))))
|
||||
|
||||
|
||||
;; Ask the User for a location
|
||||
(setq spos (if fastp
|
||||
org-goto-start-pos
|
||||
|
@ -11389,7 +11430,7 @@ See also the variable `org-reverse-note-order'."
|
|||
(t
|
||||
;; Put it right there, with automatic level determined by
|
||||
;; org-paste-subtree or from prefix arg
|
||||
(org-paste-subtree
|
||||
(org-paste-subtree
|
||||
(if (numberp current-prefix-arg) current-prefix-arg)
|
||||
txt)))
|
||||
(when remember-save-after-remembering
|
||||
|
@ -11729,13 +11770,19 @@ For calling through lisp, arg is also interpreted in the following way:
|
|||
((memq interpret '(type priority))
|
||||
(if (eq this-command last-command)
|
||||
(car tail)
|
||||
(if (> (length tail) 0)
|
||||
(if (> (length tail) 0)
|
||||
(or done-word (car org-done-keywords))
|
||||
nil)))
|
||||
(t nil)))
|
||||
(next (if state (concat " " state " ") " "))
|
||||
dostates)
|
||||
(replace-match next t t)
|
||||
(unless head
|
||||
(setq head (org-get-todo-sequence-head state)
|
||||
ass (assoc head org-todo-kwd-alist)
|
||||
interpret (nth 1 ass)
|
||||
done-word (nth 3 ass)
|
||||
final-done-word (nth 4 ass)))
|
||||
(when (memq arg '(nextset previousset))
|
||||
(message "Keyword set: %s"
|
||||
(mapconcat 'identity (assoc state org-todo-sets) " ")))
|
||||
|
@ -11787,7 +11834,7 @@ right sequence."
|
|||
((not (member kwd org-todo-keywords-1))
|
||||
(car org-todo-keywords-1))
|
||||
(t (nth 2 (assoc kwd org-todo-kwd-alist))))))
|
||||
|
||||
|
||||
(defun org-get-repeat ()
|
||||
"Check if tere is a deadline/schedule with repeater in this entry."
|
||||
(save-match-data
|
||||
|
@ -11933,7 +11980,7 @@ be removed."
|
|||
((eq what 'closed) org-closed-string))
|
||||
" ")
|
||||
(org-insert-time-stamp
|
||||
time
|
||||
time
|
||||
(or org-time-was-given
|
||||
(and (eq what 'closed) org-log-done-with-time))
|
||||
(eq what 'closed))
|
||||
|
@ -11954,6 +12001,7 @@ be removed."
|
|||
The auto-repeater uses this.")
|
||||
|
||||
(defun org-add-log-maybe (&optional purpose state findpos)
|
||||
"FIXME"
|
||||
(save-excursion
|
||||
(when (and (listp org-log-done)
|
||||
(memq purpose org-log-done))
|
||||
|
@ -12029,7 +12077,7 @@ The auto-repeater uses this.")
|
|||
(goto-char org-log-note-return-to))
|
||||
(move-marker org-log-note-return-to nil)
|
||||
(and org-log-post-message (message org-log-post-message)))
|
||||
|
||||
|
||||
(defvar org-occur-highlights nil)
|
||||
(make-variable-buffer-local 'org-occur-highlights)
|
||||
|
||||
|
@ -12056,7 +12104,8 @@ that the match should indeed be shown."
|
|||
(when (or (not callback)
|
||||
(save-match-data (funcall callback)))
|
||||
(setq cnt (1+ cnt))
|
||||
(org-highlight-new-match (match-beginning 0) (match-end 0))
|
||||
(when org-highlight-sparse-tree-matches
|
||||
(org-highlight-new-match (match-beginning 0) (match-end 0)))
|
||||
(org-show-context 'occur-tree))))
|
||||
(when org-remove-highlights-with-change
|
||||
(org-add-hook 'before-change-functions 'org-remove-occur-highlights
|
||||
|
@ -12430,7 +12479,7 @@ With prefix ARG, realign all tags in headings in the current buffer."
|
|||
(while (string-match "[-+&]+" tags)
|
||||
;; No boolean logic, just a list
|
||||
(setq tags (replace-match ":" t t tags))))
|
||||
|
||||
|
||||
(if (string-match "\\`[\t ]*\\'" tags)
|
||||
(setq tags "")
|
||||
(unless (string-match ":$" tags) (setq tags (concat tags ":")))
|
||||
|
@ -13240,14 +13289,14 @@ DATE."
|
|||
(let ((a1 '(("d" . day) ("w" . week) ("m" . month) ("y" . year)))
|
||||
dn dw sday cday n1 n2
|
||||
d m y y1 y2 date1 date2 nmonths nm ny m2)
|
||||
|
||||
|
||||
(setq start (org-date-to-gregorian start)
|
||||
current (org-date-to-gregorian current)
|
||||
sday (calendar-absolute-from-gregorian start)
|
||||
cday (calendar-absolute-from-gregorian current))
|
||||
|
||||
(if (<= cday sday) (throw 'exit sday))
|
||||
|
||||
|
||||
(if (string-match "\\(\\+[0-9]+\\)\\([dwmy]\\)" change)
|
||||
(setq dn (string-to-number (match-string 1 change))
|
||||
dw (cdr (assoc (match-string 2 change) a1)))
|
||||
|
@ -13286,7 +13335,7 @@ DATE."
|
|||
(setq n2 (calendar-absolute-from-gregorian (list m2 d y2))))))
|
||||
|
||||
(if (> (abs (- cday n1)) (abs (- cday n2))) n2 n1))))
|
||||
|
||||
|
||||
(defun org-date-to-gregorian (date)
|
||||
"Turn any specification of DATE into a gregorian date for the calendar."
|
||||
(cond ((integerp date) (calendar-gregorian-from-absolute date))
|
||||
|
@ -13488,9 +13537,9 @@ If there is already a time stamp at the cursor position, update it."
|
|||
(time-to-seconds org-clock-start-time)))
|
||||
(h (floor delta 3600))
|
||||
(m (floor (- delta (* 3600 h)) 60)))
|
||||
(setq org-mode-line-string
|
||||
(setq org-mode-line-string
|
||||
(propertize (format "-[%d:%02d (%s)]" h m org-clock-heading)
|
||||
'help-echo "Org-mode clock is running"))
|
||||
'help-echo "Org-mode clock is running"))
|
||||
(force-mode-line-update)))
|
||||
|
||||
(defvar org-clock-marker (make-marker)
|
||||
|
@ -14449,7 +14498,7 @@ item is a list of comma-separated values, like this:
|
|||
|
||||
category,head,type,todo,tags,date,time,extra,priority-l,priority-n
|
||||
|
||||
category The category of the item
|
||||
category The category of the item
|
||||
head The headline, without TODO kwd, TAGS and PRIORITY
|
||||
type The type of the agenda entry, can be
|
||||
todo selected in TODO match
|
||||
|
@ -14518,7 +14567,7 @@ priority-n The computed numerical priority"
|
|||
|
||||
(defun org-agenda-export-csv-mapper (prop)
|
||||
(let ((res (plist-get org-agenda-info prop)))
|
||||
(setq res
|
||||
(setq res
|
||||
(cond
|
||||
((not res) "")
|
||||
((stringp res) res)
|
||||
|
@ -14531,10 +14580,11 @@ priority-n The computed numerical priority"
|
|||
;;;###autoload
|
||||
(defun org-store-agenda-views (&rest parameters)
|
||||
(interactive)
|
||||
(funcall (intern "org-batch-store-agenda-views")))
|
||||
(eval (list 'org-batch-store-agenda-views)))
|
||||
|
||||
(defvar org-agenda-buffer-name)
|
||||
|
||||
;; FIXME, why is this a macro?????
|
||||
;;;###autoload
|
||||
(defmacro org-batch-store-agenda-views (&rest parameters)
|
||||
"Run all custom agenda commands that have a file argument."
|
||||
|
@ -14585,7 +14635,7 @@ higher priority settings."
|
|||
(string-match "<style>" org-agenda-export-html-style))
|
||||
;; replace <style> section with org-agenda-export-html-style
|
||||
(goto-char (point-min))
|
||||
(kill-region (- (search-forward "<style") 6)
|
||||
(kill-region (- (search-forward "<style") 6)
|
||||
(search-forward "</style>"))
|
||||
(insert org-agenda-export-html-style))
|
||||
(write-file file)
|
||||
|
@ -14804,7 +14854,7 @@ Optional argument FILE means, use this file instead of the current."
|
|||
(add-text-properties (match-beginning 0) (match-end 0)
|
||||
'(face org-link)))
|
||||
(unless org-agenda-with-colors
|
||||
(remove-text-properties (point-min) (point-max) '(face nil))))
|
||||
(remove-text-properties (point-min) (point-max) '(face nil))))
|
||||
(run-hooks 'org-finalize-agenda-hook))))
|
||||
|
||||
(defun org-prepare-agenda-buffers (files)
|
||||
|
@ -14839,7 +14889,7 @@ Optional argument FILE means, use this file instead of the current."
|
|||
(add-text-properties
|
||||
(match-beginning 0) (org-end-of-subtree t) pc)))
|
||||
(set-buffer-modified-p bmp))))))
|
||||
|
||||
|
||||
(defvar org-agenda-skip-function nil
|
||||
"Function to be called at each match during agenda construction.
|
||||
If this function return nil, the current match should not be skipped.
|
||||
|
@ -15675,9 +15725,11 @@ the documentation of `org-diary'."
|
|||
;; FIXME: get rid of the \n at some point but watch out
|
||||
(regexp (concat "[\n\r]\\*+ *\\("
|
||||
(if org-select-this-todo-keyword
|
||||
(concat "\\<\\("
|
||||
(mapconcat 'identity (org-split-string org-select-this-todo-keyword "|") "\\|")
|
||||
"\\)\\>")
|
||||
(if (equal org-select-this-todo-keyword "*")
|
||||
org-todo-regexp
|
||||
(concat "\\<\\("
|
||||
(mapconcat 'identity (org-split-string org-select-this-todo-keyword "|") "\\|")
|
||||
"\\)\\>"))
|
||||
org-not-done-regexp)
|
||||
"[^\n\r]*\\)"))
|
||||
marker priority category tags
|
||||
|
@ -16966,7 +17018,7 @@ the tags of the current headline come last."
|
|||
(org-up-heading-all 1))
|
||||
(error nil))))
|
||||
tags)))
|
||||
|
||||
|
||||
;; FIXME: should fix the tags property of the agenda line.
|
||||
(defun org-agenda-set-tags ()
|
||||
"Set tags for the current headline."
|
||||
|
@ -17553,7 +17605,7 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]."
|
|||
(pngfile (concat texfilebase ".png"))
|
||||
(fnh (face-attribute 'default :height nil))
|
||||
(scale (or (plist-get options (if buffer :scale :html-scale)) 1.0))
|
||||
(dpi (number-to-string (floor (* 0.9 (if buffer fnh 140.)))))
|
||||
(dpi (number-to-string (* scale (floor (* 0.9 (if buffer fnh 140.))))))
|
||||
(fg (or (plist-get options (if buffer :foreground :html-foreground))
|
||||
"Black"))
|
||||
(bg (or (plist-get options (if buffer :background :html-background))
|
||||
|
@ -18135,7 +18187,7 @@ translations. There is currently no way for users to extend this.")
|
|||
(goto-char (point-min))
|
||||
(while (re-search-forward "^#\\+HTML:[ \t]*\\(.*\\)" nil t)
|
||||
(replace-match "\\1" t)
|
||||
(add-text-properties
|
||||
(add-text-properties
|
||||
(point-at-bol) (min (1+ (point-at-eol)) (point-max))
|
||||
'(org-protected t))))
|
||||
(goto-char (point-min))
|
||||
|
@ -18336,7 +18388,7 @@ underlined headlines. The default is 3."
|
|||
(time (format-time-string "%X" (org-current-time)))
|
||||
(author (plist-get opt-plist :author))
|
||||
(title (or (plist-get opt-plist :title)
|
||||
(and (not
|
||||
(and (not
|
||||
(plist-get opt-plist :skip-before-1st-heading))
|
||||
(org-export-grab-title-from-buffer))
|
||||
(file-name-sans-extension
|
||||
|
@ -18425,13 +18477,13 @@ underlined headlines. The default is 3."
|
|||
(org-search-todo-below
|
||||
line lines level))))
|
||||
(setq txt (org-html-expand-for-ascii txt))
|
||||
|
||||
|
||||
(if (and (memq org-export-with-tags '(not-in-toc nil))
|
||||
(string-match "[ \t]+:[a-zA-Z0-9_@:]+:[ \t]*$" txt))
|
||||
(setq txt (replace-match "" t t txt)))
|
||||
(if (string-match quote-re0 txt)
|
||||
(setq txt (replace-match "" t t txt)))
|
||||
|
||||
|
||||
(if org-export-with-section-numbers
|
||||
(setq txt (concat (org-section-number level)
|
||||
" " txt)))
|
||||
|
@ -18446,7 +18498,7 @@ underlined headlines. The default is 3."
|
|||
))))
|
||||
lines)
|
||||
(setq thetoc (if have-headings (nreverse thetoc) nil))))
|
||||
|
||||
|
||||
(org-init-section-numbers)
|
||||
(while (setq line (pop lines))
|
||||
;; Remove the quoted HTML tags.
|
||||
|
@ -18812,7 +18864,7 @@ in a window. A non-interactive call will only retunr the buffer."
|
|||
(goto-char end)
|
||||
(set-mark (point)) ;; to activate the region
|
||||
(goto-char beg)
|
||||
(setq rtn (org-export-as-html
|
||||
(setq rtn (org-export-as-html
|
||||
nil nil nil
|
||||
buffer body-only))
|
||||
(if (fboundp 'deactivate-mark) (deactivate-mark))
|
||||
|
@ -18836,6 +18888,16 @@ a string. When BODY-ONLY is set, don't produce the file header and footer,
|
|||
simply return the content of <body>...</body>, without even
|
||||
the body tags themselves."
|
||||
(interactive "P")
|
||||
|
||||
;; Make sure we have a file name when we need it.
|
||||
(when (and (not (or to-buffer body-only))
|
||||
(not buffer-file-name))
|
||||
(if (buffer-base-buffer)
|
||||
(org-set-local 'buffer-file-name
|
||||
(with-current-buffer (buffer-base-buffer)
|
||||
buffer-file-name))
|
||||
(error "Need a file name to be able to export.")))
|
||||
|
||||
(message "Exporting...")
|
||||
(setq-default org-todo-line-regexp org-todo-line-regexp)
|
||||
(setq-default org-deadline-line-regexp org-deadline-line-regexp)
|
||||
|
@ -18876,7 +18938,7 @@ the body tags themselves."
|
|||
(time (format-time-string "%X" (org-current-time)))
|
||||
(author (plist-get opt-plist :author))
|
||||
(title (or (plist-get opt-plist :title)
|
||||
(and (not
|
||||
(and (not
|
||||
(plist-get opt-plist :skip-before-1st-heading))
|
||||
(org-export-grab-title-from-buffer))
|
||||
(and buffer-file-name
|
||||
|
@ -18911,7 +18973,7 @@ the body tags themselves."
|
|||
(lines
|
||||
(org-skip-comments (org-split-string
|
||||
(org-cleaned-string-for-export
|
||||
region
|
||||
region
|
||||
:emph-multiline t
|
||||
:for-html t
|
||||
:skip-before-1st-heading
|
||||
|
@ -18976,13 +19038,13 @@ lang=\"%s\" xml:lang=\"%s\">
|
|||
"
|
||||
language language (org-html-expand title)
|
||||
(or charset "iso-8859-1") date time author style))
|
||||
|
||||
|
||||
(insert (or (plist-get opt-plist :preamble) ""))
|
||||
|
||||
|
||||
(when (plist-get opt-plist :auto-preamble)
|
||||
(if title (insert (format org-export-html-title-format
|
||||
(org-html-expand title))))))
|
||||
|
||||
|
||||
(if (and org-export-with-toc (not body-only))
|
||||
(progn
|
||||
(push (format "<h%d>%s</h%d>\n"
|
||||
|
@ -19054,7 +19116,7 @@ lang=\"%s\" xml:lang=\"%s\">
|
|||
"</li>\n<li><a href=\"#sec-%d\"><span class=\"todo\">%s</span></a>"
|
||||
"</li>\n<li><a href=\"#sec-%d\">%s</a>")
|
||||
head-count txt) thetoc)
|
||||
|
||||
|
||||
(setq org-last-level level))
|
||||
)))
|
||||
line)
|
||||
|
@ -19162,7 +19224,7 @@ lang=\"%s\" xml:lang=\"%s\">
|
|||
(setq rpl
|
||||
(concat
|
||||
"<a href=\"#"
|
||||
(org-solidify-link-text
|
||||
(org-solidify-link-text
|
||||
(save-match-data (org-link-unescape path)) target-alist)
|
||||
"\">" desc "</a>")))
|
||||
((member type '("http" "https")) ; FIXME: need to test this.
|
||||
|
@ -19229,9 +19291,10 @@ lang=\"%s\" xml:lang=\"%s\">
|
|||
(setq line (replace-match
|
||||
"<span class=\"done\">\\2</span>"
|
||||
t nil line 2))
|
||||
(setq line (replace-match "<span class=\"todo\">\\2</span>"
|
||||
t nil line 2))))
|
||||
|
||||
(setq line
|
||||
(concat (substring line 0 (match-beginning 2))
|
||||
"<span class=\"todo\">" (match-string 2 line)
|
||||
"</span>" (substring line (match-end 2))))))
|
||||
(cond
|
||||
((string-match "^\\(\\*+\\)[ \t]*\\(.*\\)" line)
|
||||
;; This is a headline
|
||||
|
@ -19332,6 +19395,19 @@ lang=\"%s\" xml:lang=\"%s\">
|
|||
;; are not fully interpreted, lines starting with "-", "+", "*"
|
||||
;; also start a new paragraph.
|
||||
(if (string-match "^ [-+*]-\\|^[ \t]*$" line) (org-open-par))
|
||||
;; Is this the start of a footnote?
|
||||
(when (string-match "^[ \t]*\\[\\([0-9]+\\)\\]" line)
|
||||
(org-close-par-maybe)
|
||||
(let ((n (match-string 1 line)))
|
||||
(setq line (replace-match
|
||||
(format "<p class=\"footnote\"><sup><a class=\"footnum\"name=\"fn.%s\" href=\"#fnr.%s\">%s</a></sup>" n n n) t t line))))
|
||||
;; Does this contain a reference to a footnote?
|
||||
(while (string-match "\\[\\([0-9]+\\)\\]" line)
|
||||
(let ((n (match-string 1 line)))
|
||||
(setq line (replace-match
|
||||
(format
|
||||
"<sup><a class=\"footref\" name=\"fnr.%s\" href=\"#fn.%s\">%s</a></sup>"
|
||||
n n n) t t line))))
|
||||
|
||||
;; Check if the line break needs to be conserved
|
||||
(cond
|
||||
|
@ -19410,6 +19486,8 @@ lang=\"%s\" xml:lang=\"%s\">
|
|||
|
||||
(defun org-format-table-html (lines olines)
|
||||
"Find out which HTML converter to use and return the HTML code."
|
||||
(if (stringp lines)
|
||||
(setq lines (org-split-string lines "\n")))
|
||||
(if (string-match "^[ \t]*|" (car lines))
|
||||
;; A normal org table
|
||||
(org-format-org-table-html lines)
|
||||
|
@ -19457,7 +19535,7 @@ lang=\"%s\" xml:lang=\"%s\">
|
|||
(catch 'next-line
|
||||
(if (string-match "^[ \t]*|-" line)
|
||||
(progn
|
||||
(unless splice
|
||||
(unless splice
|
||||
(push (if head "</thead>" "</tbody>") html)
|
||||
(if lines (push "<tbody>" html) (setq tbopen nil)))
|
||||
(setq head nil) ;; head ends here, first time around
|
||||
|
@ -19631,7 +19709,7 @@ But it has the disadvantage, that Org-mode's HTML conversions cannot be used."
|
|||
(setq s (replace-match "" t t s))))
|
||||
(while (string-match org-bracket-link-regexp s)
|
||||
(setq s (replace-match (match-string (if (match-end 3) 3 1) s)
|
||||
t t s)))
|
||||
t t s)))
|
||||
s)
|
||||
|
||||
(defun org-html-expand (string)
|
||||
|
@ -19833,7 +19911,7 @@ file and store it under the name `org-combined-agenda-icalendar-file'."
|
|||
:ical (list :publishing-directory
|
||||
org-export-publishing-directory)))
|
||||
file ical-file ical-buffer category started org-agenda-new-buffers)
|
||||
|
||||
|
||||
(and (get-buffer "*ical-tmp*") (kill-buffer "*ical-tmp*"))
|
||||
(when combine
|
||||
(setq ical-file
|
||||
|
@ -19940,7 +20018,7 @@ END:VEVENT\n"
|
|||
(org-ical-ts-to-string ts "DTSTART")
|
||||
(org-ical-ts-to-string ts2 "DTEND" inc)
|
||||
rrule hd category)))))
|
||||
|
||||
|
||||
(when (and org-icalendar-include-sexps
|
||||
(condition-case nil (require 'icalendar) (error nil))
|
||||
(fboundp 'icalendar-export-region))
|
||||
|
@ -19983,7 +20061,7 @@ END:VEVENT\n"
|
|||
(setq pri org-default-priority))
|
||||
(setq pri (floor (1+ (* 8. (/ (float (- org-lowest-priority pri))
|
||||
(- org-lowest-priority org-highest-priority))))))
|
||||
|
||||
|
||||
(princ (format "BEGIN:VTODO
|
||||
%s
|
||||
SUMMARY:%s
|
||||
|
@ -20133,7 +20211,6 @@ The XOXO buffer is named *xoxo-<source buffer name>*"
|
|||
(org-defkey org-mode-map [(shift tab)] 'org-shifttab)
|
||||
(define-key org-mode-map (kbd "<backtab>") 'org-shifttab)
|
||||
|
||||
|
||||
(org-defkey org-mode-map [(shift return)] 'org-table-copy-down)
|
||||
(org-defkey org-mode-map [(meta shift return)] 'org-insert-todo-heading)
|
||||
(org-defkey org-mode-map [(meta return)] 'org-meta-return)
|
||||
|
@ -20346,7 +20423,7 @@ because, in this case the deletion might narrow the column."
|
|||
(put 'org-delete-char 'delete-selection 'supersede)
|
||||
(put 'org-delete-backward-char 'delete-selection 'supersede)
|
||||
|
||||
;; Make `flyspell-mode' delay after some commands
|
||||
;; Make `flyspell-mode' delay after some commands
|
||||
(put 'org-self-insert-command 'flyspell-delayed t)
|
||||
(put 'orgtbl-self-insert-command 'flyspell-delayed t)
|
||||
(put 'org-delete-char 'flyspell-delayed t)
|
||||
|
@ -21068,7 +21145,7 @@ really on, so that the block visually is on the match."
|
|||
(save-excursion
|
||||
(beginning-of-line (- 1 (or nlines 0)))
|
||||
(while (re-search-forward re eol t)
|
||||
(if (and (<= (match-beginning 0) pos)
|
||||
(if (and (<= (match-beginning 0) pos)
|
||||
(>= (+ inc (match-end 0)) pos))
|
||||
(throw 'exit (cons (match-beginning 0) (match-end 0)))))))))
|
||||
|
||||
|
@ -21155,7 +21232,7 @@ The sequences in STRING may contain normal field width and padding information,
|
|||
for example \"%-5s\". Replacements happen in the sequence given by TABLE,
|
||||
so values can contain further %-escapes if they are define later in TABLE."
|
||||
(let ((case-fold-search nil)
|
||||
e re rpl)
|
||||
e re rpl)
|
||||
(while (setq e (pop table))
|
||||
(setq re (concat "%-?[0-9.]*" (substring (car e) 1)))
|
||||
(while (string-match re string)
|
||||
|
@ -21490,6 +21567,26 @@ Show the heading too, if it is currently invisible."
|
|||
|
||||
;;;; Experimental code
|
||||
|
||||
(defun org-closed-in-range ()
|
||||
"Sparse treee of items closed in a certain time range.
|
||||
Still experimental, may disappear in the furture."
|
||||
(interactive)
|
||||
;; Get the time interval from the user.
|
||||
(let* ((time1 (time-to-seconds
|
||||
(org-read-date nil 'to-time nil "Starting date: ")))
|
||||
(time2 (time-to-seconds
|
||||
(org-read-date nil 'to-time nil "End date:")))
|
||||
;; callback function
|
||||
(callback (lambda ()
|
||||
(let ((time
|
||||
(time-to-seconds
|
||||
(apply 'encode-time
|
||||
(org-parse-time-string
|
||||
(match-string 1))))))
|
||||
;; check if time in interval
|
||||
(and (>= time time1) (<= time time2))))))
|
||||
;; make tree, check each match with the callback
|
||||
(org-occur "CLOSED: +\\[\\(.*?\\)\\]" nil callback)))
|
||||
|
||||
;;;; Finish up
|
||||
|
||||
|
|
50
org.texi
50
org.texi
|
@ -3,7 +3,7 @@
|
|||
@setfilename ../info/org
|
||||
@settitle Org Mode Manual
|
||||
|
||||
@set VERSION 4.75
|
||||
@set VERSION 4.76
|
||||
@set DATE May 2007
|
||||
|
||||
@dircategory Emacs
|
||||
|
@ -260,6 +260,7 @@ Text interpretation by the exporter
|
|||
|
||||
* Comment lines:: Some lines will not be exported
|
||||
* Initial text:: Text before the first headline
|
||||
* Footnotes:: Numbers like [1]
|
||||
* Enhancing text:: Subscripts, symbols and more
|
||||
* Export options:: How to influence the export settings
|
||||
|
||||
|
@ -4692,7 +4693,7 @@ and for @file{htmlize} to be used during export, for example
|
|||
(setq org-agenda-exporter-settings
|
||||
'((ps-number-of-columns 2)
|
||||
(ps-landscape-mode t)
|
||||
(htmlize-output-type 'inline-css)))
|
||||
(htmlize-output-type 'css)))
|
||||
@end lisp
|
||||
@end table
|
||||
|
||||
|
@ -5408,6 +5409,7 @@ in order to produce better output.
|
|||
@menu
|
||||
* Comment lines:: Some lines will not be exported
|
||||
* Initial text:: Text before the first headline
|
||||
* Footnotes:: Numbers like [1]
|
||||
* Enhancing text:: Subscripts, symbols and more
|
||||
* Export options:: How to influence the export settings
|
||||
@end menu
|
||||
|
@ -5427,7 +5429,7 @@ word @samp{COMMENT} will never be exported.
|
|||
Toggle the COMMENT keyword at the beginning of an entry.
|
||||
@end table
|
||||
|
||||
@node Initial text, Enhancing text, Comment lines, Text interpretation
|
||||
@node Initial text, Footnotes, Comment lines, Text interpretation
|
||||
@subsection Text before the first headline
|
||||
|
||||
Org-mode normally ignores any text before the first headline when
|
||||
|
@ -5465,7 +5467,32 @@ construct:
|
|||
#+TEXT: This goes between the table of contents and the first headline
|
||||
@end example
|
||||
|
||||
@node Enhancing text, Export options, Initial text, Text interpretation
|
||||
@node Footnotes, Enhancing text, Initial text, Text interpretation
|
||||
@subsection Footnotes
|
||||
@cindex footnotes
|
||||
@cindex @file{footnote.el}
|
||||
|
||||
Numbers in square brackets are treated as footnotes, so that you can use
|
||||
the Emacs package @file{footnote.el} to create footnotes. For example:
|
||||
|
||||
@example
|
||||
The org-mode homepage[1] clearly needs help from
|
||||
a good web designer.
|
||||
|
||||
[1] The link is: http://www.astro.uva.nl/~dominik/Tools/org
|
||||
@end example
|
||||
|
||||
@noindent
|
||||
@kindex C-c !
|
||||
Note that the @file{footnote} package uses @kbd{C-c !} to invoke its
|
||||
commands. This binding conflicts with the org-mode command for
|
||||
inserting inactive time stamps. You could use the variable
|
||||
@code{footnote-prefix} to switch footnotes commands to another key. Or,
|
||||
if you are too used to this binding, you could use
|
||||
@code{org-replace-disputed-keys} and @code{org-disputed-keys} to change
|
||||
the settings in Org-mode.
|
||||
|
||||
@node Enhancing text, Export options, Footnotes, Text interpretation
|
||||
@subsection Enhancing text for export
|
||||
@cindex enhancing text
|
||||
@cindex richer text
|
||||
|
@ -6390,6 +6417,10 @@ format. See the documentation string of the command
|
|||
possible.
|
||||
@end table
|
||||
@file{table.el} is part of Emacs 22.
|
||||
@cindex @file{footnote.el}
|
||||
@item @file{footnote.el} by Steven L. Baur
|
||||
Org-mode recognizes numerical footnotes as provided by this package
|
||||
(@pxref{Footnotes}).
|
||||
@end table
|
||||
|
||||
@node Conflicts, , Cooperation, Interaction
|
||||
|
@ -6429,8 +6460,19 @@ to have other replacement keys, look at the variable
|
|||
@cindex @file{windmove.el}
|
||||
Also this package uses the @kbd{S-<cursor>} keys, so everything written
|
||||
in the paragraph above about CUA mode also applies here.
|
||||
|
||||
@cindex @file{footnote.el}
|
||||
@item @file{footnote.el} by Steven L. Baur
|
||||
Org-mode supports the syntax of the footnote package, but only the
|
||||
numerical footnote markers. Also, the default key for footnote
|
||||
commands, @kbd{C-c !} is already used by org-mode. You could use the
|
||||
variable @code{footnote-prefix} to switch footnotes commands to another
|
||||
key. Or, you could use @code{org-replace-disputed-keys} and
|
||||
@code{org-disputed-keys} to change the settings in Org-mode.
|
||||
|
||||
@end table
|
||||
|
||||
|
||||
@node Bugs, , Interaction, Miscellaneous
|
||||
@section Bugs
|
||||
@cindex bugs
|
||||
|
|
BIN
orgcard.pdf
BIN
orgcard.pdf
Binary file not shown.
114
orgcard.tex
114
orgcard.tex
|
@ -2,26 +2,26 @@
|
|||
\def\orgversionnumber{4.75}
|
||||
\def\versionyear{2007} % latest update
|
||||
\def\year{2007} % latest copyright year
|
||||
%
|
||||
|
||||
%**start of header
|
||||
\newcount\columnsperpage
|
||||
\newcount\letterpaper
|
||||
|
||||
% This file can be printed with 1, 2, or 3 columns per page (see below).
|
||||
% At the moment this card works quite nicely in 3 column format and
|
||||
% currently takes 2 full pages. It is thus suited to producing one
|
||||
% double-side page when printed.
|
||||
|
||||
% There are a couple of tweaks in the format of this card which make it work
|
||||
% slightly better on A4 paper. The changes due, I think, to Stephen Eglen,
|
||||
% are commented below. Revert the changes if you want letter sized paper.
|
||||
|
||||
% Try running something like
|
||||
% tex org-mode-ref.tex; dvips -t landscape org-mode-ref.dvi
|
||||
% to print the card
|
||||
% Specify how many you want here.
|
||||
|
||||
\columnsperpage=3
|
||||
|
||||
% Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc
|
||||
% Set letterpapaer to 0 for A4 paper, 1 for letter (US) paper. Useful
|
||||
% only when columnsperpage is 2 or 3.
|
||||
|
||||
\letterpaper=0
|
||||
|
||||
% Nothing else needs to be changed below this line.
|
||||
% Copyright (C) 1987, 1993, 1996, 1997, 2001, 2002, 2003, 2004,
|
||||
% 2005, 2006, 2007 Free Software Foundation, Inc.
|
||||
|
||||
% This file is part of GNU Emacs.
|
||||
|
||||
% GNU Emacs is free software; you can redistribute it and/or modify
|
||||
% it under the terms of the GNU General Public License as published by
|
||||
|
@ -35,8 +35,8 @@
|
|||
|
||||
% You should have received a copy of the GNU General Public License
|
||||
% along with GNU Emacs; see the file COPYING. If not, write to
|
||||
% the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
% Boston, MA 02111-1307, USA.
|
||||
% the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||||
% Boston, MA 02110-1301, USA.
|
||||
|
||||
% This file is intended to be processed by plain TeX (TeX82).
|
||||
%
|
||||
|
@ -54,6 +54,10 @@
|
|||
% For this you need a dvi device driver that can print sideways.
|
||||
% Which mode to use is controlled by setting \columnsperpage above.
|
||||
%
|
||||
% To compile and print this document:
|
||||
% tex refcard.tex
|
||||
% dvips -t landscape refcard.dvi
|
||||
%
|
||||
% Author:
|
||||
% Stephen Gildea
|
||||
% Internet: gildea@stop.mail-abuse.org
|
||||
|
@ -82,20 +86,20 @@ are preserved on all copies.
|
|||
% can be scanned without complaint.
|
||||
\def\bye{\par\vfill\supereject\end}
|
||||
|
||||
\newdimen\intercolumnskip %horizontal space between columns
|
||||
\newbox\columna %boxes to hold columns already built
|
||||
\newdimen\intercolumnskip %horizontal space between columns
|
||||
\newbox\columna %boxes to hold columns already built
|
||||
\newbox\columnb
|
||||
|
||||
\def\ncolumns{\the\columnsperpage}
|
||||
|
||||
\message{[\ncolumns\space
|
||||
\message{[\ncolumns\space
|
||||
column\if 1\ncolumns\else s\fi\space per page]}
|
||||
|
||||
\def\scaledmag#1{ scaled \magstep #1}
|
||||
|
||||
% This multi-way format was designed by Stephen Gildea October 1986.
|
||||
% Note that the 1-column format is fontfamily-independent.
|
||||
\if 1\ncolumns %one-column format uses normal size
|
||||
\if 1\ncolumns %one-column format uses normal size
|
||||
\hsize 4in
|
||||
\vsize 10in
|
||||
\voffset -.7in
|
||||
|
@ -106,14 +110,14 @@ are preserved on all copies.
|
|||
|
||||
\footline{\hss\folio}
|
||||
\def\makefootline{\baselineskip10pt\hsize6.5in\line{\the\footline}}
|
||||
\else %2 or 3 columns uses prereduced size
|
||||
\else %2 or 3 columns uses prereduced size
|
||||
\hsize 3.2in
|
||||
|
||||
% FIXME - Try to make things more A4 friendly
|
||||
% \vsize 7.95in
|
||||
\vsize 7.65in
|
||||
% \hoffset -.75in
|
||||
\hoffset -.25in
|
||||
\if 1\the\letterpaper
|
||||
\vsize 7.95in
|
||||
\else
|
||||
\vsize 7.65in
|
||||
\fi
|
||||
\hoffset -.75in
|
||||
\voffset -.745in
|
||||
\font\titlefont=cmbx10 \scaledmag2
|
||||
\font\headingfont=cmbx10 \scaledmag1
|
||||
|
@ -132,13 +136,14 @@ are preserved on all copies.
|
|||
\def\bf{\eightbf}
|
||||
\def\it{\eightit}
|
||||
\def\tt{\eighttt}
|
||||
|
||||
% FIXME - Try to make things more A4 friendly
|
||||
% \normalbaselineskip=.8\normalbaselineskip
|
||||
\normalbaselineskip=.7\normalbaselineskip
|
||||
\if 1\the\letterpaper
|
||||
\normalbaselineskip=.8\normalbaselineskip
|
||||
\else
|
||||
\normalbaselineskip=.7\normalbaselineskip
|
||||
\fi
|
||||
\normallineskip=.8\normallineskip
|
||||
\normallineskiplimit=.8\normallineskiplimit
|
||||
\normalbaselines\rm %make definitions take effect
|
||||
\normalbaselines\rm %make definitions take effect
|
||||
|
||||
\if 2\ncolumns
|
||||
\let\maxcolumn=b
|
||||
|
@ -154,16 +159,16 @@ are preserved on all copies.
|
|||
|
||||
\intercolumnskip=.46in
|
||||
\def\abc{a}
|
||||
\output={% %see The TeXbook page 257
|
||||
\output={% %see The TeXbook page 257
|
||||
% This next line is useful when designing the layout.
|
||||
%\immediate\write16{Column \folio\abc\space starts with \firstmark}
|
||||
\if \maxcolumn\abc \multicolumnformat \global\def\abc{a}
|
||||
\else\if a\abc
|
||||
\global\setbox\columna\columnbox \global\def\abc{b}
|
||||
\global\setbox\columna\columnbox \global\def\abc{b}
|
||||
%% in case we never use \columnb (two-column mode)
|
||||
\global\setbox\columnb\hbox to -\intercolumnskip{}
|
||||
\else
|
||||
\global\setbox\columnb\columnbox \global\def\abc{c}\fi\fi}
|
||||
\global\setbox\columnb\columnbox \global\def\abc{c}\fi\fi}
|
||||
\def\multicolumnformat{\shipout\vbox{\makeheadline
|
||||
\hbox{\box\columna\hskip\intercolumnskip
|
||||
\box\columnb\hskip\intercolumnskip\columnbox}
|
||||
|
@ -173,7 +178,7 @@ are preserved on all copies.
|
|||
\def\bye{\par\vfill\supereject
|
||||
\if a\abc \else\null\vfill\eject\fi
|
||||
\if a\abc \else\null\vfill\eject\fi
|
||||
\end}
|
||||
\end}
|
||||
\fi
|
||||
|
||||
% we won't be using math mode much, so redefine some of the characters
|
||||
|
@ -225,7 +230,7 @@ are preserved on all copies.
|
|||
\def\<#1>{{\it #1\/}}
|
||||
|
||||
% kbd - argument is characters typed literally. Like the Texinfo command.
|
||||
\def\kbd#1{{\tt#1}\null} %\null so not an abbrev even if period follows
|
||||
\def\kbd#1{{\tt#1}\null} %\null so not an abbrev even if period follows
|
||||
|
||||
% beginexample...endexample - surrounds literal text, such a code example.
|
||||
% typeset in a typewriter font with line breaks preserved
|
||||
|
@ -316,15 +321,15 @@ are preserved on all copies.
|
|||
\section{Archiving}
|
||||
|
||||
\key{toggle ARCHIVE tag}{C-c C-x C-a}
|
||||
\metax{mark fully done children}{C-u C-c C-x C-a}
|
||||
%\metax{mark fully done children}{C-u C-c C-x C-a}
|
||||
\key{force cycling of an ARCHIVEd tree}{C-TAB}
|
||||
\key{move subtree to archive file}{C-c C-x C-s}
|
||||
\metax{move all fully done children}{C-u C-c C-x C-s}
|
||||
To set archive location for current file, add a line like$^2$:
|
||||
\vskip -1mm
|
||||
\beginexample%
|
||||
\#+ARCHIVE: archfile::* Archived Tasks
|
||||
\endexample
|
||||
%\metax{move all fully done children}{C-u C-c C-x C-s}
|
||||
%To set archive location for current file, add a line like$^2$:
|
||||
%\vskip -1mm
|
||||
%\beginexample%
|
||||
%\#+ARCHIVE: archfile::* Archived Tasks
|
||||
%\endexample
|
||||
|
||||
\section{Filtering and Sparse Trees}
|
||||
|
||||
|
@ -359,13 +364,11 @@ Outside of tables, the same keys may have other functionality.
|
|||
|
||||
{\bf Row and column editing}
|
||||
|
||||
\key{move the current column left}{M-LEFT}
|
||||
\key{move the current column right}{M-RIGHT}
|
||||
\key{move the current column left}{M-LEFT/RIGHT}
|
||||
\key{kill the current column}{M-S-LEFT}
|
||||
\key{insert new column to left of cursor position}{M-S-RIGHT}
|
||||
|
||||
\key{move the current row up}{M-UP}
|
||||
\key{move the current row down}{M-DOWN}
|
||||
\key{move the current row up/down}{M-UP/DOWN}
|
||||
\key{kill the current row or horizontal line}{M-S-UP}
|
||||
\key{insert new row above the current row}{M-S-DOWN}
|
||||
\key{insert hline below (\kbd{C-u} : above) current row}{C-c -}
|
||||
|
@ -518,11 +521,11 @@ after ``{\tt :}'', and dictionary words elsewhere.
|
|||
|
||||
\key{set the priority of the current item}{C-c , [ABC]}
|
||||
\key{remove priority cookie from current item}{C-c , SPC}
|
||||
\key{raise priority of current item}{S-UP$^3$}
|
||||
\key{lower priority of current item}{S-DOWN$^3$}
|
||||
\key{raise/lower priority of current item}{S-UP/DOWN$^3$}
|
||||
%\key{lower priority of current item}{S-DOWN$^3$}
|
||||
|
||||
\key{\kbd{\#+SEQ_TODO: TODO TRY BLUFF DONE}}{\rm todo workflow}
|
||||
\key{\kbd{\#+TYP_TODO: Phil home work DONE}}{\rm todo types}
|
||||
%\key{\kbd{\#+SEQ_TODO: TODO TRY BLUFF DONE}}{\rm todo workflow}
|
||||
%\key{\kbd{\#+TYP_TODO: Phil home work DONE}}{\rm todo types}
|
||||
|
||||
\key{insert new checkbox item in plain list}{M-S-RET}
|
||||
\key{toggle checkbox(es) in region/entry/at point}{C-c C-x C-b}
|
||||
|
@ -564,7 +567,6 @@ after ``{\tt :}'', and dictionary words elsewhere.
|
|||
\key{start clock on current item}{C-c C-x C-i}
|
||||
\key{stop clock on current item}{C-c C-x C-o}
|
||||
\key{cancel current clock}{C-c C-x C-x}
|
||||
|
||||
\key{display total subtree times}{C-c C-x C-d}
|
||||
\key{remove displayed times}{C-c C-c}
|
||||
\key{insert/update table with clock report}{C-c C-x C-r}
|
||||
|
@ -748,10 +750,8 @@ $^3$ Keybinding affected by {\tt org-CUA-compatibility}.
|
|||
|
||||
\bye
|
||||
|
||||
% Local variables:
|
||||
% compile-command: "tex refcard"
|
||||
% End:
|
||||
|
||||
% arch-tag: 139f6750-5cfc-49ca-92b5-237fe5795290
|
||||
|
||||
%%% Local Variables:
|
||||
%%% mode: latex
|
||||
%%% TeX-master: t
|
||||
%%% End:
|
||||
|
|
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue