大模型时代我们怎么玩Emacs：4. Org 文件里的链接和反链改造

  ;; 为了实现在存储位置时带上文件和标题行的信息，进行了如下的魔改
  (defun org-super-links-store-link (&optional GOTO KEYS)
    "Store a point to the register for use in function `org-super-links-insert-link'.
This is primarily intended to be called before `org-capture', but
could possibly even be used to replace `org-store-link' IF
function `org-super-links-insert-link' is used to replace `org-insert-link'.  This
has not been thoroughly tested outside of links to/form org files.
GOTO and KEYS are unused."
    (interactive "P")
    (ignore GOTO)
    (ignore KEYS)
    (save-excursion
      (let ((c1 (make-marker))
            (headline (org-get-heading t t t t)))  ;; 获取标题行
        (set-marker c1 (point) (current-buffer))
        (set-register ?^ (cons c1 headline))  ;; 存储标记和标题行
        (message "Link copied with headline: %s" headline))))

  (defun org-super-links-insert-link ()
    "Insert a super link from the register."
    (interactive)
    (let* ((target (get-register ?^)))
      (if target
          (let ((marker (car target))
                (headline (cdr target)))
            (org-super-links--insert-link marker headline)
            (set-register ?^ nil))
        (message "No link to insert!"))))

  (defun org-super-links--insert-link (target headline &optional no-forward)
    "Insert link to marker TARGET at current `point`, and create backlink to here.
Include HEADLINE in the link.
If NO-FORWARD is non-nil skip creating the forward link.  Currently only used when converting a link."
    (let* ((source (point-marker))
           (source-headline (org-get-heading t t t t))
           (source-link (org-super-links-links-action source 'org-super-links-pre-link-hook))
           (target-link (org-super-links-links-action target 'org-super-links-pre-backlink-hook))
           (source-formatted-link (org-super-links-link-builder source-link))
           (target-formatted-link (org-super-links-link-builder target-link))
           (source-file (file-relative-name (buffer-file-name (marker-buffer source))
                                            (file-name-directory (buffer-file-name (marker-buffer target)))))
           (target-file (buffer-file-name (marker-buffer target)))
           (source-link (format "file:%s::%s" source-file source-headline))
           (target-link (format "file:%s::%s" target-file headline)))
      (with-current-buffer (marker-buffer target)
        (save-excursion
          (goto-char (marker-position target))
          (when (derived-mode-p 'org-mode)
            (org-super-links-insert-backlink source-link source-headline))))
      (unless no-forward
        (with-current-buffer (marker-buffer source)
          (save-excursion
            (goto-char (marker-position source))
            (if (org-at-heading-p)
                (org-super-links-insert-relatedlink target-link headline)
              (org-super-links-insert-inline-link target-link headline source-headline)))))))

  (defun org-super-links-insert-inline-link (target-link headline source-headline)
    "Insert TARGET-LINK with HEADLINE at point and add related drawer at current heading."
    ;; (insert (org-super-links-link-prefix))
    (org-insert-link nil target-link headline)
    (insert (org-super-links-link-postfix))
    (org-back-to-heading)
    (org-super-links-insert-relatedlink target-link headline))

  (defun org-super-links-insert-backlink (link desc)
    "Insert backlink to LINK with DESC.
Where the backlink is placed is determined by the variable `org-super-links-backlink-into-drawer`."
    (let* ((org-log-into-drawer (org-super-links-backlink-into-drawer))
           (description (org-super-links-default-description-formatter link desc))
           (beg (org-log-beginning t)))
      (goto-char beg)
      (insert (org-super-links-backlink-prefix))
      (insert (org-link-make-string link description))
      (insert (org-super-links-backlink-postfix))
      (org-indent-region beg (point))))

  (defun org-super-links-insert-relatedlink (link desc)
    "Insert LINK with DESC into related drawer."
    (let* ((org-log-into-drawer (org-super-links-related-into-drawer))
           (drawer-name (or org-log-into-drawer "RELATED"))
           (beg (org-log-beginning t)))
      (goto-char beg)
      (unless (org-at-heading-p)
        (org-back-to-heading t))
      (org-narrow-to-subtree)
      (let ((drawer-beg (re-search-forward (format ":%s:" drawer-name) nil t)))
        (if drawer-beg
            (progn
              (goto-char drawer-beg)
              (forward-line)
              (insert (org-super-links-link-prefix))
              (org-insert-link nil link desc)
              (insert (org-super-links-link-postfix) "\n")
              (org-indent-region drawer-beg (point)))
          (goto-char (point-max))
          (insert (format ":%s:\n" drawer-name))
          (insert (org-super-links-link-prefix))
          (org-insert-link nil link desc)
          (insert (org-super-links-link-postfix) "\n")
          (insert (format ":%s:\n" "END"))
          (org-indent-region beg (point))))
      (widen)))

  (defun org-super-links-related-into-drawer ()
    "Name of the related drawer, as a string, or nil.
This is the value of `org-super-links-related-into-drawer`.  However, if the
current entry has or inherits a RELATED_INTO_DRAWER property, it will
be used instead of the default value."
    (let ((p (org-entry-get nil "RELATED_INTO_DRAWER" 'inherit t)))
      (cond ((equal p "nil") nil)
            ((equal p "t") org-super-links-related-drawer-default-name)
            ((stringp p) p)
            (p org-super-links-related-drawer-default-name)
            ((stringp org-super-links-related-into-drawer) org-super-links-related-into-drawer)
            (org-super-links-related-into-drawer org-super-links-related-drawer-default-name))))