Function: actypes::link-to-kotl

actypes::link-to-kotl is an interactive and byte-compiled function defined in klink.el.

Signature

(actypes::link-to-kotl LINK)

Documentation

Display at the top of another window the referent pointed to by LINK.

LINK may be of any of the following forms; the <> are optional:
  < [-!&] pathname >
  < pathname [#cell-ref] > or < pathname [, cell-ref] >
  < #cell-ref > or < @ cell-ref >
  < |viewspec >
  < :augment-viewspec >

See documentation for kcell:ref-to-id for valid cell-ref formats.

Key Bindings

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/kotl/klink.el
(defact link-to-kotl (link)
  "Display at the top of another window the referent pointed to by LINK.
LINK may be of any of the following forms; the <> are optional:
  < [-!&] pathname >
  < pathname [#cell-ref] > or < pathname [, cell-ref] >
  < #cell-ref > or < @ cell-ref >
  < |viewspec >
  < :augment-viewspec >

See documentation for `kcell:ref-to-id' for valid cell-ref formats."

  (interactive "sKotl link specifier: ")
  (unless (stringp link)
    (error "(link-to-kotl): Non-string link argument, %s" link))
  (cond
   ((or (string-match (format "\\`<?\\s-*[#@]\\s-*\\(%s\\)\\s-*>?\\'"
			      klink:cell-ref-regexp) link)
	(string-match (format "\\`<?\\s-*\\([|:]%s\\)\\s-*>?\\'"
			      klink:cell-ref-regexp) link))
    ;; < @ cell-ref > or < |viewspec > or < :augment-viewspec >
    (hact 'link-to-kcell nil (match-string 1 link)))
   ((and (string-match
	  ;; The path part of this next regexp must be non-greedy (+?)
	  ;; so that an anchored # expression if any is not considered
	  ;; part of the path.
	  (format "\\`<?\\s-*\\([^ \t\n\r\f,<>]*?\\)\\s-*\\([#,]\\s-*\\(%s\\)\\)?\\s-*>?\\'"
		  klink:cell-ref-regexp)
	  link)
	 (match-end 3))
    ;; < pathname, cell-ref > or < pathname#cell-ref > or < pathname >
    (hact 'link-to-kcell (match-string 1 link) (match-string 3 link)))
   ((string-match
     "\\`<?\\s-*\\(\\([-!&]\\)?\\s-*[^ \t\n\r\f,<>]+\\)\\s-*>?\\'" link)
    ;; < [-!&] pathname >
    (hpath:find (match-string 1 link)))
   (t (error "(link-to-kotl): Invalid link specifier, %s" link))))