Lines Matching +defs:custom +defs:group +defs:link
100 ;;; The custom variables
105 :group 'outlines
106 :group 'hypermedia
107 :group 'calendar)
112 :group 'org)
122 :group 'org-startup
132 :group 'org-startup
143 :group 'org-startup
153 :group 'org-startup
176 :group 'org-startup
201 :group 'org-startup
211 :group 'org)
219 :group 'org-keywords
228 :group 'org-keywords
233 :group 'org-keywords
238 :group 'org-keywords
246 :group 'org-keywords
255 :group 'org-keywords
260 After a match, group 1 contains the repeat expression.")
265 :group 'org)
270 :group 'org-structure)
284 link-search when exposing search matches associated with a link
289 :group 'org-reveal-location
300 (const link-search)
317 :group 'org-reveal-location
328 (const link-search)
348 :group 'org-reveal-location
359 (const link-search)
369 :group 'org-structure)
380 :group 'org-cycle
391 :group 'org-cycle
406 :group 'org-cycle
413 :group 'org-structure)
427 :group 'org-edit-structure
428 :group 'org-font-lock
437 :group 'org-edit-structure
445 :group 'org-edit-structure
452 :group 'org-edit-structure
460 :group 'org-edit-structure
466 :group 'org-structure)
472 :group 'org-sparse-trees
481 :group 'org-sparse-trees
482 :group 'org-time
490 :group 'org-sparse-trees
496 :group 'org-structure)
505 :group 'org-plain-lists
514 :group 'org-plain-lists
524 :group 'org-plain-lists
532 :group 'org-plain-lists
538 :group 'org-structure)
544 :group 'org-archive
545 :group 'org-keywords
551 :group 'org-archive
552 :group 'org-agenda-skip
560 :group 'org-archive
561 :group 'org-cycle
568 :group 'org-archive
569 :group 'org-sparse-trees
605 :group 'org-archive
610 :group 'org-archive
618 :group 'org-archive
624 :group 'org)
651 :group 'org-table
668 :group 'org-table
693 :group 'org-table
701 :group 'org-table)
705 :group 'org-table-settings
721 :group 'org-table-settings
742 :group 'org-table-settings
748 :group 'org-table)
754 :group 'org-table-editing
762 :group 'org-table-editing
771 :group 'org-table-editing
778 :group 'org-table-editing
784 :group 'org-table)
788 :group 'org-table-calculation
804 :group 'org-table-calculation
815 :group 'org-table-calculation
826 :group 'org-table-calculation
838 :group 'org-table-calculation
846 :group 'org-table-calculation
849 (defgroup org-link nil
852 :group 'org)
854 (defvar org-link-abbrev-alist-local nil
855 "buffer-local version of `org-link-abbrev-alist', which see.
857 (make-variable-buffer-local 'org-link-abbrev-alist-local)
859 (defcustom org-link-abbrev-alist nil
860 "Alist of link abbreviations.
861 The car of each element is a string, to be replaced at the start of a link.
867 If REPLACE is a string, the tag will simply be appended to create the link.
870 create the link. See the manual for examples."
871 :group 'org-link
875 "Non-nil means, hide link part and only show description of bracket links.
876 Bracket links are like [[link][descritpion]]. This variable sets the initial
879 :group 'org-link
882 (defcustom org-link-file-path-type 'adaptive
887 into which the link is being inserted.
892 :group 'org-link
901 This is a list of symbols, each leading to the activation of a certain link
902 type. In principle, it does not hurt to turn on most link types - there may
903 be a small gain when turning off unused link types. The types are:
905 bracket The recommended [[link][description]] or [[link]] links with hiding.
910 tag Tag settings in a headline (link to tag search).
911 date Time stamps (link to calendar).
914 :group 'org-link
922 (defgroup org-link-store nil
925 :group 'org-link)
927 (defcustom org-email-link-description-format "Email %c: %.30s"
928 "Format of the description part of a link to an email or usenet message.
944 :group 'org-link-store
956 :group 'org-link-store
960 "Non-nil means, file links from `org-store-link' contain context.
962 used to find the context when the link is activated by the command
964 Using a prefix arg to the command \\[org-store-link] (`org-store-link')
966 :group 'org-link-store
969 (defcustom org-keep-stored-link-after-insertion nil
970 "Non-nil means, keep link in list for entire session.
972 The command `org-store-link' adds a link pointing to the current
974 The command `org-insert-link' can be used to insert links into any
976 option is nil, every link which has been inserted once using \\[org-insert-link]
979 :group 'org-link-store
983 "Non-nil means, `org-store-link' will create web links to Google groups.
985 Using a prefix arg to the command \\[org-store-link] (`org-store-link')
987 :group 'org-link-store
990 (defgroup org-link-follow nil
993 :group 'org-link)
995 (defcustom org-tab-follows-link nil
996 "Non-nil means, on links TAB will follow the link.
998 :group 'org-link-follow
1001 (defcustom org-return-follows-link nil
1002 "Non-nil means, on links RET will follow the link.
1004 :group 'org-link-follow
1007 (defcustom org-mouse-1-follows-link t
1008 "Non-nil means, mouse-1 on a link will follow the link.
1011 :group 'org-link-follow
1017 :group 'org-link-follow
1020 (defcustom org-link-frame-setup
1025 When following a link with Emacs, it may often be useful to display
1026 this link in another window or frame. This variable can be used to
1041 :group 'org-link-follow
1058 (defcustom org-display-internal-link-with-indirect-buffer nil
1061 in the same file) normally just jumps to the location. When the link is
1062 activated with a C-u prefix (or with mouse-3), the link is displayed in
1066 :group 'org-link-follow
1072 :group 'org-link-follow
1075 (defcustom org-link-mailto-program '(browse-url "mailto:%a?subject=%s")
1081 :group 'org-link-follow
1088 (defcustom org-confirm-shell-link-function 'yes-or-no-p
1090 Shell links can be dangerous, just thing about a link
1094 This link would show up in your Org-mode document as \"Google Search\"
1099 :group 'org-link-follow
1105 (defcustom org-confirm-elisp-link-function 'yes-or-no-p
1107 Elisp links can be dangerous, just think about a link
1111 This link would show up in your Org-mode document as \"Google Search\"
1116 :group 'org-link-follow
1187 :group 'org-link-follow
1202 all folders if the message cannot be found in the folder given in the link.
1205 :group 'org-link-follow
1211 :group 'org)
1217 :group 'org-remember
1226 :group 'org-remember
1236 :group 'org-remember
1262 %a annotation, normally the link created with org-store-link
1270 link type that is created. For example, calling `remember' in emails or gnus
1273 is recorded for each link type.
1282 gnus | %:group, for messages also all email fields
1286 :group 'org-remember
1304 :group 'org-remember
1314 :group 'org)
1319 :group 'org-time)
1331 :group 'org-todo
1332 :group 'org-keywords
1345 :group 'org-todo
1346 :group 'org-keywords
1354 :group 'org-todo
1386 :group 'org-todo
1387 :group 'org-progress
1408 :group 'org-todo
1409 :group 'org-progress
1422 :group 'org-todo
1423 :group 'org-progress
1429 :group 'org-todo)
1434 :group 'org-priorities
1439 :group 'org-priorities
1445 :group 'org)
1452 :group 'org-time
1465 :group 'org-time
1468 (defcustom org-display-custom-times nil
1469 "Non-nil means, overlay custom formats over all time stamps.
1470 The formats are defined through the variable `org-time-stamp-custom-formats'.
1473 :group 'org-time
1476 (make-variable-buffer-local 'org-display-custom-times)
1478 (defcustom org-time-stamp-custom-formats
1482 `org-display-custom-times' is set."
1483 :group 'org-time
1497 :group 'org-time
1505 :group 'org-time
1512 :group 'org-time
1518 :group 'org)
1527 :group 'org-tags
1532 (const :tag "Start radio group" (:startgroup))
1533 (const :tag "End radio group" (:endgroup)))))
1544 :group 'org-tags
1556 :group 'org-tags
1567 :group 'org-tags
1575 :group 'org-tags
1583 :group 'org-tags
1598 :group 'org-tags
1609 :group 'org)
1633 :group 'org-agenda
1643 :group 'org-agenda
1654 :group 'org-agenda
1657 (defgroup org-agenda-custom-commands nil
1660 :group 'org-agenda)
1662 (defcustom org-agenda-custom-commands '(("w" todo "WAITING"))
1705 :group 'org-agenda-custom-commands
1776 :group 'org-agenda-custom-commands
1786 :group 'org-agenda)
1792 :group 'org-agenda-skip
1793 :group 'org-todo
1800 :group 'org-agenda-skip
1801 :group 'org-todo
1808 :group 'org-agenda-skip
1809 :group 'org-todo
1815 :group 'org-agenda-skip
1824 :group 'org-agenda-skip
1834 :group 'org-agenda)
1838 :group 'org-agenda-startup
1841 (defcustom org-agenda-mouse-1-follows-link nil
1842 "Non-nil means, mouse-1 on a link will follow the link in the agenda.
1845 :group 'org-agenda-startup
1850 :group 'org-agenda-startup
1856 :group 'org-agenda)
1868 :group 'org-agenda-windows
1882 :group 'org-agenda-windows
1894 :group 'org-structure
1895 :group 'org-agenda-windows
1905 :group 'org-agenda)
1910 :group 'org-agenda-daily/weekly
1917 :group 'org-agenda-daily/weekly
1924 :group 'org-agenda-daily/weekly
1932 :group 'org-agenda-daily/weekly
1937 :group 'org-agenda-daily/weekly
1944 :group 'org-agenda-daily/weekly
1950 :group 'org-agenda)
1959 :group 'org-agenda-time-grid
1980 :group 'org-agenda-time-grid
1997 :group 'org-agenda)
2038 :group 'org-agenda-sorting
2056 :group 'org-agenda-sorting
2062 :group 'org-agenda)
2124 :group 'org-agenda-prefix)
2141 :group 'org-agenda-prefix
2151 :group 'org-agenda-prefix
2159 :group 'org-agenda-prefix
2165 :group 'org)
2182 :group 'org-latex
2188 :group 'org)
2193 :group 'org-export)
2203 :group 'org-export-general
2226 :group 'org-export-general
2237 :group 'org-export-general
2247 :group 'org-export-general
2254 :group 'org-export-general
2273 :group 'org-export-general
2281 :group 'org-export-general
2290 :group 'org-export-general
2299 :group 'org-export-general
2300 :group 'org-archive
2308 :group 'org-export-general
2313 :group 'org-export-general
2320 :group 'org-export-general
2329 :group 'org-export)
2339 :group 'org-export-translation
2361 :group 'org-export-translation
2373 :group 'org-export-translation
2374 :group 'org-latex
2385 :group 'org-export-translation
2386 :group 'org-latex
2400 :group 'org-export-translation
2406 :group 'org-export-translation
2412 :group 'org-export)
2425 :group 'org-export-tables
2434 :group 'org-export-tables
2443 :group 'org-export-tables
2454 :group 'org-export-tables
2460 :group 'org-export)
2465 :group 'org-export-ascii
2475 :group 'org-export-ascii
2481 :group 'org-export)
2486 :group 'org-export)
2530 <link rel=\"stylesheet\" type=\"text/css\" href=\"mystyles.css\">
2534 :group 'org-export-html
2539 :group 'org-export-html
2544 :group 'org-export-html
2547 (defcustom org-export-html-link-org-files-as-html t
2556 :group 'org-export-html
2562 link to the image. If this option is `maybe', then images in links with
2565 :group 'org-export-html
2577 :group 'org-export-html
2585 :group 'org-export-html
2592 :group 'org-export-html
2598 :group 'org-export-html
2604 :group 'org-export)
2610 :group 'org-export-icalendar
2615 :group 'org-export-icalendar
2623 :group 'org-export-icalendar
2629 :group 'org)
2636 :group 'org-font-lock
2652 :group 'org-font-lock
2660 :group 'org-font-lock
2666 :group 'org-font-lock
2732 :group 'org-font-lock
2755 :group 'org-font-lock
2771 :group 'org-font-lock)
2800 :group 'org-faces)
2811 :group 'org-faces)
2821 :group 'org-faces)
2833 :group 'org-faces)
2845 :group 'org-faces)
2853 :group 'org-faces)
2861 :group 'org-faces)
2869 :group 'org-faces)
2877 :group 'org-faces)
2885 :group 'org-faces)
2895 :group 'org-faces)
2904 :group 'org-faces)
2917 :group 'org-faces)
2919 (defface org-link
2924 :group 'org-faces)
2931 :group 'org-faces)
2936 :group 'org-faces)
2946 :group 'org-faces)
2955 :group 'org-faces)
2966 :group 'org-faces)
2976 :group 'org-faces)
2985 :group 'org-faces)
2995 :group 'org-faces)
3005 :group 'org-faces)
3013 :group 'org-faces)
3034 "Matches a headline and puts TODO state into group 2 if present.")
3037 "Matches a headline and puts TODO state into group 2 if present.
3038 Also put tags into group 4 if tags are present.")
3136 ("customtime" org-display-custom-times t)
3205 (and links (setq org-link-abbrev-alist-local (nreverse links)))
3310 (defvar gnus-group-name)
3519 (if org-descriptive-links (org-add-to-invisibility-spec '(org-link)))
3617 (when org-mouse-1-follows-link
3618 (define-key org-mouse-map [follow-link] 'mouse-face))
3619 (when org-tab-follows-link
3622 (when org-return-follows-link
3628 (defconst org-non-link-chars "]\t\n\r<>")
3629 (defconst org-link-types '("https?" "ftp" "mailto" "file" "news" "bbdb" "vm"
3631 (defconst org-link-re-with-space
3633 "<?\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
3634 "\\([^" org-non-link-chars " ]"
3635 "[^" org-non-link-chars "]*"
3636 "[^" org-non-link-chars " ]\\)>?")
3637 "Matches a link with spaces, optional angular brackets around it.")
3639 (defconst org-link-re-with-space2
3641 "<?\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
3642 "\\([^" org-non-link-chars " ]"
3644 "[^" org-non-link-chars " ]\\)>?")
3645 "Matches a link with spaces, optional angular brackets around it.")
3647 (defconst org-angle-link-re
3649 "<\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
3650 "\\([^" org-non-link-chars " ]"
3651 "[^" org-non-link-chars "]*"
3653 "Matches link with angular brackets, spaces are allowed.")
3654 (defconst org-plain-link-re
3656 "\\(" (mapconcat 'identity org-link-types "\\|") "\\):"
3658 "Matches plain link, without spaces.")
3660 (defconst org-bracket-link-regexp
3662 "Matches a link in double brackets.")
3664 (defconst org-bracket-link-analytic-regexp
3667 "\\(\\(" (mapconcat 'identity org-link-types "\\|") "\\):\\)?"
3678 (defconst org-any-link-re
3679 (concat "\\(" org-bracket-link-regexp "\\)\\|\\("
3680 org-angle-link-re "\\)\\|\\("
3681 org-plain-link-re "\\)")
3682 "Regular expression matching any link.")
3728 (if (re-search-forward org-plain-link-re limit t)
3739 (if (re-search-forward org-angle-link-re limit t)
3762 (if (re-search-forward org-bracket-link-regexp limit t)
3769 (list 'invisible 'org-link 'rear-nonsticky t
3797 (when org-display-custom-times
3799 (org-display-custom-time (match-beginning 3) (match-end 3)))
3800 (org-display-custom-time (match-beginning 1) (match-end 1)))
3803 (defvar org-target-link-regexp nil
3806 "Regular expression matching a link target.")
3808 "Regular expression matching a link target.")
3812 (when org-target-link-regexp
3814 (if (re-search-forward org-target-link-regexp limit t)
3820 'help-echo "Radio target link"
3828 (setq org-target-link-regexp
3829 (org-make-target-link-regexp (org-all-targets 'radio)))
3859 (defun org-make-target-link-regexp (targets)
3909 (if (memq 'angle lk) '(org-activate-angle-links (0 'org-link t)))
3910 (if (memq 'plain lk) '(org-activate-plain-links (0 'org-link t)))
3911 (if (memq 'bracket lk) '(org-activate-bracket-links (0 'org-link t)))
3912 (if (memq 'radio lk) '(org-activate-target-links (0 'org-link t)))
5956 (setq links (re-search-forward org-bracket-link-regexp end t))
5958 (setq dates (and org-display-custom-times
5960 ;; Make sure the link properties are right
6017 (setq f1 (min fmax (or (string-match org-bracket-link-regexp xx) fmax)))
6019 (error "Cannot narrow field starting with wide link \"%s\""
6050 (string-match org-bracket-link-regexp (car c))
6090 This ignores character with invisibility property `org-link', and also
6095 (assq 'org-link buffer-invisibility-spec))
6097 'invisible 'org-link s))
8997 (defun org-link-expand-abbrev (link)
8998 "Apply replacements as defined in `org-link-abbrev-alist."
8999 (if (string-match "^\\([a-zA-Z]+\\)\\(::?\\(.*\\)\\)?$" link)
9000 (let* ((key (match-string 1 link))
9001 (as (or (assoc key org-link-abbrev-alist-local)
9002 (assoc key org-link-abbrev-alist)))
9003 (tag (and (match-end 2) (match-string 3 link)))
9006 link
9012 link))
9016 (defvar org-insert-link-history nil
9017 "Minibuffer history for links inserted with `org-insert-link'.")
9020 "Contains the links stored with `org-store-link'.")
9022 (defvar org-store-link-plist nil
9023 "Plist with info about the most recently link created with `org-store-link'.")
9026 (defun org-store-link (arg)
9027 "\\<org-mode-map>Store an org-link to the current location.
9028 This link can later be inserted into an org-buffer with
9029 \\[org-insert-link].
9030 For some link types, a prefix arg is interpreted:
9034 (setq org-store-link-plist nil) ; reset
9035 (let (link cpltxt desc description search txt)
9042 link (org-make-link cpltxt))
9043 (org-store-link-props :type "bbdb" :name name :company company)))
9046 (setq link (org-make-link "info:"
9051 (org-store-link-props :type "info" :file Info-current-file
9056 (setq link
9062 (org-store-link-props :type "calendar" :date cd)))
9076 (org-store-link-props :type "vm" :from from :to to :subject subject
9083 (setq cpltxt (org-email-link-description))
9084 (setq link (org-make-link "vm:" folder "#" message-id)))))
9100 (org-store-link-props :type "wl" :from from :to to
9103 (setq cpltxt (org-email-link-description))
9104 (setq link (org-make-link "wl:" wl-summary-buffer-folder-name
9113 (org-store-link-props :type "mh" :from from :to to
9115 (setq cpltxt (org-email-link-description))
9116 (setq link (org-make-link "mhe:" (org-mhe-get-message-real-folder) "#"
9128 (org-store-link-props
9132 (setq cpltxt (org-email-link-description))
9133 (setq link (org-make-link "rmail:" folder "#" message-id))))))
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))
9141 (unless group (error "Not on a group"))
9142 (org-store-link-props :type "gnus" :group group)
9145 "http://groups.google.com/groups?group="
9147 group)
9148 link (org-make-link cpltxt))))
9152 (let* ((group gnus-newsgroup-name)
9159 (org-store-link-props :type "gnus" :from from :subject subject
9160 :message-id message-id :group group)
9161 (setq cpltxt (org-email-link-description))
9163 (setq link
9168 (setq link (org-make-link "gnus:" group
9173 link (org-make-link cpltxt))
9174 (org-store-link-props :type "w3" :url (url-view-url t)))
9178 link (org-make-link w3m-current-url))
9179 (org-store-link-props :type "w3m" :url (url-view-url t)))
9183 (setq link (concat "file:" (abbreviate-file-name buffer-file-name)
9185 (setq cpltxt (or description link)))
9190 link (org-make-link cpltxt))
9191 (org-store-link-props :type "image" :file buffer-file-name))
9194 ;; link to the file in the current line
9199 link (org-make-link cpltxt)))
9202 ;; Just link to current headline
9221 (setq link (org-make-link cpltxt)))
9224 ;; Just link to this file here.
9237 (setq link (org-make-link cpltxt)))
9240 (error "Cannot link to a buffer which is not visiting a file"))
9242 (t (setq link nil)))
9244 (if (consp link) (setq cpltxt (car link) link (cdr link)))
9245 (setq link (or link cpltxt)
9249 (if (and (interactive-p) link)
9252 (cons (list cpltxt link desc) org-stored-links))
9253 (message "Stored: %s" (or cpltxt link)))
9254 (org-make-link-string link desc))))
9256 (defun org-store-link-props (&rest plist)
9257 "Store link properties, extract names and addresses."
9274 (setq org-store-link-plist plist))
9276 (defun org-email-link-description (&optional fmt)
9277 "Return the description part of an email link.
9278 This takes information from `org-store-link-plist' and formats it
9279 according to FMT (default from `org-email-link-description-format')."
9280 (setq fmt (or fmt org-email-link-description-format))
9281 (let* ((p org-store-link-plist)
9322 (defun org-make-link (&rest strings)
9323 "Concatenate STRINGS, format resulting string with `org-link-format'."
9326 (defun org-make-link-string (link &optional description)
9327 "Make a link with brackets, consisting of LINK and DESCRIPTION."
9332 (when (equal (org-link-escape link) description)
9336 (not (equal link (org-link-escape link))))
9337 (setq description link))
9338 (concat "[[" (org-link-escape link) "]"
9342 (defconst org-link-escape-chars '(("[" . "%5B") ("]" . "%5D") (" " . "%20"))
9345 (defun org-link-escape (text)
9349 org-link-escape-chars "\\|")))
9353 (cdr (assoc (match-string 0 text) org-link-escape-chars))
9357 (defun org-link-unescape (text)
9358 "Reverse the action of `org-link-escape'."
9361 org-link-escape-chars "\\|")))
9365 (car (rassoc (match-string 0 text) org-link-escape-chars))
9407 (defun org-insert-link (&optional complete-file)
9408 "Insert a link. At the prompt, enter the link.
9410 Completion can be used to select a link previously stored with
9411 `org-store-link'. When the empty string is entered (i.e. if you just
9412 press RET at the prompt), the link defaults to the most recently
9413 stored link. As SPC triggers completion in the minibuffer, you need to
9417 be displayed in the buffer instead of the link.
9419 If there is already a link at point, this command will allow you to edit link
9422 With a \\[universal-argument] prefix, prompts for a file to link to. The file name can be
9425 subdirectory. Otherwise, the link will be the absolute path as
9431 `org-keep-stored-link-after-insertion'."
9437 link desc entry remove file)
9439 ((org-in-regexp org-bracket-link-regexp 1)
9440 ;; We do have a link at point, and we are going to edit it.
9443 (setq link (read-string "Link: "
9444 (org-link-unescape
9446 ((or (org-in-regexp org-angle-link-re)
9447 (org-in-regexp org-plain-link-re))
9448 ;; Convert to bracket link
9450 link (read-string "Link: "
9460 (setq link (org-make-link
9464 (setq link (org-make-link "file:" (match-string 1 file))))
9467 (setq link (org-make-link
9469 (t (setq link (org-make-link "file:" file))))))
9471 ;; Read link, with completion for stored links.
9472 ;; Fake a link history
9474 org-insert-link-history))
9475 (setq link (org-completing-read
9479 (setq entry (assoc link org-stored-links))
9480 (or entry (push link org-insert-link-history))
9482 (not org-keep-stored-link-after-insertion))
9483 (setq org-stored-links (delq (assoc link org-stored-links)
9485 (setq link (if entry (nth 1 entry) link)
9488 (if (string-match org-plain-link-re link)
9489 ;; URL-like link, normalize the use of angular brackets.
9490 (setq link (org-make-link (org-remove-angle-brackets link))))
9493 ;; If yes, simplify the link by using only the search option.
9495 (string-match "\\<file:\\(.+?\\)::\\([^>]+\\)" link))
9496 (let* ((path (match-string 1 link))
9498 (search (match-string 2 link)))
9502 (setq link search)))))
9504 ;; Check if we can/should use a relative path. If yes, simplify the link
9505 (when (string-match "\\<file:\\(.*\\)" link)
9506 (let* ((path (match-string 1 link))
9509 ((eq org-link-file-path-type 'absolute)
9511 ((eq org-link-file-path-type 'noabbrev)
9513 ((eq org-link-file-path-type 'relative)
9524 (setq link (concat "file:" path))))
9529 (insert (org-make-link-string link desc))))
9537 ;;; Opening/following a link
9538 (defvar org-link-search-failed nil)
9540 (defun org-next-link ()
9541 "Move forward to the next link.
9542 If the link is in hidden text, expose it."
9544 (when (and org-link-search-failed (eq this-command last-command))
9547 (setq org-link-search-failed nil)
9550 (a (assoc :link ct)))
9552 (if (re-search-forward org-any-link-re nil t)
9557 (setq org-link-search-failed t)
9558 (error "No further link found"))))
9560 (defun org-previous-link ()
9561 "Move backward to the previous link.
9562 If the link is in hidden text, expose it."
9564 (when (and org-link-search-failed (eq this-command last-command))
9567 (setq org-link-search-failed nil)
9570 (a (assoc :link ct)))
9572 (if (re-search-backward org-any-link-re nil t)
9577 (setq org-link-search-failed t)
9578 (error "No further link found"))))
9581 "Open file link or URL at mouse."
9587 "Open file link or URL at mouse."
9592 (defvar org-window-config-before-follow-link nil
9593 "The window configuration before following a link.
9596 (defvar org-open-link-marker (make-marker)
9600 "Open link at or after point.
9601 If there is no link at point, this function will search forward up to
9606 (move-marker org-open-link-marker (point))
9607 (setq org-window-config-before-follow-link (current-window-configuration))
9610 (org-follow-timestamp-link)
9611 (let (type path link line search (pos (point)))
9615 (when (org-in-regexp org-bracket-link-regexp)
9616 (setq link (org-link-unescape (org-match-string-no-properties 1)))
9617 (while (string-match " *\n *" link)
9618 (setq link (replace-match " " t t link)))
9619 (setq link (org-link-expand-abbrev link))
9620 (if (string-match org-link-re-with-space2 link)
9621 (setq type (match-string 1 link) path (match-string 2 link))
9622 (setq type "thisfile" path link))
9635 (when (or (org-in-regexp org-angle-link-re)
9636 (org-in-regexp org-plain-link-re))
9647 (error "No link found"))
9655 (let ((cmd (car org-link-mailto-program))
9656 (args (cdr org-link-mailto-program)) args1
9660 subject (org-link-escape (match-string 2 path))))
9680 (org-get-buffer-for-internal-link (current-buffer)))
9682 (org-link-search
9699 (org-follow-gnus-link path))
9702 (org-follow-bbdb-link path))
9705 (org-follow-info-link path))
9708 (let (group article)
9710 (error "Error in Gnus link"))
9711 (setq group (match-string 1 path)
9713 (org-follow-gnus-link group article)))
9718 (error "Error in VM link"))
9722 (org-follow-vm-link folder article in-emacs)))
9727 (error "Error in Wanderlust link"))
9730 (org-follow-wl-link folder article)))
9735 (error "Error in MHE link"))
9738 (org-follow-mhe-link folder article)))
9743 (error "Error in RMAIL link"))
9746 (org-follow-rmail-link folder article)))
9753 (if (or (not org-confirm-shell-link-function)
9754 (funcall org-confirm-shell-link-function
9765 (if (or (not org-confirm-elisp-link-function)
9766 (funcall org-confirm-elisp-link-function
9775 (move-marker org-open-link-marker nil))
9781 "List of functions to construct the right search string for a file link.
9783 which the link should point.
9790 when following the link. The search string will be part of the
9791 file link, given after a double colon, and `org-open-at-point'
9799 be used for this link when it gets inserted into an Org-mode
9800 buffer with \\[org-insert-link].")
9803 "List of functions to execute a file search triggered by a link.
9806 search string that was part of the file link, the part after the
9816 used to force opening a link in Emacs, so it may be good to only
9822 (set-window-configuration org-window-config-before-follow-link)")
9824 (defun org-link-search (s &optional type avoid-pos)
9825 "Search for a link search option.
9903 (and (org-mode-p) (org-show-context 'link-search))))
9905 (defun org-search-not-self (group &rest args)
9907 enclose the position of `org-open-link-marker'."
9908 (let ((m org-open-link-marker))
9911 (goto-char (match-end group))
9916 (or (not (org-in-regexp org-bracket-link-analytic-regexp 1))
9922 (defun org-get-buffer-for-internal-link (buffer)
9923 "Return a buffer to be used for displaying the link target of internal links."
9925 ((not org-display-internal-link-with-indirect-buffer)
9931 (t ; make a new indirect buffer for displaying the link
10011 (defun org-follow-timestamp-link ()
10027 (defun org-follow-bbdb-link (name)
10028 "Follow a BBDB link to NAME."
10051 (defun org-follow-info-link (name)
10052 "Follow an info file & node link to NAME."
10062 (defun org-follow-gnus-link (&optional group article)
10063 "Follow a Gnus link to GROUP and ARTICLE."
10065 (funcall (cdr (assq 'gnus org-link-frame-setup)))
10067 (cond ((and group article)
10068 (gnus-group-read-group 0 nil group)
10070 (group (gnus-group-jump-to-group group))))
10072 (defun org-follow-vm-link (&optional folder article readonly)
10073 "Follow a VM link to FOLDER and ARTICLE."
10092 (funcall (cdr (assq 'vm org-link-frame-setup)) folder readonly)
10107 (defun org-follow-wl-link (folder article)
10108 "Follow a Wanderlust link to FOLDER and ARTICLE."
10123 (defun org-follow-rmail-link (folder article)
10124 "Follow an RMAIL link to FOLDER and ARTICLE."
10223 (defun org-follow-mhe-link (folder article)
10224 "Follow an MHE link to FOLDER and ARTICLE.
10253 ;; Use the custom search meachnism to construct and use search strings for
10281 "Find the link search string S as a key for a database entry."
10290 ;; Use double prefix to indicate that any web link should be browsed
10292 ;; Restore the window configuration because we just use the web link
10293 (set-window-configuration org-window-config-before-follow-link)
10304 ;; end of Bibtex link setup
10363 (funcall (cdr (assq 'file org-link-frame-setup)) file)
10365 (if search (org-link-search search))))
10368 (t (funcall (cdr (assq 'file org-link-frame-setup)) file)))
10408 "Return a link to the current location as an annotation for remember.el.
10410 remember.el, then the annotations should include a link compatible with the
10411 conventions in Org-mode. This function returns such a link."
10412 (org-store-link nil))
10438 (plist-p (if org-store-link-plist t nil))
10453 (setq org-store-link-plist
10481 (and (setq x (plist-get org-store-link-plist
10525 (let ((annotation (plist-get org-store-link-plist :annotation))
10526 (initial (plist-get org-store-link-plist :initial)))
10814 (link (equal (char-before beg) ?\[))
10833 (link (append org-link-abbrev-alist-local
10834 org-link-abbrev-alist))
11949 does not link to the calendar and cannot be changed with the S-cursor keys.
12156 "Toggle the use of custom time stamp formats."
12158 (setq org-display-custom-times (not org-display-custom-times))
12159 (unless org-display-custom-times
12172 (if org-display-custom-times
12173 (message "Time stamps are overlayed with custom format")
12176 (defun org-display-custom-time (beg end)
12182 (tf (funcall (if with-hm 'cdr 'car) org-time-stamp-custom-formats))
12199 "Translate all timestamps in STRING to custom format.
12200 But do this only if the variable `org-display-custom-times' is set."
12201 (when org-display-custom-times
12214 org-time-stamp-custom-formats)
12443 org-display-custom-times
12994 (define-key org-agenda-mode-map "\C-c\C-o" 'org-agenda-open-link)
13065 (when org-agenda-mouse-1-follows-link
13066 (define-key org-agenda-keymap [follow-link] 'mouse-face))
13236 `org-agenda-custom-commands'. In particular, specific tags and TODO keyword
13247 (custom org-agenda-custom-commands)
13263 -------------------------------- C Configure custom agenda commands
13275 (while (setq entry (pop custom))
13330 ((setq entry (assoc (char-to-string c) org-agenda-custom-commands))
13355 (t (error "Invalid custom agenda command type %s" type))))
13357 ((equal c ?C) (customize-variable 'org-agenda-custom-commands))
13409 CMD-KEY is a string that is also a key in `org-agenda-custom-commands'.
13620 '(face org-link))))
14294 'org-agenda-diary-link t
15420 (defun org-agenda-open-link ()
15421 "Follow the link in the current line, if any."
15425 (if (or (re-search-forward org-bracket-link-regexp eol t)
15426 (re-search-forward org-angle-link-re eol t)
15427 (re-search-forward org-plain-link-re eol t))
15429 (error "No link in current line")))))
15476 "Check if the entry is a diary link and abort if yes."
15477 (if (get-text-property (point) 'org-agenda-diary-link)
16185 (cnt 0) txt link beg end re e checkdir
16206 link (concat block "[[file:" linkfile "]]" block))
16229 (insert link))))))))
16299 (:customtime . org-display-custom-times)
16313 (:convert-org-links . org-export-html-link-org-files-as-html)
16763 (let* ((re-radio (and org-target-link-regexp
16764 (concat "\\([^<]\\)\\(" org-target-link-regexp "\\)")))
16765 (re-plain-link (concat "\\([^[<]\\)" org-plain-link-re))
16766 (re-angle-link (concat "\\([^[]\\)" org-angle-link-re))
16851 ;; Expand link abbreviations
16853 (while (re-search-forward re-plain-link nil t)
16860 (while (re-search-forward re-angle-link nil t)
16867 (while (re-search-forward org-bracket-link-regexp nil t)
16871 (org-link-expand-abbrev (match-string 1)))
16891 (defun org-solidify-link-text (s &optional alist)
16892 "Take link text and make a safe target out of it."
16966 (custom-times org-display-custom-times)
17085 (while (string-match org-bracket-link-regexp line)
17089 (when custom-times
17394 (link-validate (plist-get opt-plist :link-validation-function))
17456 rpl path desc descp desc1 desc2 link
17570 (push (cons (org-solidify-link-text tg)
17635 (org-solidify-link-text (match-string 1 line))
17646 (org-solidify-link-text (match-string 1 line))
17659 (while (string-match org-bracket-link-analytic-regexp line start)
17679 (org-solidify-link-text path target-alist)
17687 (setq link (concat type ":" path))
17688 (setq rpl (concat "<a href=\"" link "\">" desc "</a>"))))
17691 (setq link (concat type ":" path))
17692 (setq rpl (concat "<a href=\"" link "\">" desc "</a>")))
17694 ;; FILE link
17703 (if (functionp link-validate)
17704 (funcall link-validate filename current-dir)
17708 (when (and org-export-html-link-org-files-as-html
17719 (org-solidify-link-text
17720 (org-link-unescape search)))))
17734 (save-match-data (org-link-unescape path))
18124 (while (setq m (string-match org-bracket-link-regexp string))
18159 delimiters. It will also define a single group which contains the
18382 (if (string-match org-bracket-link-regexp hd)
18637 (define-key org-mode-map "\C-c\C-x\C-n" 'org-next-link)
18638 (define-key org-mode-map "\C-c\C-x\C-p" 'org-previous-link)
18639 (define-key org-mode-map "\C-c\C-l" 'org-insert-link)
19234 :style radio :selected org-display-custom-times]
19261 ["Store Link (Global)" org-store-link t]
19262 ["Insert Link" org-insert-link t]
19265 ["Next link" org-next-link t]
19266 ["Previous link" org-previous-link t]
19269 (progn (org-add-to-invisibility-spec '(org-link)) (org-restart-font-lock))
19270 :style radio :selected (member '(org-link) buffer-invisibility-spec)]
19273 (org-remove-from-invisibility-spec '(org-link)) (org-restart-font-lock))
19274 :style radio :selected (not (member '(org-link) buffer-invisibility-spec))])
19348 `(["Browse Org group" org-customize t]
19382 :link on a hyperlink
19390 faces as a help to recognize the following contexts: :table-special, :link,
19402 (push (org-point-in-group p 1 :headline-stars) clist)
19403 (push (org-point-in-group p 2 :todo-keyword) clist)
19404 (push (org-point-in-group p 4 :tags) clist))
19408 (push (org-point-in-group p 0 :priority) clist)))
19411 (push (org-point-in-group p 2 :item-bullet) clist)
19416 (push (org-point-in-group p 0 :checkbox) clist)))
19431 (push (org-point-in-group p 0 :timestamp) clist))
19432 ((memq 'org-link faces)
19433 (push (list :link
19441 (push (org-point-in-group p 0 :target) clist)
19444 (push (org-point-in-group p 0 :radio-target) clist))
19479 (defun org-point-in-group (point group &optional context)
19480 "Check if POINT is in match-group GROUP.
19482 match. If the match group does ot exist or point is not inside it,
19484 (and (match-beginning group)
19485 (>= point (match-beginning group))
19486 (<= point (match-end group))
19488 (list context (match-beginning group) (match-end group))