Comment supprimer un lien hypertexte existant sans avoir à entrer et supprimer manuellement un groupe de crochets? Lorsque j'essaie de org-insert-linksupprimer le lien existant, je reçois Lisp error: (error "Empty link").
Je souhaite supprimer le lien et conserver le texte (c'est-à-dire la description).
Réponses:
La fonction elisp suivante prendra un lien autour du point actuel comme reconnu par org-bracket-link-regexp, donc soit [[Link][Description]]ou [[Link]], et le remplacera par Descriptiondans le premier cas ou Linkdans le second cas.
(defun afs/org-replace-link-by-link-description ()
"Replace an org link by its description or if empty its address"
(interactive)
(if (org-in-regexp org-bracket-link-regexp 1)
(let ((remove (list (match-beginning 0) (match-end 0)))
(description (if (match-end 3)
(org-match-string-no-properties 3)
(org-match-string-no-properties 1))))
(apply 'delete-region remove)
(insert description))))
J'ai essayé d'ajouter ceci à la réponse de @Andrew, mais c'était trop long pour un commentaire ...
J'ai vraiment aimé sa solution, sauf qu'elle a déplacé le curseur. (Techniquement, je suppose que cela a fait bouger le sujet. Quoi qu'il en soit ...) Heureusement, il a été facile d'ajouter save-excursionpour éviter cela:
(defun afs/org-replace-link-by-link-description ()
"Replace an org link by its description or if empty its address"
(interactive)
(if (org-in-regexp org-bracket-link-regexp 1)
(save-excursion
(let ((remove (list (match-beginning 0) (match-end 0)))
(description (if (match-end 3)
(org-match-string-no-properties 3)
(org-match-string-no-properties 1))))
(apply 'delete-region remove)
(insert description)))))
Appelez cette commande lorsque le point se trouve n'importe où après les premières [[crochets d'un lien organisationnel (ou n'importe où sur / après un lien organisationnel hyper-lié).
Un lien organisationnel sera supprimé s'il est au format [[LINK][DESCRIPTION]]ou [[LINK]]dans un org-modetampon; sinon rien ne se passera.
Pour des raisons de sécurité, le LIEN rejeté de org-link est enregistré kill-ringdans le cas où un besoin surviendrait d'utiliser ce lien ailleurs.
(defun my/org-delete-link ()
"Replace an org link of the format [[LINK][DESCRIPTION]] with DESCRIPTION.
If the link is of the format [[LINK]], delete the whole org link.
In both the cases, save the LINK to the kill-ring.
Execute this command while the point is on or after the hyper-linked org link."
(interactive)
(when (derived-mode-p 'org-mode)
(let ((search-invisible t) start end)
(save-excursion
(when (re-search-backward "\\[\\[" nil :noerror)
(when (re-search-forward "\\[\\[\\(.*?\\)\\(\\]\\[.*?\\)*\\]\\]" nil :noerror)
(setq start (match-beginning 0))
(setq end (match-end 0))
(kill-new (match-string-no-properties 1)) ; Save the link to kill-ring
(replace-regexp "\\[\\[.*?\\(\\]\\[\\(.*?\\)\\)*\\]\\]" "\\2" nil start end)))))))
Le plus rapide peut être de placer le curseur avant le lien, puis de taper C-M-space( mark-sexp), qui marquera tout le lien. Ensuite, supprimez-le en tapant un retour arrière (si vous utilisez delete-selection-mode) ou C-w.
Il existe une solution qui évite d'utiliser une analyse personnalisée avec des expressions rationnelles et utilise directement l' org-elementAPI intégrée :
(defun org-link-delete-link ()
"Remove the link part of an org-mode link at point and keep
only the description"
(interactive)
(let ((elem (org-element-context)))
(if (eq (car elem) 'link)
(let* ((content-begin (org-element-property :contents-begin elem))
(content-end (org-element-property :contents-end elem))
(link-begin (org-element-property :begin elem))
(link-end (org-element-property :end elem)))
(if (and content-begin content-end)
(let ((content (buffer-substring-no-properties content-begin content-end)))
(delete-region link-begin link-end)
(insert content)))))))
[[LINK]]liens de format d'organisation. J'ai entendu parler dematch-beginningetmatch-endde votre réponse.