mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2025-01-10 15:56:42 +00:00
Fix trailing whitespaces for *.el files in contrib/.
This commit is contained in:
Bastien Guerry
parent
f6d7b32bf2
commit
346ee30e42
@ -633,7 +633,7 @@ without modifying their meaning."
|
||||
(goto-char (point-min))
|
||||
(while (search-forward "Local Variables:" nil t)
|
||||
(replace-match "Local Variables:" nil t)))
|
||||
|
||||
|
||||
|
||||
;;; Color handling.
|
||||
|
||||
@ -796,7 +796,7 @@ If no rgb.txt file is found, return nil."
|
||||
(t
|
||||
;; We're getting the RGB components from Emacs.
|
||||
(let ((rgb
|
||||
;; Here I cannot conditionalize on (fboundp ...)
|
||||
;; Here I cannot conditionalize on (fboundp ...)
|
||||
;; because ps-print under some versions of GNU Emacs
|
||||
;; defines its own dummy version of
|
||||
;; `color-instance-rgb-components'.
|
||||
@ -1211,7 +1211,7 @@ property and by buffer overlays that specify `face'."
|
||||
;; used methods are `doctype', `insert-head', `body-tag', and
|
||||
;; `insert-text'. Not all output types define all methods.
|
||||
;;
|
||||
;; Methods are called either with (htmlize-method METHOD ARGS...)
|
||||
;; Methods are called either with (htmlize-method METHOD ARGS...)
|
||||
;; special form, or by accessing the function with
|
||||
;; (htmlize-method-function 'METHOD) and calling (funcall FUNCTION).
|
||||
;; The latter form is useful in tight loops because `htmlize-method'
|
||||
@ -1389,7 +1389,7 @@ it's called with the same value of KEY. All other times, the cached
|
||||
(format "<body text=\"%s\" bgcolor=\"%s\">"
|
||||
(htmlize-fstruct-foreground fstruct)
|
||||
(htmlize-fstruct-background fstruct))))
|
||||
|
||||
|
||||
(defun htmlize-font-insert-text (text fstruct-list buffer)
|
||||
;; In `font' mode, we use the traditional HTML means of altering
|
||||
;; presentation: <font> tag for colors, <b> for bold, <u> for
|
||||
|
||||
@ -67,7 +67,7 @@ Otherwise prompt the user for the right bookmark to use."
|
||||
(if (not file)
|
||||
(when (eq major-mode 'bookmark-bmenu-mode)
|
||||
(setq bookmark (bookmark-bmenu-bookmark)))
|
||||
(when (and (setq bmks
|
||||
(when (and (setq bmks
|
||||
(mapcar (lambda (name)
|
||||
(if (equal file
|
||||
(abbreviate-file-name
|
||||
@ -75,7 +75,7 @@ Otherwise prompt the user for the right bookmark to use."
|
||||
name))
|
||||
(bookmark-all-names)))
|
||||
(setq bmks (delete nil bmks)))
|
||||
(setq bookmark
|
||||
(setq bookmark
|
||||
(if (or (eq 1 (length bmks)) org-bookmark-use-first-bookmark)
|
||||
(car bmks)
|
||||
(completing-read "Bookmark: " bmks nil t nil nil (car bmks))))))
|
||||
|
||||
@ -138,6 +138,3 @@ of checkbox items"
|
||||
(provide 'org-checklist)
|
||||
|
||||
;;; org-checklist.el ends here
|
||||
|
||||
|
||||
|
||||
|
||||
@ -46,13 +46,13 @@
|
||||
;; * Use C-S-right to change the keyword set. Use this to change to
|
||||
;; the "choose" keyword set that you just defined.
|
||||
|
||||
;; * Use S-right to advance the TODO mark to the next setting.
|
||||
;; * Use S-right to advance the TODO mark to the next setting.
|
||||
|
||||
;; For "choose", that means you like this alternative more than
|
||||
;; before. Other alternatives will be automatically demoted to
|
||||
;; keep your settings consistent.
|
||||
|
||||
;; * Use S-left to demote TODO to the previous setting.
|
||||
;; * Use S-left to demote TODO to the previous setting.
|
||||
|
||||
;; For "choose", that means you don't like this alternative as much
|
||||
;; as before. Other alternatives will be automatically promoted,
|
||||
@ -83,7 +83,7 @@ Indexes are 0-based or `nil'.
|
||||
static-default
|
||||
all-keywords)
|
||||
|
||||
(defvar org-choose-mark-data
|
||||
(defvar org-choose-mark-data
|
||||
()
|
||||
"Alist of information for choose marks.
|
||||
|
||||
@ -101,7 +101,7 @@ Each entry is an `org-choose-mark-data.'" )
|
||||
(not
|
||||
(string-match "(.*)" i))
|
||||
(list i i)
|
||||
(let*
|
||||
(let*
|
||||
(
|
||||
(end-text (match-beginning 0))
|
||||
(vanilla-text (substring i 0 end-text))
|
||||
@ -116,7 +116,7 @@ Each entry is an `org-choose-mark-data.'" )
|
||||
;;When string starts with "," `split-string' doesn't
|
||||
;;make a first arg, so in that case make one
|
||||
;;manually.
|
||||
(if
|
||||
(if
|
||||
(string-match "^," args)
|
||||
(cons nil arglist-x)
|
||||
arglist-x)))
|
||||
@ -157,11 +157,11 @@ Each entry is an `org-choose-mark-data.'" )
|
||||
;;item.
|
||||
(top-upper-range
|
||||
(or top-upper-range (1- num-items)))
|
||||
(lower-range-length
|
||||
(lower-range-length
|
||||
(1+ (- static-default bot-lower-range)))
|
||||
(upper-range-length
|
||||
(upper-range-length
|
||||
(- top-upper-range static-default))
|
||||
(range-length
|
||||
(range-length
|
||||
(min upper-range-length lower-range-length)))
|
||||
|
||||
|
||||
@ -194,7 +194,7 @@ Each entry is an `org-choose-mark-data.'" )
|
||||
;;;_ . org-choose-filter-tail
|
||||
(defun org-choose-filter-tail (raw)
|
||||
"Return a translation of RAW to vanilla and set appropriate
|
||||
buffer-local variables.
|
||||
buffer-local variables.
|
||||
|
||||
RAW is a list of strings representing the input text of a choose
|
||||
interpretation."
|
||||
@ -219,7 +219,7 @@ interpretation."
|
||||
(push vanilla-mark vanilla-list)))
|
||||
|
||||
(org-choose-setup-vars bot-lower-range top-upper-range
|
||||
static-default index (reverse all-mark-texts))
|
||||
static-default index (reverse all-mark-texts))
|
||||
(nreverse vanilla-list)))
|
||||
|
||||
;;;_ . org-choose-setup-filter
|
||||
@ -234,35 +234,35 @@ interpretation."
|
||||
;;;_ . org-choose-conform-after-promotion
|
||||
(defun org-choose-conform-after-promotion (entry-pos keywords highest-ok-ix)
|
||||
"Conform the current item after another item was promoted"
|
||||
|
||||
|
||||
(unless
|
||||
;;Skip the entry that triggered this by skipping any entry with
|
||||
;;the same starting position. plist uses the start of the
|
||||
;;header line as the position, but map no longer does, so we
|
||||
;;have to go back to the heading.
|
||||
(=
|
||||
(=
|
||||
(save-excursion
|
||||
(org-back-to-heading)
|
||||
(point))
|
||||
(point))
|
||||
entry-pos)
|
||||
(let
|
||||
((ix
|
||||
(org-choose-get-entry-index keywords)))
|
||||
;;If the index of the entry exceeds the highest allowable
|
||||
;;index, change it to that.
|
||||
(when (and ix
|
||||
(when (and ix
|
||||
(> ix highest-ok-ix))
|
||||
(org-todo
|
||||
(org-todo
|
||||
(nth highest-ok-ix keywords))))))
|
||||
;;;_ . org-choose-conform-after-demotion
|
||||
(defun org-choose-conform-after-demotion (entry-pos keywords
|
||||
raise-to-ix
|
||||
old-highest-ok-ix)
|
||||
old-highest-ok-ix)
|
||||
"Conform the current item after another item was demoted."
|
||||
|
||||
(unless
|
||||
;;Skip the entry that triggered this.
|
||||
(=
|
||||
(=
|
||||
(save-excursion
|
||||
(org-back-to-heading)
|
||||
(point))
|
||||
@ -273,11 +273,11 @@ interpretation."
|
||||
;;If the index of the entry was at or above the old allowable
|
||||
;;position, change it to the new mirror position if there is
|
||||
;;one.
|
||||
(when (and
|
||||
ix
|
||||
(when (and
|
||||
ix
|
||||
raise-to-ix
|
||||
(>= ix old-highest-ok-ix))
|
||||
(org-todo
|
||||
(org-todo
|
||||
(nth raise-to-ix keywords))))))
|
||||
|
||||
;;;_ , org-choose-keep-sensible (the org-trigger-hook function)
|
||||
@ -287,7 +287,7 @@ setting was changed."
|
||||
(let*
|
||||
( (from (plist-get change-plist :from))
|
||||
(to (plist-get change-plist :to))
|
||||
(entry-pos
|
||||
(entry-pos
|
||||
(set-marker
|
||||
(make-marker)
|
||||
(plist-get change-plist :position)))
|
||||
@ -303,11 +303,11 @@ setting was changed."
|
||||
(org-choose-mark-data.-all-keywords data))
|
||||
(old-index
|
||||
(org-choose-get-index-in-keywords
|
||||
from
|
||||
from
|
||||
keywords))
|
||||
(new-index
|
||||
(org-choose-get-index-in-keywords
|
||||
to
|
||||
to
|
||||
keywords))
|
||||
(highest-ok-ix
|
||||
(org-choose-highest-other-ok
|
||||
@ -324,7 +324,7 @@ setting was changed."
|
||||
(> new-index old-index))
|
||||
(list
|
||||
#'org-choose-conform-after-promotion
|
||||
entry-pos keywords
|
||||
entry-pos keywords
|
||||
highest-ok-ix))
|
||||
(t ;;Otherwise the entry was demoted.
|
||||
(let
|
||||
@ -338,14 +338,14 @@ setting was changed."
|
||||
(org-choose-highest-other-ok
|
||||
old-index
|
||||
data)))
|
||||
|
||||
|
||||
(list
|
||||
#'org-choose-conform-after-demotion
|
||||
entry-pos
|
||||
#'org-choose-conform-after-demotion
|
||||
entry-pos
|
||||
keywords
|
||||
raise-to-ix
|
||||
old-highest-ok-ix))))))
|
||||
|
||||
|
||||
(if funcdata
|
||||
;;The funny-looking names are to make variable capture
|
||||
;;unlikely. (Poor-man's lexical bindings).
|
||||
@ -356,8 +356,8 @@ setting was changed."
|
||||
;;We may call `org-todo', so let various hooks
|
||||
;;`nil' so we don't cause loops.
|
||||
org-after-todo-state-change-hook
|
||||
org-trigger-hook
|
||||
org-blocker-hook
|
||||
org-trigger-hook
|
||||
org-blocker-hook
|
||||
org-todo-get-default-hook
|
||||
;;Also let this alist `nil' so we don't log
|
||||
;;secondary transitions.
|
||||
@ -366,7 +366,7 @@ setting was changed."
|
||||
(funcall map-over-entries
|
||||
#'(lambda ()
|
||||
(apply func-d473 args-46k))))))))
|
||||
|
||||
|
||||
;;Remove the marker
|
||||
(set-marker entry-pos nil)))
|
||||
|
||||
@ -393,7 +393,7 @@ setting was changed."
|
||||
|
||||
(defun org-choose-get-fn-map-group ()
|
||||
"Return a function to map over the group"
|
||||
|
||||
|
||||
#'(lambda (fn)
|
||||
(require 'org-agenda) ;; `org-map-entries' seems to need it.
|
||||
(save-excursion
|
||||
@ -402,7 +402,7 @@ setting was changed."
|
||||
(let
|
||||
((level (org-reduced-level (org-outline-level))))
|
||||
(save-restriction
|
||||
(org-map-entries
|
||||
(org-map-entries
|
||||
fn
|
||||
(format "LEVEL=%d" level)
|
||||
'tree))))))
|
||||
@ -418,10 +418,10 @@ If there is none, return 0"
|
||||
;;Func maps over applicable entries.
|
||||
(map-over-entries
|
||||
(org-choose-get-fn-map-group))
|
||||
|
||||
|
||||
(indexes-list
|
||||
(remove nil
|
||||
(funcall map-over-entries
|
||||
(funcall map-over-entries
|
||||
#'(lambda ()
|
||||
(org-choose-get-entry-index keywords))))))
|
||||
(if
|
||||
@ -438,7 +438,7 @@ given that another mark has index IX.
|
||||
DATA must be a `org-choose-mark-data.'."
|
||||
|
||||
(let
|
||||
(
|
||||
(
|
||||
(bot-lower-range
|
||||
(org-choose-mark-data.-bot-lower-range data))
|
||||
(top-upper-range
|
||||
@ -455,7 +455,7 @@ DATA must be a `org-choose-mark-data.'."
|
||||
|
||||
;;;_ . org-choose-get-default-mark-index
|
||||
|
||||
(defun org-choose-get-default-mark-index (data)
|
||||
(defun org-choose-get-default-mark-index (data)
|
||||
"Return the index of the default mark in a choose interpretation.
|
||||
|
||||
DATA must be a `org-choose-mark-data.'."
|
||||
@ -475,7 +475,7 @@ DATA must be a `org-choose-mark-data.'."
|
||||
;;;_ . org-choose-get-mark-N
|
||||
(defun org-choose-get-mark-N (n data)
|
||||
"Get the text of the nth mark in a choose interpretation."
|
||||
|
||||
|
||||
(let*
|
||||
((l (org-choose-mark-data.-all-keywords data)))
|
||||
(nth n l)))
|
||||
|
||||
@ -87,7 +87,7 @@
|
||||
;; | run (50) | 0.116446 |
|
||||
;; | run (100) | 0.118863 |
|
||||
;; #+END:
|
||||
;;
|
||||
;;
|
||||
|
||||
;;; Code:
|
||||
(require 'org)
|
||||
@ -134,7 +134,7 @@ preceeding the dblock, then update the contents of the dblock."
|
||||
(org-narrow-to-subtree)
|
||||
(setq stringformat (if noquote "%s" "%S"))
|
||||
(setq table (org-propview-to-table
|
||||
(org-propview-collect cols stringformat conds match scope inherit
|
||||
(org-propview-collect cols stringformat conds match scope inherit
|
||||
(if colnames colnames cols)) stringformat))
|
||||
(widen))
|
||||
(setq pos (point))
|
||||
|
||||
@ -2915,4 +2915,3 @@ returns its return value."
|
||||
|
||||
|
||||
(provide 'org-drill)
|
||||
|
||||
|
||||
@ -67,7 +67,7 @@ large example block")
|
||||
(defcustom org-eval-light-interpreters '("lisp" "emacs-lisp" "ruby" "shell")
|
||||
"Interpreters allows for evaluation tags.
|
||||
This is a list of program names (as strings) that can evaluate code and
|
||||
insert the output into an Org-mode buffer. Valid choices are
|
||||
insert the output into an Org-mode buffer. Valid choices are
|
||||
|
||||
lisp Interpret Emacs Lisp code and display the result
|
||||
shell Pass command to the shell and display the result
|
||||
@ -189,7 +189,7 @@ commented by `org-eval-light-make-region-example'."
|
||||
(with-temp-buffer
|
||||
(insert code)
|
||||
(shell-command-on-region (point-min) (point-max) cmd nil 'replace)
|
||||
(buffer-string)))
|
||||
(buffer-string)))
|
||||
|
||||
(defadvice org-ctrl-c-ctrl-c (around org-cc-eval-source activate)
|
||||
(if (org-eval-light-inside-snippet)
|
||||
|
||||
@ -105,7 +105,7 @@
|
||||
(defcustom org-eval-interpreters '("lisp")
|
||||
"Interpreters allows for evaluation tags.
|
||||
This is a list of program names (as strings) that can evaluate code and
|
||||
insert the output into an Org-mode buffer. Valid choices are
|
||||
insert the output into an Org-mode buffer. Valid choices are
|
||||
|
||||
lisp Interpret Emacs Lisp code and display the result
|
||||
shell Pass command to the shell and display the result
|
||||
@ -120,7 +120,7 @@ ruby The ruby interpreter"
|
||||
(const "python")
|
||||
(const "ruby")
|
||||
(const "shell")))
|
||||
|
||||
|
||||
(defun org-eval-handle-snippets (limit &optional replace)
|
||||
"Evaluate code snippets and display the results as display property.
|
||||
When REPLACE is non-nil, replace the code region with the result (used
|
||||
@ -212,9 +212,8 @@ This should go into the `org-export-preprocess-hook'."
|
||||
(with-temp-buffer
|
||||
(insert code)
|
||||
(shell-command-on-region (point-min) (point-max) cmd nil 'replace)
|
||||
(buffer-string)))
|
||||
(buffer-string)))
|
||||
|
||||
(provide 'org-eval)
|
||||
|
||||
;;; org-eval.el ends here
|
||||
|
||||
|
||||
@ -25,7 +25,7 @@
|
||||
;;; Commentary:
|
||||
;;
|
||||
;; This gives you a chance to get rid of old entries in your Org files
|
||||
;; by expiring them.
|
||||
;; by expiring them.
|
||||
;;
|
||||
;; By default, entries that have no EXPIRY property are considered to be
|
||||
;; new (i.e. 0 day old) and only entries older than one year go to the
|
||||
@ -33,7 +33,7 @@
|
||||
;; your tasks will be deleted with the default settings.
|
||||
;;
|
||||
;; When does an entry expires?
|
||||
;;
|
||||
;;
|
||||
;; Consider this entry:
|
||||
;;
|
||||
;; * Stop watching TV
|
||||
@ -41,8 +41,8 @@
|
||||
;; :CREATED: <2008-01-07 lun 08:01>
|
||||
;; :EXPIRY: <2008-01-09 08:01>
|
||||
;; :END:
|
||||
;;
|
||||
;; This entry will expire on the 9th, january 2008.
|
||||
;;
|
||||
;; This entry will expire on the 9th, january 2008.
|
||||
|
||||
;; * Stop watching TV
|
||||
;; :PROPERTIES:
|
||||
@ -56,19 +56,19 @@
|
||||
;; What happen when an entry is expired? Nothing until you explicitely
|
||||
;; M-x org-expiry-process-entries When doing this, org-expiry will check
|
||||
;; for expired entries and request permission to process them.
|
||||
;;
|
||||
;;
|
||||
;; Processing an expired entries means calling the function associated
|
||||
;; with `org-expiry-handler-function'; the default is to add the tag
|
||||
;; :ARCHIVE:, but you can also add a EXPIRED keyword or even archive
|
||||
;; the subtree.
|
||||
;; :ARCHIVE:, but you can also add a EXPIRED keyword or even archive
|
||||
;; the subtree.
|
||||
;;
|
||||
;; Is this useful? Well, when you're in a brainstorming session, it
|
||||
;; might be useful to know about the creation date of an entry, and be
|
||||
;; able to archive those entries that are more than xxx days/weeks old.
|
||||
;;
|
||||
;;
|
||||
;; When you're in such a session, you can insinuate org-expiry like
|
||||
;; this: M-x org-expiry-insinuate
|
||||
;;
|
||||
;; this: M-x org-expiry-insinuate
|
||||
;;
|
||||
;; Then, each time you're pressing M-RET to insert an item, the CREATION
|
||||
;; property will be automatically added. Same when you're scheduling or
|
||||
;; deadlining items. You can deinsinuate: M-x org-expiry-deinsinuate
|
||||
@ -218,7 +218,7 @@ and restart `org-mode' if necessary."
|
||||
Return nil if the entry is not expired. Otherwise return the
|
||||
amount of time between today and the expiry date.
|
||||
|
||||
If there is no creation date, use `org-expiry-created-date'.
|
||||
If there is no creation date, use `org-expiry-created-date'.
|
||||
If there is no expiry date, use `org-expiry-expiry-date'."
|
||||
(let* ((ex-prop org-expiry-expiry-property-name)
|
||||
(cr-prop org-expiry-created-property-name)
|
||||
@ -292,7 +292,7 @@ update the date."
|
||||
d-time d-hour timestr)
|
||||
(when (or (null d) arg)
|
||||
;; update if no date or non-nil prefix argument
|
||||
;; FIXME Use `org-time-string-to-time'
|
||||
;; FIXME Use `org-time-string-to-time'
|
||||
(setq d-time (if d (org-time-string-to-time d)
|
||||
(current-time)))
|
||||
(setq d-hour (format-time-string "%H:%M" d-time))
|
||||
@ -326,7 +326,7 @@ and insert today's date."
|
||||
;; maybe transform to inactive timestamp
|
||||
(if org-expiry-inactive-timestamps
|
||||
(setq timestr (concat "[" (substring timestr 1 -1) "]")))
|
||||
|
||||
|
||||
(save-excursion
|
||||
(org-entry-put
|
||||
(point) org-expiry-expiry-property-name timestr))))
|
||||
|
||||
@ -35,7 +35,7 @@
|
||||
;; org-set-generic-type function:
|
||||
;;
|
||||
;; (org-set-generic-type
|
||||
;; "really-basic-text"
|
||||
;; "really-basic-text"
|
||||
;; '(:file-suffix ".txt"
|
||||
;; :key-binding ?R
|
||||
;;
|
||||
@ -155,10 +155,10 @@ in this way, it will be wrapped."
|
||||
|
||||
:toc-section-numbers t
|
||||
:toc-section-number-format "\#(%s) "
|
||||
:toc-format "--%s--"
|
||||
:toc-format "--%s--"
|
||||
:toc-format-with-todo "!!%s!!\n"
|
||||
:toc-indent-char ?\
|
||||
:toc-indent-depth 4
|
||||
:toc-indent-char ?\
|
||||
:toc-indent-depth 4
|
||||
|
||||
:toc-tags-export t
|
||||
:toc-tags-prefix " <tags>"
|
||||
@ -217,7 +217,7 @@ in this way, it will be wrapped."
|
||||
:body-list-checkbox-half-end "</checkbox (half)>"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
; other body lines
|
||||
:body-line-format "%s"
|
||||
@ -257,10 +257,10 @@ in this way, it will be wrapped."
|
||||
:toc-export t
|
||||
:toc-section-numbers t
|
||||
:toc-section-number-format "%s "
|
||||
:toc-format "%s\n"
|
||||
:toc-format "%s\n"
|
||||
:toc-format-with-todo "%s (*)\n"
|
||||
:toc-indent-char ?\
|
||||
:toc-indent-depth 4
|
||||
:toc-indent-char ?\
|
||||
:toc-indent-depth 4
|
||||
|
||||
:body-header-section-numbers 3
|
||||
:body-section-prefix "\n"
|
||||
@ -310,7 +310,7 @@ in this way, it will be wrapped."
|
||||
|
||||
:body-section-header-prefix ("= " "== " "=== "
|
||||
"==== " "===== " "====== ")
|
||||
:body-section-header-suffix (" =\n\n" " ==\n\n" " ===\n\n"
|
||||
:body-section-header-suffix (" =\n\n" " ==\n\n" " ===\n\n"
|
||||
" ====\n\n" " =====\n\n" " ======\n\n")
|
||||
|
||||
:body-line-export-preformated t ;; yes/no/maybe???
|
||||
@ -390,7 +390,7 @@ in this way, it will be wrapped."
|
||||
:body-list-format "<t>%s</t>\n"
|
||||
|
||||
)
|
||||
("trac-wiki"
|
||||
("trac-wiki"
|
||||
:file-suffix ".txt"
|
||||
:key-binding ?T
|
||||
|
||||
@ -409,7 +409,7 @@ in this way, it will be wrapped."
|
||||
|
||||
:body-section-header-prefix (" == " " === " " ==== "
|
||||
" ===== " )
|
||||
:body-section-header-suffix (" ==\n\n" " ===\n\n" " ====\n\n"
|
||||
:body-section-header-suffix (" ==\n\n" " ===\n\n" " ====\n\n"
|
||||
" =====\n\n" " ======\n\n" " =======\n\n")
|
||||
|
||||
:body-line-export-preformated t ;; yes/no/maybe???
|
||||
@ -426,7 +426,7 @@ in this way, it will be wrapped."
|
||||
;; this is ignored! [2010/02/02:rpg]
|
||||
:body-bullet-list-prefix ("* " "** " "*** " "**** " "***** ")
|
||||
)
|
||||
("tikiwiki"
|
||||
("tikiwiki"
|
||||
:file-suffix ".txt"
|
||||
:key-binding ?U
|
||||
|
||||
@ -445,7 +445,7 @@ in this way, it will be wrapped."
|
||||
|
||||
:body-section-header-prefix ("! " "!! " "!!! " "!!!! "
|
||||
"!!!!! " "!!!!!! " "!!!!!!! ")
|
||||
:body-section-header-suffix (" \n" " \n" " \n"
|
||||
:body-section-header-suffix (" \n" " \n" " \n"
|
||||
" \n" " \n" " \n")
|
||||
|
||||
|
||||
@ -498,12 +498,12 @@ the body of an org-set-generic-type definition."
|
||||
))
|
||||
|
||||
(def-org-export-generic-keyword :body-newline-paragraph
|
||||
:documentation "Bound either to NIL or to a pattern to be
|
||||
:documentation "Bound either to NIL or to a pattern to be
|
||||
inserted in the output for every blank line in the input.
|
||||
The intention is to handle formats where text is flowed, and
|
||||
newlines are interpreted as significant \(e.g., as indicating
|
||||
preformatted text\). A common non-nil value for this keyword
|
||||
is \"\\n\". Should typically be combined with a value for
|
||||
is \"\\n\". Should typically be combined with a value for
|
||||
:body-line-format that does NOT end with a newline."
|
||||
:type string)
|
||||
|
||||
@ -515,8 +515,8 @@ is \"\\n\". Should typically be combined with a value for
|
||||
(def-org-export-generic-keyword :code-format)
|
||||
(def-org-export-generic-keyword :verbatim-format)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
(defun org-export-generic-remember-section (type suffix &optional prefix)
|
||||
(setq org-export-generic-section-type type)
|
||||
@ -569,7 +569,7 @@ underlined headlines. The default is 3."
|
||||
(org-export-add-subtree-options opt-plist rbeg)
|
||||
opt-plist)))
|
||||
|
||||
helpstart
|
||||
helpstart
|
||||
(bogus (mapc (lambda (x)
|
||||
(setq helpstart
|
||||
(concat helpstart "\["
|
||||
@ -611,7 +611,7 @@ underlined headlines. The default is 3."
|
||||
(unless (setq ass (cadr (assq r2 cmds)))
|
||||
(error "No command associated with key %c" r1))
|
||||
|
||||
(cdr (assoc
|
||||
(cdr (assoc
|
||||
(if (equal ass "default") org-generic-export-type ass)
|
||||
org-generic-alist))))
|
||||
|
||||
@ -732,11 +732,11 @@ underlined headlines. The default is 3."
|
||||
(format-code (plist-get export-plist :code-format))
|
||||
(format-verbatim (plist-get export-plist :verbatim-format))
|
||||
|
||||
|
||||
|
||||
|
||||
thetoc toctags have-headings first-heading-pos
|
||||
table-open table-buffer link-buffer link desc desc0 rpl wrap)
|
||||
|
||||
|
||||
(let ((inhibit-read-only t))
|
||||
(org-unmodified
|
||||
(remove-text-properties (point-min) (point-max)
|
||||
@ -841,7 +841,7 @@ underlined headlines. The default is 3."
|
||||
(org-re "[ \t]+:\\([[:alnum:]_@:]+\\):[ \t]*$")
|
||||
txt)
|
||||
(progn
|
||||
(setq
|
||||
(setq
|
||||
toctags
|
||||
(org-export-generic-header
|
||||
(match-string 1 txt)
|
||||
@ -852,7 +852,7 @@ underlined headlines. The default is 3."
|
||||
txt)
|
||||
(setq txt (replace-match "" t t txt)))
|
||||
(setq toctags tocnotagsstr)))
|
||||
|
||||
|
||||
(if (string-match quote-re0 txt)
|
||||
(setq txt (replace-match "" t t txt)))
|
||||
|
||||
@ -871,7 +871,7 @@ underlined headlines. The default is 3."
|
||||
"")
|
||||
|
||||
(format
|
||||
(if todo tocformtodo tocformat)
|
||||
(if todo tocformtodo tocformat)
|
||||
txt)
|
||||
|
||||
toctags)
|
||||
@ -908,7 +908,7 @@ underlined headlines. The default is 3."
|
||||
(substring link 8)
|
||||
org-export-code-refs)))
|
||||
t t line))
|
||||
(setq rpl (concat "["
|
||||
(setq rpl (concat "["
|
||||
(or (match-string 3 line) (match-string 1 line))
|
||||
"]"))
|
||||
(when (and desc0 (not (equal desc0 link)))
|
||||
@ -1043,7 +1043,7 @@ underlined headlines. The default is 3."
|
||||
;;
|
||||
(org-export-generic-check-section "body" bodytextpre bodytextsuf)
|
||||
|
||||
(setq line
|
||||
(setq line
|
||||
(org-export-generic-fontify line))
|
||||
|
||||
;; XXX: properties? list?
|
||||
@ -1208,7 +1208,7 @@ REVERSE means to reverse the list if the plist match is a list
|
||||
(setq result (concat result line))
|
||||
(setq len 0)))
|
||||
(concat result indstr line)))
|
||||
|
||||
|
||||
(defun org-export-generic-push-links (link-buffer)
|
||||
"Push out links in the buffer."
|
||||
(when link-buffer
|
||||
@ -1258,13 +1258,13 @@ REVERSE means to reverse the list if the plist match is a list
|
||||
))
|
||||
;; same level
|
||||
((= level old-level)
|
||||
(insert
|
||||
(insert
|
||||
(org-export-generic-format export-plist :body-section-suffix 0 level))
|
||||
)
|
||||
)
|
||||
(insert
|
||||
(org-export-generic-format export-plist :body-section-prefix 0 level))
|
||||
|
||||
|
||||
(if (and org-export-with-section-numbers
|
||||
secnums
|
||||
(or (not (numberp secnums))
|
||||
@ -1365,7 +1365,7 @@ REVERSE means to reverse the list if the plist match is a list
|
||||
Each element of the list is a list of three elements.
|
||||
The first element is the character used as a marker for fontification.
|
||||
The second element is a variable name, set in org-export-generic. That
|
||||
variable will be dereferenced to obtain a formatting string to wrap
|
||||
variable will be dereferenced to obtain a formatting string to wrap
|
||||
fontified text with.
|
||||
The third element decides whether to protect converted text from other
|
||||
conversions.")
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
;; Version: 1.0
|
||||
;; Keywords: org, wp
|
||||
;;
|
||||
;; This file is not part of GNU Emacs.
|
||||
;; This file is not part of GNU Emacs.
|
||||
;;
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
@ -31,7 +31,7 @@
|
||||
;; / add a keyword as a positive selection criterion
|
||||
;; \ add a keyword as a newgative selection criterion
|
||||
;; = clear a keyword from the selection string
|
||||
;; ;
|
||||
;; ;
|
||||
|
||||
(require 'org)
|
||||
|
||||
@ -39,7 +39,7 @@
|
||||
(org-defkey org-agenda-mode-map "/" 'org-agenda-query-and-cmd)
|
||||
(org-defkey org-agenda-mode-map ";" 'org-agenda-query-or-cmd)
|
||||
(org-defkey org-agenda-mode-map "\\" 'org-agenda-query-not-cmd)
|
||||
|
||||
|
||||
;;; Agenda interactive query manipulation
|
||||
|
||||
(defcustom org-agenda-query-selection-single-key t
|
||||
@ -283,7 +283,7 @@ keyword string."
|
||||
(defun org-agenda-query-generic-cmd (op)
|
||||
"Activate query manipulation with OP as initial operator."
|
||||
(let ((q (org-agenda-query-selection org-agenda-query-string op
|
||||
org-tag-alist
|
||||
org-tag-alist
|
||||
(org-agenda-query-global-todo-keys))))
|
||||
(when q
|
||||
(setq org-agenda-query-string q)
|
||||
|
||||
@ -181,7 +181,7 @@ looks like tree2, where the level is 2."
|
||||
(when (or (not min) (< level min)) (setq min level))
|
||||
(when (> level max) (setq max level))))
|
||||
(cons (or min 0) max)))
|
||||
|
||||
|
||||
(defun org-invoice-collapse-list (ls)
|
||||
"Reorganize the given list by dates."
|
||||
(let ((min-max (org-invoice-level-min-max ls)) new)
|
||||
@ -214,7 +214,7 @@ looks like tree2, where the level is 2."
|
||||
(+ price (cdr (assoc 'price (car bucket)))))
|
||||
(nconc bucket (list info))))))
|
||||
(nreverse new)))
|
||||
|
||||
|
||||
(defun org-invoice-info-to-table (info)
|
||||
"Create a single org table row from the given info alist."
|
||||
(let ((title (cdr (assoc 'title info)))
|
||||
@ -223,19 +223,19 @@ looks like tree2, where the level is 2."
|
||||
(price (cdr (assoc 'price info)))
|
||||
(with-price (plist-get org-invoice-table-params :price)))
|
||||
(unless total
|
||||
(setq
|
||||
(setq
|
||||
org-invoice-total-time (+ org-invoice-total-time work)
|
||||
org-invoice-total-price (+ org-invoice-total-price price)))
|
||||
(setq total (and total (org-minutes-to-hh:mm-string total)))
|
||||
(setq work (and work (org-minutes-to-hh:mm-string work)))
|
||||
(insert-before-markers
|
||||
(insert-before-markers
|
||||
(concat "|" title
|
||||
(cond
|
||||
(total (concat "|" total))
|
||||
(work (concat "|" work)))
|
||||
(and with-price price (concat "|" (format "%.2f" price)))
|
||||
"|" "\n"))))
|
||||
|
||||
|
||||
(defun org-invoice-list-to-table (ls)
|
||||
"Convert a list of heading info to an org table"
|
||||
(let ((with-price (plist-get org-invoice-table-params :price))
|
||||
@ -243,7 +243,7 @@ looks like tree2, where the level is 2."
|
||||
(with-header (plist-get org-invoice-table-params :headers))
|
||||
(org-invoice-total-time 0)
|
||||
(org-invoice-total-price 0))
|
||||
(insert-before-markers
|
||||
(insert-before-markers
|
||||
(concat "| Task / Date | Time" (and with-price "| Price") "|\n"))
|
||||
(dolist (info ls)
|
||||
(insert-before-markers "|-\n")
|
||||
@ -268,9 +268,9 @@ heading that begins the invoice data, usually using the
|
||||
(org-clock-sum)
|
||||
(run-hook-with-args 'org-invoice-start-hook)
|
||||
(cons org-invoice-current-invoice
|
||||
(org-invoice-collapse-list
|
||||
(org-invoice-collapse-list
|
||||
(org-map-entries 'org-invoice-heading-info t 'tree 'archive))))))
|
||||
|
||||
|
||||
(defun org-dblock-write:invoice (params)
|
||||
"Function called by OrgMode to write the invoice dblock. To
|
||||
create an invoice dblock you can use the `org-invoice-report'
|
||||
@ -397,5 +397,5 @@ I place mine under a third-level heading like so:
|
||||
(if report (goto-char report)
|
||||
(org-create-dblock (list :name "invoice")))
|
||||
(org-update-dblock)))
|
||||
|
||||
|
||||
(provide 'org-invoice)
|
||||
|
||||
@ -101,7 +101,7 @@ the the Emacs diary"
|
||||
(shell-command "sw_vers" (current-buffer))
|
||||
(when (re-search-backward "10\\.[567]" nil t)
|
||||
(omi-concat-leopard-ics all-calendars)))
|
||||
|
||||
|
||||
;; move all caldav ics files to the same place as local ics files
|
||||
(mapc
|
||||
(lambda (x)
|
||||
@ -111,7 +111,7 @@ the the Emacs diary"
|
||||
(concat "~/Library/Calendars/" y)))
|
||||
(directory-files x nil ".*ics$")))
|
||||
caldav-folders)
|
||||
|
||||
|
||||
;; check calendar has contents and import
|
||||
(setq import-calendars (directory-files "~/Library/Calendars" 1 ".*ics$"))
|
||||
(mapc
|
||||
@ -181,7 +181,7 @@ date range so that Emacs calendar view doesn't grind to a halt"
|
||||
(* (/ org-mac-iCal-range 2) 30))
|
||||
(delete-region startEntry endEntry)))
|
||||
(goto-char (point-max))))
|
||||
(while
|
||||
(while
|
||||
(re-search-forward "^END:VEVENT$" nil t)
|
||||
(delete-blank-lines))
|
||||
(goto-line 1)
|
||||
|
||||
@ -2,7 +2,7 @@
|
||||
;;; application and insert them as links into org-mode documents
|
||||
;;
|
||||
;; Copyright (c) 2010-2012 Free Software Foundation, Inc.
|
||||
;;
|
||||
;;
|
||||
;; Author: Anthony Lander <anthony.lander@gmail.com>
|
||||
;; Version: 1.0.1
|
||||
;; Keywords: org, mac, hyperlink
|
||||
@ -52,7 +52,7 @@
|
||||
;; add (require 'org-mac-link-grabber) to your .emacs, and optionally
|
||||
;; bind a key to activate the link grabber menu, like this:
|
||||
;;
|
||||
;; (add-hook 'org-mode-hook (lambda ()
|
||||
;; (add-hook 'org-mode-hook (lambda ()
|
||||
;; (define-key org-mode-map (kbd "C-c g") 'omlg-grab-link)))
|
||||
;;
|
||||
;;
|
||||
@ -161,7 +161,7 @@ applications and inserting them in org documents"
|
||||
(when (and active (eq input key))
|
||||
(call-interactively grab-function))))
|
||||
descriptors)))
|
||||
|
||||
|
||||
(defalias 'omgl-grab-link 'omlg-grab-link
|
||||
"Renamed, and this alias will be obsolete next revision.")
|
||||
|
||||
@ -344,7 +344,7 @@ applications and inserting them in org documents"
|
||||
" return theUrl & \"::split::\" & theName & \"\n\"\n"
|
||||
"end tell\n"))))
|
||||
(car (split-string result "[\r\n]+" t))))
|
||||
|
||||
|
||||
(defun org-mac-safari-get-frontmost-url ()
|
||||
(interactive)
|
||||
(message "Applescript: Getting Safari url...")
|
||||
@ -361,7 +361,7 @@ applications and inserting them in org documents"
|
||||
(defun org-mac-safari-insert-frontmost-url ()
|
||||
(interactive)
|
||||
(insert (org-mac-safari-get-frontmost-url)))
|
||||
|
||||
|
||||
|
||||
;;
|
||||
;;
|
||||
|
||||
@ -207,7 +207,7 @@ applications in order to mimic `org-store-link'. Used by
|
||||
:group 'org-mairix)
|
||||
|
||||
(defcustom org-mairix-mutt-display-command
|
||||
"xterm -title 'mairix search: %search%' -e 'unset COLUMNS; mutt -f
|
||||
"xterm -title 'mairix search: %search%' -e 'unset COLUMNS; mutt -f
|
||||
~/mail/mairix -e \"push <display-message>\"' &"
|
||||
"Command to execute to display mairix search results via mutt within
|
||||
an xterm.
|
||||
@ -244,7 +244,7 @@ along with general mairix configuration."
|
||||
:group 'org-mairix-gnus
|
||||
:type 'string)
|
||||
|
||||
(defcustom org-mairix-gnus-select-display-group-function
|
||||
(defcustom org-mairix-gnus-select-display-group-function
|
||||
'org-mairix-gnus-select-display-group-function-gg
|
||||
"Hook to call to select the group that contains the matching articles.
|
||||
We should not need this, it is owed to a problem of gnus that people were
|
||||
@ -285,7 +285,7 @@ to do that -- so you're likely to see zombies floating around.
|
||||
|
||||
If you can improve this, please do!"
|
||||
(if (not (equal (substring search 0 2) "m:" ))
|
||||
(error "org-mairix-gnus-display-results: display of search other than
|
||||
(error "org-mairix-gnus-display-results: display of search other than
|
||||
message-id not implemented yet"))
|
||||
(setq message-id (substring search 2 nil))
|
||||
(require 'gnus)
|
||||
|
||||
@ -43,13 +43,13 @@
|
||||
;;
|
||||
;; you might want to bind this to a key with something like the
|
||||
;; following message-mode binding
|
||||
;;
|
||||
;;
|
||||
;; (add-hook 'message-mode-hook
|
||||
;; (lambda ()
|
||||
;; (local-set-key "\C-c\M-o" 'org-mime-htmlize)))
|
||||
;;
|
||||
;; and the following org-mode binding
|
||||
;;
|
||||
;;
|
||||
;; (add-hook 'org-mode-hook
|
||||
;; (lambda ()
|
||||
;; (local-set-key "\C-c\M-o" 'org-mime-org-buffer-htmlize)))
|
||||
|
||||
@ -255,4 +255,3 @@ with string values. In addition, it reutnrs the following properties:
|
||||
(provide 'org-mtags)
|
||||
|
||||
;;; org-mtags.el ends here
|
||||
|
||||
|
||||
@ -32,7 +32,7 @@
|
||||
|
||||
;; Links have one the following form
|
||||
;; notmuch:<search terms>
|
||||
;; notmuch-search:<search terms>.
|
||||
;; notmuch-search:<search terms>.
|
||||
|
||||
;; The first form open the queries in notmuch-show mode, whereas the
|
||||
;; second link open it in notmuch-search mode. Note that queries are
|
||||
@ -61,13 +61,13 @@
|
||||
(setq link (org-make-link "notmuch:" "id:" message-id))
|
||||
(org-add-link-props :link link :description desc)
|
||||
link)))
|
||||
|
||||
|
||||
(defun org-notmuch-open (path)
|
||||
"Follow a notmuch message link specified by PATH."
|
||||
(org-notmuch-follow-link path))
|
||||
|
||||
(defun org-notmuch-follow-link (search)
|
||||
"Follow a notmuch link to SEARCH.
|
||||
"Follow a notmuch link to SEARCH.
|
||||
|
||||
Can link to more than one message, if so all matching messages are shown."
|
||||
(require 'notmuch)
|
||||
@ -82,10 +82,10 @@ Can link to more than one message, if so all matching messages are shown."
|
||||
(defun org-notmuch-search-store-link ()
|
||||
"Store a link to a notmuch search or message."
|
||||
(when (eq major-mode 'notmuch-search-mode)
|
||||
(let ((link (org-make-link "notmuch-search:"
|
||||
(let ((link (org-make-link "notmuch-search:"
|
||||
(org-link-escape notmuch-search-query-string)))
|
||||
(desc (concat "Notmuch search: " notmuch-search-query-string)))
|
||||
(org-store-link-props :type "notmuch-search"
|
||||
(org-store-link-props :type "notmuch-search"
|
||||
:link link
|
||||
:description desc)
|
||||
link)))
|
||||
|
||||
@ -639,5 +639,3 @@ button changes the binding of the arrow keys."
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; org-panel.el ends here
|
||||
|
||||
|
||||
|
||||
@ -145,15 +145,15 @@ buffer."
|
||||
|
||||
(defun org-registry-assoc-all (link &optional registry)
|
||||
"Return all associated entries of LINK in the registry."
|
||||
(org-registry-find-all
|
||||
(org-registry-find-all
|
||||
(lambda (entry) (string= link (car entry)))
|
||||
registry))
|
||||
|
||||
(defun org-registry-find-all (test &optional registry)
|
||||
"Return all entries satisfying `test' in the registry."
|
||||
(delq nil
|
||||
(mapcar
|
||||
(lambda (x) (and (funcall test x) x))
|
||||
(delq nil
|
||||
(mapcar
|
||||
(lambda (x) (and (funcall test x) x))
|
||||
(or registry org-registry-alist))))
|
||||
|
||||
;;;###autoload
|
||||
|
||||
@ -40,7 +40,7 @@
|
||||
;; associated with that task, go to the end of your item and type:
|
||||
;;
|
||||
;; M-x org-screen
|
||||
;;
|
||||
;;
|
||||
;; This will prompt you for a name of a screen session. Type in a
|
||||
;; name and it will insert a link into your org file at your current
|
||||
;; location.
|
||||
@ -79,10 +79,10 @@ is copied from ansi-term method."
|
||||
|
||||
;; Pick the name of the new buffer.
|
||||
(let ((term-ansi-buffer-name
|
||||
(generate-new-buffer-name
|
||||
(generate-new-buffer-name
|
||||
(org-screen-buffer-name name))))
|
||||
(setq term-ansi-buffer-name
|
||||
(term-ansi-make-term
|
||||
(term-ansi-make-term
|
||||
term-ansi-buffer-name org-screen-program-name nil arg name))
|
||||
(set-buffer term-ansi-buffer-name)
|
||||
(term-mode)
|
||||
@ -104,5 +104,5 @@ is copied from ansi-term method."
|
||||
'("screen" . "elisp:(org-screen-goto \"%s\")"))
|
||||
(setq org-link-abbrev-alist
|
||||
'(("screen" . "elisp:(org-screen-goto \"%s\")"))))
|
||||
|
||||
|
||||
(provide 'org-screen)
|
||||
|
||||
@ -86,7 +86,7 @@ org-static-mathjax-options: The string given with #+STATICMATHJAX: in the f
|
||||
(set 'org-static-mathjax-mathjax-path
|
||||
(car (read-from-string
|
||||
(substring mathjax-options (match-end 0))))))))
|
||||
(add-hook 'after-save-hook
|
||||
(add-hook 'after-save-hook
|
||||
'org-static-mathjax-process
|
||||
nil t)))))
|
||||
|
||||
@ -117,20 +117,20 @@ org-static-mathjax-options: The string given with #+STATICMATHJAX: in the f
|
||||
(set symbol (eval (car (read-from-string
|
||||
(substring options (match-end 0))))))))
|
||||
'(embed-fonts output-file-name))
|
||||
|
||||
|
||||
; debug
|
||||
(when org-static-mathjax-debug
|
||||
(message "output file name, embed-fonts")
|
||||
(print output-file-name)
|
||||
(print embed-fonts))
|
||||
|
||||
|
||||
; open (temporary) input file, copy contents there, replace MathJax path with local installation
|
||||
(with-temp-buffer
|
||||
(insert html-code)
|
||||
(goto-char 1)
|
||||
(replace-regexp mathjax-oldpath mathjax-newpath)
|
||||
(write-file input-file-name))
|
||||
|
||||
|
||||
; prepare argument list for call-process
|
||||
(let ((call-process-args (list org-static-mathjax-xulrunner-path
|
||||
nil nil nil
|
||||
@ -146,10 +146,10 @@ org-static-mathjax-options: The string given with #+STATICMATHJAX: in the f
|
||||
(if (not embed-fonts)
|
||||
(progn
|
||||
(add-to-list 'call-process-args "--final-mathjax-url" t)
|
||||
(add-to-list 'call-process-args
|
||||
(add-to-list 'call-process-args
|
||||
(file-name-directory org-static-mathjax-mathjax-path)
|
||||
t)))
|
||||
|
||||
|
||||
; debug
|
||||
(when org-static-mathjax-debug
|
||||
(print call-process-args))
|
||||
|
||||
@ -127,7 +127,7 @@ This works by solving the whole game, then inserting only the single field."
|
||||
(setq game (org-sudoku-solve-game game))
|
||||
(if game
|
||||
(progn
|
||||
(org-table-put i j (number-to-string
|
||||
(org-table-put i j (number-to-string
|
||||
(nth 1 (assoc (cons i j) game)))
|
||||
'align)
|
||||
(org-table-goto-line i)
|
||||
@ -140,7 +140,7 @@ This works by solving the whole game, then inserting only the single field."
|
||||
"Interpret table at point as sudoku game and read it.
|
||||
A game structure is returned."
|
||||
(let (b e g i j game)
|
||||
|
||||
|
||||
(org-table-goto-line 1)
|
||||
(org-table-goto-column 1)
|
||||
(setq b (point))
|
||||
|
||||
@ -278,7 +278,7 @@ specified, then make `org-toc-recenter' use this value."
|
||||
;;; Navigation functions:
|
||||
(defun org-toc-goto (&optional jump cycle)
|
||||
"From Org TOC buffer, follow the targeted subtree in the Org window.
|
||||
If JUMP is non-nil, go to the base buffer.
|
||||
If JUMP is non-nil, go to the base buffer.
|
||||
If JUMP is 'delete, go to the base buffer and delete other windows.
|
||||
If CYCLE is non-nil, cycle the targeted subtree in the Org window."
|
||||
(interactive)
|
||||
@ -459,15 +459,15 @@ status."
|
||||
(defun org-toc-help ()
|
||||
"Display a quick help message in the echo-area for `org-toc-mode'."
|
||||
(interactive)
|
||||
(let ((st-start 0)
|
||||
(let ((st-start 0)
|
||||
(help-message
|
||||
"\[space\] show heading \[1-4\] hide headlines below this level
|
||||
\[TAB\] jump to heading \[f\] toggle follow mode (currently %s)
|
||||
\[return\] jump and delete others windows \[i\] toggle info mode (currently %s)
|
||||
\[S-TAB\] cycle subtree (in Org) \[S\] toggle show subtree mode (currently %s)
|
||||
\[C-S-TAB\] global cycle (in Org) \[r\] toggle recenter mode (currently %s)
|
||||
\[C-S-TAB\] global cycle (in Org) \[r\] toggle recenter mode (currently %s)
|
||||
\[:\] cycle subtree (in TOC) \[c\] toggle column view (currently %s)
|
||||
\[n/p\] next/previous heading \[s\] save TOC configuration
|
||||
\[n/p\] next/previous heading \[s\] save TOC configuration
|
||||
\[q\] quit the TOC \[g\] restore last TOC configuration"))
|
||||
(while (string-match "\\[[^]]+\\]" help-message st-start)
|
||||
(add-text-properties (match-beginning 0)
|
||||
|
||||
@ -174,7 +174,7 @@ setting of `org-wikinodes-create-targets'."
|
||||
(message "New Wiki target `%s' created in current buffer"
|
||||
target))))))
|
||||
|
||||
;;; The target cache
|
||||
;;; The target cache
|
||||
|
||||
(defvar org-wikinodes-directory-targets-cache nil)
|
||||
|
||||
@ -206,7 +206,7 @@ setting of `org-wikinodes-create-targets'."
|
||||
(while (re-search-forward re nil t)
|
||||
(push (org-match-string-no-properties 4) targets))))
|
||||
(nreverse targets)))
|
||||
|
||||
|
||||
(defun org-wikinodes-get-links-for-directory (dir)
|
||||
"Return an alist that connects wiki links to files in directory DIR."
|
||||
(let ((files (directory-files dir nil "\\`[^.#].*\\.org\\'"))
|
||||
@ -328,7 +328,7 @@ with working links."
|
||||
(setcdr m (cons '(org-wikinodes-activate-links) (cdr m)))
|
||||
(message
|
||||
"Failed to add wikinodes to `org-font-lock-extra-keywords'."))))
|
||||
|
||||
|
||||
(add-hook 'org-font-lock-set-keywords-hook
|
||||
'org-wikinodes-add-to-font-lock-keywords)
|
||||
|
||||
|
||||
@ -402,7 +402,7 @@ REM %s %s MSG EVENT:%s%s %s%s%%
|
||||
(insert sexp "\n"))))
|
||||
;; (princ (org-diary-to-rem-string sexp-buffer))
|
||||
(kill-buffer sexp-buffer))
|
||||
|
||||
|
||||
(when org-remind-include-todo
|
||||
(setq prefix "TODO-")
|
||||
(goto-char (point-min))
|
||||
@ -450,7 +450,7 @@ REM %s %s MSG EVENT:%s%s %s%s%%
|
||||
(if dos diff-days 0)
|
||||
(if dos 0 diff-days))
|
||||
1000)))
|
||||
|
||||
|
||||
(if (and (numberp org-rem-aw) (> org-rem-aw 0))
|
||||
(setq remind-aw (+ (or remind-aw 0) org-rem-aw)))
|
||||
|
||||
@ -470,7 +470,7 @@ REM %s %s MSG EVENT:%s%s %s%s%%
|
||||
(and due (setq due (org-rem-ts-to-remind-date-type due)))
|
||||
(and start (setq start (org-rem-ts-to-remind-date-type start)))
|
||||
(and remind-ew (setq remind-ew (org-rem-ts-to-remind-date-type remind-ew)))
|
||||
|
||||
|
||||
(if (string-match org-bracket-link-regexp hd)
|
||||
(setq hd (replace-match (if (match-end 3) (match-string 3 hd)
|
||||
(match-string 1 hd))
|
||||
|
||||
@ -36,4 +36,3 @@
|
||||
(org-pop-to-buffer-same-window "*preproc-temp*")
|
||||
(point-max)
|
||||
(insert string))))
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user