Lines Matching +refs:gnus +refs:user +refs:format +refs:function
71 (require 'gnus-sum)
94 (defconst org-format-transports-properties-p
97 (get-text-property 0 'test (format "%s" x)))
98 "Does format transport text properties?")
148 When the function `org-mode' is called interactively in an empty file, this
401 The function(s) in this hook must accept a single argument which indicates
692 table, obtained by prompting the user."
793 calc-float-format (float 5)
797 calc-date-format (YYYY "-" MM "-" DD " " Www (" " HH ":" mm))
869 also be a function that will be called with the tag as the only argument to
927 (defcustom org-email-link-description-format "Email %c: %.30s"
936 will be \"to NAME\". See also the variable `org-from-is-user-regexp'.
947 (defcustom org-from-is-user-regexp
949 (when (and user-mail-address (not (string= user-mail-address "")))
950 (setq r1 (concat "\\<" (regexp-quote user-mail-address) "\\>")))
951 (when (and user-full-name (not (string= user-full-name "")))
952 (setq r2 (concat "\\<" (regexp-quote user-full-name) "\\>")))
955 It should match if the message is from the user him/herself."
1022 (gnus . gnus-other-frame)
1032 `gnus'
1033 `gnus-other-frame'
1048 (cons (const gnus)
1050 (const gnus)
1051 (const gnus-other-frame)))
1077 This is a list with the first element being a lisp function, and the
1078 remaining elements being arguments to the function. In string arguments,
1086 (cons :tag "other" (function) (repeat :tag "argument" sexp))))
1088 (defcustom org-confirm-shell-link-function 'yes-or-no-p
1105 (defcustom org-confirm-elisp-link-function 'yes-or-no-p
1248 first when the user is asked to file the entry. The default headline is
1255 %^{prompt} prompt the user for a string and replace this sequence with it.
1261 %n user name (taken from `user-full-name')
1270 link type that is created. For example, calling `remember' in emails or gnus
1282 gnus | %:group, for messages also all email fields
1406 %u will be replaced by the user name.
1407 %U will be replaced by the full user name."
1456 "Formats for `format-time-string' which are used for time stamps.
1480 "Custom formats for time stamps. See `format-time-string' for the syntax.
1481 These are overlayed over the default ISO format if the variable
1486 (defun org-time-stamp-format (&optional long inactive)
1487 "Get the right format for a time string."
1717 (symbol :tag "Other, user-defined function"))
1730 (const :format "" tags)
1737 (const :format "" tags-todo)
1744 (const :format "" todo)
1750 (list :tag "Other, user-defined function"
1751 (symbol :tag "function")
1927 (defcustom org-agenda-date-format "%A %d %B %Y"
1930 a format string understood by `format-time-string'.
2064 (defcustom org-agenda-prefix-format
2072 are format strings.
2073 This format works similar to a printf format, with the following meaning:
2080 format HH:MM
2096 format letter, this character will be appended to the field value if
2097 the value is not empty. For example, the format \"%-12:c\" leads to
2113 (setq org-agenda-prefix-format \" %-11:c% s\")
2118 (string :tag "General format")
2126 (defvar org-prefix-format-compiled nil
2127 "The compiled version of the most recently used prefix format.
2128 See the variable `org-agenda-prefix-format'.")
2132 When the format `org-agenda-prefix-format' contains a `%t' specifier, a
2150 `org-agenda-prefix-format' contains a `%T' specifier."
2155 (const :tag "When prefix format contains %T" prefix)))
2167 (defcustom org-format-latex-options
2243 Note that a numeric prefix argument to an exporter function overrides
2537 (defcustom org-export-html-title-format "<h1 class=\"title\">%s</h1>\n"
2802 (defface org-level-1 ;; font-lock-function-name-face
2957 (defface org-table ;; font-lock-function-name-face
3119 (put 'org-let 'lisp-indent-function 1)
3123 (put 'org-let2 'lisp-indent-function 2)
3286 (defvar org-finish-function nil
3303 (defvar font-lock-unfontify-region-function)
3309 (defvar gnus-other-frame-object)
3310 (defvar gnus-group-name)
3311 (defvar gnus-article-current)
3417 (defun org-add-hook (hook function &optional append local)
3420 (add-local-hook hook function append)
3421 (add-hook hook function append local)))
3470 ;; We use a before-change function to check if a table might need
3474 This variable is set by `org-before-change-function'.
3538 (org-set-local 'font-lock-unfontify-region-function
3540 ;; Activate before-change-function
3542 (org-add-hook 'before-change-functions 'org-before-change-function nil
3556 (not (boundp 'outline-isearch-open-invisible-function)))
3560 (org-set-local 'outline-isearch-open-invisible-function
3607 (put 'org-add-props 'lisp-indent-function 2)
3630 "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
3685 (cons (length (format-time-string (car org-time-stamp-formats)))
3686 (length (format-time-string (cdr org-time-stamp-formats))))
3953 (if org-format-transports-properties-p
4003 - When this function is called with a prefix argument, rotate the entire
4026 no headline in line 1, this function will act as if called with prefix arg."
4210 This function is the default value of the hook `org-cycle-hook'."
4295 "Let the user select a location in the Org-mode buffer BUF.
4296 This function uses a recursive edit. It returns the selected position
4911 type unless it has been given to the function through the SORTING-TYPE
4982 (if unique (format ", %d duplicates removed" nremoved) ""))))
4986 The user will be prompted for the SORTING-TYPE if the call to this
4987 function does not specify it. WHAT is only for the prompt, to indicate
5122 "Update checkbox statistics unless turned off by user."
5164 (format "[%d%%]" (/ (* 100 c-on) (max 1 (+ c-on c-off))))
5165 (format "[%d/%d]" c-on (+ c-on c-off))))))
5363 This tests the user option `org-auto-renumber-ordered-lists' before
5421 (insert (format "%d" (setq n (1+ n)))))))
5468 open TODO items and archive them (after getting confirmation from the user).
5496 (setq file (format (match-string 1 org-archive-location)
5523 (insert (format "\nArchived entries from file %s\n\n"
5709 (defun org-before-change-function (beg end)
5851 (setq re (format "^ *\\| *\t *\\| \\{%d,\\}"
5882 (y-or-n-p (format "Overwrite file %s? " file)))
5967 (setq narrow (and org-format-transports-properties-p
6042 ;; With invisible characters, `format' does not get the field width right
6058 (setq rfmt (concat rfmt (format rfmt1 ty l))
6059 hfmt (concat hfmt (format hfmt1 (make-string l ?-)))))
6065 (if l (apply 'format rfmt
6161 (setq f (format (if num " %%%ds %s" " %%-%ds %s")
6163 n (format f s))
6166 (setq n (format f new))
6280 (setq txt (format "%d" (+ (string-to-number txt) 1))))
6346 (ref (format "@%d$%d" dline col))
6702 If SORTING-TYPE is specified when this function is called from a Lisp
6969 (org-set-local 'org-finish-function
7068 (defun org-table-map-tables (function)
7078 (save-excursion (funcall function)))
7128 (format "%g" res)
7133 (format "%d:%02d:%02d" h m s))))
7138 (format "Sum of %d items: %-20s (\\[yank] will insert result into buffer)"
7170 (ref (format "@%d$%d" (org-table-current-dline) col))
7185 (ref (format "@%d$%d" (org-table-current-dline)
7203 (format "%s formula $%s=" (if named "Field" "Column") scol)
7276 (format "\\(@[0-9]+\\)?\\$%d=.*?\\(::\\|$\\)" remove)
7277 (format "@%d\\$[0-9]+=.*?\\(::\\|$\\)" remove))))
7476 This function makes use of Dave Gillespie's Calc package, in my view the
7478 installed in order to use this function.
7500 This function can also be called from Lisp programs and offers
7502 argument is given, the user will not be prompted. SUPPRESS-ALIGN is
7505 formula, assuming that this has been done already outside the function.
7531 ;; Parse the format string. Since we have a lot of modes, this is
7544 'calc-float-format
7622 (princ (format "Substitution history of formula
7628 (princ (format " %s^\nError: %s"
7630 (princ (format "Result: %s\nFormat: %s\nFinal: %s"
7632 (if fmt (format fmt (string-to-number ev)) ev)))))
7644 (if fmt (format fmt (string-to-number ev)) ev))
8300 (setq str (if hline (format "I*%-2d" (setq ih (1+ ih)))
8301 (format "%4d" (setq id (1+ id)))))
8341 ;; function which tests if the cursor is currently inside a table. If that
8343 ;; those keys is used outside a table, the function uses `key-binding' to
8402 (org-add-hook 'before-change-functions 'org-before-change-function
8420 (remove-hook 'before-change-functions 'org-before-change-function t)
8446 "Create a function for binding in the table minor mode.
8456 (mapconcat (lambda (x) (format "%s" x)) keys "' or `")
8473 (error "This key is has no function outside tables"))
8539 ;; If the user wants maximum table support, we need to hijack
8727 (error "No such transformation function %s" transform))
8798 Assumes variables VAL, PARAMS, HEAD and I to be scoped into the function."
8804 "Convert the orgtbl-mode TABLE to some other format.
8829 :fmt A format to be used to wrap the field, should contain
8840 :efmt Use this format to print numbers with exponentials.
8841 The format should have %s twice for inserting mantissa
8877 (setq f (format
8879 (if fm (setq f (format fm f)))
8883 (push (apply 'format lfmt line) rtn)
8906 :fmt A format to be used to wrap the field, should contain %s for the
8911 :efmt Format for transforming numbers with exponentials. The format
8917 this function is called."
8933 Currently this function recognizes the following parameters:
8939 this function is called. The function does *not* use `orgtbl-to-generic',
8945 (setq html (org-format-org-table-html
8968 :fmt fmt A format to be used to wrap the field, should contain
8979 this function is called."
8983 (lambda (x) (format "%.3f" (/ (float x) total)))
9057 (format-time-string
9135 ((eq major-mode 'gnus-group-mode)
9136 (let ((group (cond ((fboundp 'gnus-group-group-name) ; depending on Gnus
9137 (gnus-group-group-name)) ; version
9138 ((fboundp 'gnus-group-name)
9139 (gnus-group-name))
9142 (org-store-link-props :type "gnus" :group group)
9146 "gnus:")
9150 ((memq major-mode '(gnus-summary-mode gnus-article-mode))
9151 (and (eq major-mode 'gnus-article-mode) (gnus-article-show-summary))
9152 (let* ((group gnus-newsgroup-name)
9153 (article (gnus-summary-article-number))
9154 (header (gnus-summary-article-header article))
9158 (subject (gnus-summary-subject-string)))
9159 (org-store-link-props :type "gnus" :from from :subject subject
9166 (format "http://groups.google.com/groups?as_umsgid=%s"
9168 (setq link (org-make-link "gnus:" group
9269 (when (and from to org-from-is-user-regexp)
9271 (if (string-match org-from-is-user-regexp from)
9279 according to FMT (default from `org-email-link-description-format')."
9280 (setq fmt (or fmt org-email-link-description-format))
9294 ;; Check if the user wrote this message
9295 (if (and org-from-is-user-regexp from to
9296 (save-match-data (string-match org-from-is-user-regexp from)))
9323 "Concatenate STRINGS, format resulting string with `org-link-format'."
9601 If there is no link at point, this function will search forward up to
9699 (org-follow-gnus-link path))
9707 ((string= type "gnus")
9713 (org-follow-gnus-link group article)))
9753 (if (or (not org-confirm-shell-link-function)
9754 (funcall org-confirm-shell-link-function
9755 (format "Execute \"%s\" in shell? "
9765 (if (or (not org-confirm-elisp-link-function)
9766 (funcall org-confirm-elisp-link-function
9767 (format "Execute \"%s\" as elisp? "
9785 A function in the hook should first test if it would like to
9793 taken to make the search successful, another function should be
9797 A function in this hook may also use `setq' to set the variable
9807 double colon. The function must first check if it would like to
9814 Each function can access the current prefix argument through the
9817 use a numeric or double prefix to guide the search function.
9819 In case this is needed, a function in this hook can also restore
10062 (defun org-follow-gnus-link (&optional group article)
10064 (require 'gnus)
10065 (funcall (cdr (assq 'gnus org-link-frame-setup)))
10066 (if gnus-other-frame-object (select-frame gnus-other-frame-object))
10068 (gnus-group-read-group 0 nil group)
10069 (gnus-summary-goto-article (string-to-number article) nil t))
10070 (group (gnus-group-jump-to-group group))))
10078 (let ((user (or (match-string 1 folder) (user-login-name)))
10085 (setq folder (format "[%s@%s]%s" user host file))
10086 (setq folder (format "/%s@%s:%s" user host file))))
10090 (setq folder (format "/%s@%s:%s" user host file))))))
10114 (setq folder (format "%s#%s" folder (match-string 1 article))
10264 (bibtex-autokey-name-case-convert-function 'identity)
10271 (bibtex-autokey-titleword-case-convert-function 'identity)
10358 (setq cmd (format cmd (shell-quote-argument file)))
10387 (defvar ange-ftp-name-format) ; to silence the XEmacs compiler.
10392 For example, the filename \"/user@host:/foo\" specifies a location
10393 on the system \"/user@host:\"."
10398 ((and (boundp 'ange-ftp-name-format)
10399 (string-match (car ange-ftp-name-format) file))
10411 conventions in Org-mode. This function returns such a link."
10424 This function should be placed into `remember-mode-hook' and in fact requires
10444 (v-t (format-time-string (car org-time-stamp-formats) (org-current-time)))
10445 (v-T (format-time-string (cdr org-time-stamp-formats) (org-current-time)))
10450 (v-n user-full-name)
10458 (format
10486 (org-set-local 'org-finish-function 'remember-buffer)
10512 (org-set-local 'org-finish-function 'remember-buffer)))
10520 (if (eq org-finish-function 'remember-buffer)
10536 First prompts for an org file. If the user just presses return, the value
10558 Before being stored away, the function ensures that the text has a
10661 (read-file-name (format "File name [%s]: " default)
10760 the correct writing function."
10784 This function can be used in a hook."
10960 ;; user requests a specific state
11026 This function should be run in the `org-after-todo-state-change-hook'."
11027 ;; last-state is dynamically scoped into this function
11095 If non is given, the user is prompted for a date.
11191 (insert (format "# Insert note for %s, finish with C-c C-c.\n\n"
11197 (org-set-local 'org-finish-function 'org-store-log-note))
11214 (list (cons "%u" (user-login-name))
11215 (cons "%U" user-full-name)
11216 (cons "%t" (format-time-string
11217 (org-time-stamp-format 'long 'inactive)
11252 If CALLBACK is non-nil, it is a function which is called to confirm
11333 BEG and END are ignored. If NOREMOVE is nil, remove this function
11386 (setq news (format "%c" new))
11433 (format "mouse-2 or RET jump to org file %s"
11474 (setq txt (org-format-agenda-item
11506 ;; todo-only is scoped dynamically into this function, and the function
11514 "Match: " 'org-tags-completion-function nil nil nil
11620 ;; Get a new set of tags from the user
11635 (completing-read "Tags: " 'org-tags-completion-function
11664 (defun org-tags-completion-function (string predicate &optional flag)
11692 (insert (format "%-12s" (concat kwd ":"))
11915 If the user specifies a time like HH:MM, or if this command is called
11918 specified by the user will be filled in from the current date/time.
11964 "Read a date and make things smooth for the user.
11978 The function understands only English month and weekday abbreviations,
11992 enter a time, and this function will inform the calling routine about
11993 this change. The calling routine may then choose to change the format
12014 (timestr (format-time-string
12017 (format "YYYY-MM-DD [%s]: " timestr)))
12085 (string-to-number (format-time-string "%Y")))
12089 (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day)
12092 year (or (nth 5 tl) (string-to-number (format-time-string "%Y" ct)))
12093 month (or (nth 4 tl) (string-to-number (format-time-string "%m" ct)))
12094 day (or (nth 3 tl) (string-to-number (format-time-string "%d" ct)))
12095 hour (or (nth 2 tl) (string-to-number (format-time-string "%H" ct)))
12096 minute (or (nth 1 tl) (string-to-number (format-time-string "%M" ct)))
12113 (format "%04d-%02d-%02d %02d:%02d" year month day hour minute)
12114 (format "%04d-%02d-%02d" year month day)))))
12125 (setq org-ans2 (format-time-string "%Y-%m-%d" time))))
12136 (setq org-ans1 (format-time-string "%Y-%m-%d" time)))
12141 WITH-HM means, use the stamp format that includes the time of the day.
12151 (insert (setq stamp (format-time-string fmt time)))
12173 (message "Time stamps are overlayed with custom format")
12177 "Overlay modified time stamp format over timestamp between BED and END."
12185 (format-time-string
12199 "Translate all timestamps in STRING to custom format.
12216 str (format-time-string
12250 (setq org-ans1 (format-time-string "%Y-%m-%d" time)))
12330 (if (> y 0) (insert " " (format (if havetime fy fy1) y d h m))
12331 (if (> d 0) (insert " " (format (if havetime fd fd1) d h m))
12332 (insert " " (format fh h m))))
12347 (apply 'format fmt (nreverse l))))
12577 (insert " => " (format "%2d:%02d" h m))
12681 (org-add-props (format "%s %2d:%02d%s"
12694 BEG and END are ignored. If NOREMOVE is nil, remove this function
12726 (y-or-n-p (format "Clock-out in buffer %s before killing it? "
12777 (insert " => " (format "%2d:%02d" h m))
12819 (cons (format-time-string fm ts) (format-time-string fm te))
12845 (format-time-string (cdr org-time-stamp-formats))
12849 (format " Considered range is /%s/." block)
12856 (format "*%d:%02d*" h m)
12877 (format "%d:%02d" h m)
13229 entries with a specific TODO keyword (the user gets a prompt).
13231 a condition (the user is prompted for the condition).
13277 (insert (format "\n%-4s%-14s: %s"
13292 (format "set of %d commands" (length match))))))
13565 "Make sure FILE exists. If not, ask user what to do."
13652 (defvar org-agenda-skip-function nil
13654 If this function return nil, the current match should not be skipped.
13655 Otherwise, the function must return a position from where the search
13674 (when (and (functionp org-agenda-skip-function)
13677 (funcall org-agenda-skip-function)))))
13719 "Release all buffers in list, asking the user for confirmation when needed.
13721 \(if the user agrees) and then killed."
13727 (y-or-n-p (format "Save file %s? " file)))
13770 (org-compile-prefix-format 'timeline)
13803 (insert (format "\n[... %d empty days omitted]\n\n" (cdr d)))
13824 ; (insert (format-time-string org-agenda-date-format
13908 (org-compile-prefix-format 'agenda)
13989 (insert (format "%-9s %2d %s %4d\n"
13995 ; (insert (format-time-string org-agenda-date-format
14036 (org-compile-prefix-format 'todo)
14079 (format "(%d)%s" (setq n (1+ n)) x))
14098 (org-compile-prefix-format 'tags)
14122 (format "ORG-AGENDA-ERROR: No such org-file %s" file))
14162 used by user-defined selections using `org-agenda-skip-function'.")
14170 to skip this subtree. This is a function that can be put into
14171 `org-agenda-skip-function' for the duration of a command."
14186 (let* ((org-agenda-skip-function 'org-agenda-skip-subtree-when-regexp-matches)
14221 (diary-file-name-prefix-function nil) ; turn this feature off
14222 (diary-modify-entry-list-string-function 'org-modify-diary-entry-string)
14248 (setq x (org-format-agenda-item "" x "Diary" nil 'time))
14276 '(if (boundp 'diary-modify-entry-list-string-function)
14292 'help-echo (format "mouse-2 or RET jump to diary file %s"
14310 This function can be used in a \"sexp\" diary entry in the Emacs calendar.
14312 listed in the diary. The function accepts arguments specifying what
14348 The function expects the lisp variables `entry' and `date' to be provided
14350 function from a program - use `org-agenda-get-day-entries' instead."
14352 (org-compile-prefix-format 'agenda)
14385 (list (format "ORG-AGENDA-ERROR: No such org-file %s" file))
14453 (format "mouse-2 or RET jump to org file %s"
14483 txt (org-format-agenda-item "" (match-string 1) category tags)
14510 (format "mouse-2 or RET jump to org file %s"
14514 (format-time-string
14549 (setq txt (org-format-agenda-item
14550 (format "%s%s"
14579 (format "mouse-2 or RET jump to org file %s"
14585 (format-time-string
14612 (setq txt (org-format-agenda-item
14632 (format "mouse-2 or RET jump to org file %s"
14664 (setq txt (org-format-agenda-item
14665 (format "In %3d d.: " diff) head category tags))))
14689 (format "mouse-2 or RET jump to org file %s"
14719 (setq txt (org-format-agenda-item
14720 (format "Sched.%2dx: " (- 1 diff)) head
14739 (format "mouse-2 or RET jump to org file %s"
14766 (setq txt (org-format-agenda-item
14767 (format (if (= d1 d2) "" "(%d/%d): ")
14812 "A flag, set by `org-compile-prefix-format'.
14813 The flag is set if the currently compiled format contains a `%t'.")
14815 "A flag, set by `org-compile-prefix-format'.
14816 The flag is set if the currently compiled format contains a `%T'.")
14818 (defun org-format-agenda-item (extra txt &optional category tags dotime
14822 must be a string and replaces the `%s' specifier in the prefix format.
14825 specifier in the format. DOTIME, when non-nil, indicates that a
14827 the `%t' specifier in the format. When DOTIME is a string, this string is
14841 time ; time and tag are needed for the eval of the prefix format
14855 ;; The user can turn this off with a variable.
14880 ;; Prepare the variables needed in the eval of the compiled format
14886 ;; Evaluate the compiled format
14887 (setq rtn (concat (eval org-prefix-format-compiled) txt)))
14920 (push (org-format-agenda-item
14930 (defun org-compile-prefix-format (key)
14931 "Compile the prefix format into a Lisp form that can be evaluated.
14933 `org-prefix-format-compiled'."
14936 ((stringp org-agenda-prefix-format)
14937 org-agenda-prefix-format)
14938 ((assq key org-agenda-prefix-format)
14939 (cdr (assq key org-agenda-prefix-format)))
14958 (format ,f (if (equal "" ,var) "" (concat ,var ,c)))))
14959 (setq varform `(format ,f (if (equal ,var "") "" (concat ,var ,c)))))
14963 (setq org-prefix-format-compiled `(format ,s ,@vars))))
14967 ;; the old format
15106 Org-mode buffers visited directly by the user will not be touched."
15113 "Save all Org-mode buffers without user confirmation."
15212 ;; FIXME: this no longer works if user make date format that starts with a blank
15370 (format "Delete entry with %d lines in buffer \"%s\"? "
15398 If this information is not given, the function uses the tree at point."
15541 `org-format-agenda-item'). HDMARKER is checked with
15558 new (org-format-agenda-item "x" newhead cat tags dotime 'noprefix)
15868 (oldf (symbol-function 'calendar-cursor-to-date))
15878 ;; We implement this by hacking the `calendar-cursor-to-date' function
15901 (let* ((oldf (symbol-function 'calendar-cursor-to-date))
16028 (if (and p (member (car p) (plist-get org-format-latex-options :matchers)))
16041 Even though the matchers for math are configurable, this function assumes
16047 This function does a reasonably good job, but can locally be fooled by
16049 inline math after \"$22.34\". The LaTeX fragment formatter will only format
16051 with the uncertainty caused by missing closing delimiters. This function
16055 (dodollar (member "$" (plist-get org-format-latex-options :matchers)))
16159 (org-format-latex
16176 (defun org-format-latex (prefix &optional dir overlays msg at)
16182 (opt org-format-latex-options)
16204 linkfile (format "%s_%04d.png" prefix cnt)
16205 movefile (format "%s_%04d.png" absprefix cnt)
16231 ;; This function borrows from Ganesh Swami's latex2png.el
16322 (:author . user-full-name)
16323 (:email . user-mail-address)))
16843 (org-format-latex
16985 (date (format-time-string "%Y/%m/%d" (current-time)))
16986 (time (format-time-string "%X" (org-current-time)))
17072 (format (if todo "%s (*)\n" "%s\n") txt))
17250 (format
17265 (buffer-name) (user-full-name) user-mail-address org-export-default-language
17298 ((cdr x) (format "%s(%c)" (car x) (cdr x)))
17394 (link-validate (plist-get opt-plist :link-validation-function))
17425 (date (format-time-string "%Y/%m/%d" (current-time)))
17426 (time (format-time-string "%X" (org-current-time)))
17488 (insert (format
17509 (if title (insert (format org-export-html-title-format
17515 (insert (format "<h%d>%s</h%d>\n"
17571 (format "sec-%d" head-count))
17576 (format
17732 ((member type '("bbdb" "vm" "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
17787 (insert (org-format-table-html table-buffer table-orig-buffer))))
17893 (defun org-format-table-html (lines olines)
17897 (org-format-org-table-html lines)
17913 (org-format-table-table-html lines)
17915 (org-format-table-table-html-using-table-generate-source olines)))))
17917 (defun org-format-org-table-html (lines &optional splice)
17972 (format "<COL align=\"%s\">"
18011 (defun org-format-table-table-html (lines)
18053 (defun org-format-table-table-html-using-table-generate-source (lines)
18085 (format "@<span class=\"timestamp-kwd\">%s @</span>"
18087 (format " @<span class=\"timestamp\">%s@</span>"
18236 ;; If title is nil, this means this function is called to close
18263 (insert (format "\n<h%d><a name=\"sec-%d\">%s</a></h%d>\n"
18265 (insert (format "\n<h%d>%s</h%d>\n" level title level)))
18355 (format-time-string (cdr org-time-stamp-formats) (current-time))
18388 (princ (format "BEGIN:VEVENT
18415 (princ (format "BEGIN:VTODO
18427 (let ((user user-full-name)
18431 (format "BEGIN:VCALENDAR
18436 CALSCALE:GREGORIAN\n" name user timezone))))
18443 "Take a time string S and convert it to iCalendar format.
18458 (concat keyword (format-time-string fmt time))))
18465 (put 'org-export-as-xoxo-insert-into 'lisp-indent-function 1)
18724 When deleting backwards, in tables this function will insert whitespace in
18747 When deleting characters, in tables this function will insert whitespace in
18797 ;; If the user wants maximum table support, we need to hijack
19020 ((and (local-variable-p 'org-finish-function (current-buffer))
19021 (fboundp org-finish-function))
19022 (funcall org-finish-function))
19233 ["Custom time format" org-toggle-time-stamp-overlays
19314 (Info-goto-node (format "(org)%s" (or node ""))))
19337 "Call the customize function with org as argument."
19389 This function expects the position to be visible because it uses font-lock
19542 (setq rpl (format (concat (substring (match-string 0 string) 0 -1) "s")
19591 ;; But only if the user has not turned off tables or fixed-width regions
19602 ;; We use our own fill-paragraph function, to make sure that tables
19603 ;; and fixed-width regions are not wrapped. That function will pass
19605 (org-set-local 'fill-paragraph-function 'org-fill-paragraph)
19609 (org-set-local 'adaptive-fill-function
19610 'org-adaptive-fill-function))
19624 (defun org-adaptive-fill-function ()
19660 to a visible line beginning. This makes the function of C-a more intuitive."
19699 This function considers both visible and invisible heading lines.
19755 ;; This is an exact copy of the original function, but it uses
19815 ;; (Emacs 22 has a special variable, see function `org-mode')