Mercurial > emacs
comparison lisp/org/org-exp.el @ 100605:0d3c634e0bd9
2008-12-20 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-get-refile-targets, org-refile-get-location): Use
expanded file name to improve comparison.
2008-12-20 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-scan-tags): Rescan for tags, to get the correct
upcase/downcase stuff. This slows things down for now, but it
works.
(org-mode): Make sure the tag-faces regexp is initialized.
* org-export-latex.el (org-export-latex-links): Fix bug with
undefined label.
* org-table.el (org-table-get-specials): Set
`org-table-current-last-data-line'.
(org-table-current-last-data-line): New variable.
(org-table-insert-column, org-table-delete-column)
(org-table-move-column, org-table-fix-formulas): Call
`org-table-fix-formulas' a second time to fix the $LR references.
(org-table-get-specials): Add the $LR references to the tables.
(org-table-get-formula): Do not offer last-row names as LHS of
formulas.
* org.el (org-store-link): Capture link description from
`org-id-store-link'.
* org-exp.el (org-export-html-format-image): Add the / to the end
of the <img> tag.
(org-export-format-source-code): Surround example by empty lines,
to make sure it will not be inside a paragraph.
* org.el (org-ido-switchb): New function.
2008-12-20 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-show): New prefix argument
FULL-ENTRY.
* org.el (org-sort-entries-or-items): Add a COMPARE-FUNC
argument.
author | Carsten Dominik <dominik@science.uva.nl> |
---|---|
date | Sat, 20 Dec 2008 14:32:06 +0000 |
parents | ba23e35d3eaf |
children | a9dc0e7c3f2b |
comparison
equal
deleted
inserted
replaced
100604:bd9f359bf30e | 100605:0d3c634e0bd9 |
---|---|
3 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. | 3 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Carsten Dominik <carsten at orgmode dot org> | 5 ;; Author: Carsten Dominik <carsten at orgmode dot org> |
6 ;; Keywords: outlines, hypermedia, calendar, wp | 6 ;; Keywords: outlines, hypermedia, calendar, wp |
7 ;; Homepage: http://orgmode.org | 7 ;; Homepage: http://orgmode.org |
8 ;; Version: 6.15d | 8 ;; Version: 6.16 |
9 ;; | 9 ;; |
10 ;; This file is part of GNU Emacs. | 10 ;; This file is part of GNU Emacs. |
11 ;; | 11 ;; |
12 ;; GNU Emacs is free software: you can redistribute it and/or modify | 12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
13 ;; it under the terms of the GNU General Public License as published by | 13 ;; it under the terms of the GNU General Public License as published by |
2258 (font-lock-fontify-buffer) | 2258 (font-lock-fontify-buffer) |
2259 (org-export-htmlize-region-for-paste | 2259 (org-export-htmlize-region-for-paste |
2260 (point-min) (point-max))))) | 2260 (point-min) (point-max))))) |
2261 (if (string-match "<pre\\([^>]*\\)>\n?" htmltext) | 2261 (if (string-match "<pre\\([^>]*\\)>\n?" htmltext) |
2262 (setq htmltext (replace-match | 2262 (setq htmltext (replace-match |
2263 (format "<pre class=\"src src-%s\">" lang) | 2263 (format "<pre class=\"src src-%s\">\n" lang) |
2264 t t htmltext))) | 2264 t t htmltext))) |
2265 (concat "#+BEGIN_HTML\n" htmltext "\n#+END_HTML\n")))) | 2265 (concat "\n#+BEGIN_HTML\n" htmltext "\n#+END_HTML\n\n")))) |
2266 (t | 2266 (t |
2267 ;; This is not HTML, so just make it an example. | 2267 ;; This is not HTML, so just make it an example. |
2268 (when (equal lang "org") | 2268 (when (equal lang "org") |
2269 (while (string-match "^," code) | 2269 (while (string-match "^," code) |
2270 (setq code (replace-match "" t t code)))) | 2270 (setq code (replace-match "" t t code)))) |
3714 (save-match-data | 3714 (save-match-data |
3715 (let* ((caption (org-find-text-property-in-string 'org-caption src)) | 3715 (let* ((caption (org-find-text-property-in-string 'org-caption src)) |
3716 (attr (org-find-text-property-in-string 'org-attributes src)) | 3716 (attr (org-find-text-property-in-string 'org-attributes src)) |
3717 (label (org-find-text-property-in-string 'org-label src))) | 3717 (label (org-find-text-property-in-string 'org-label src))) |
3718 (format "<div %sclass=\"figure\"> | 3718 (format "<div %sclass=\"figure\"> |
3719 <p><img src=\"%s\"%s></p>%s | 3719 <p><img src=\"%s\"%s /></p>%s |
3720 </div>" | 3720 </div>" |
3721 (if label (format "id=\"%s\" " label) "") | 3721 (if label (format "id=\"%s\" " label) "") |
3722 src | 3722 src |
3723 (if (string-match "\\<alt=" (or attr "")) | 3723 (if (string-match "\\<alt=" (or attr "")) |
3724 (concat " " attr ) | 3724 (concat " " attr ) |