আমি কীভাবে কোনও বিদ্যমান হাইপারলিংক সরিয়ে ফেলব না এবং নিজেই বন্ধনীগুলির একগুচ্ছ মুছে ফেলতে পারি? আমি যখন org-insert-linkবিদ্যমান লিঙ্কটি সরিয়ে দেওয়ার চেষ্টা করি এবং পাই তখনই পাই Lisp error: (error "Empty link")।
আমি লিঙ্কটি সরাতে এবং পাঠ্যটি (যেমন বিবরণ) সংরক্ষণ করতে চাই।
উত্তর:
নীচের এলিজপ ফাংশনটি বর্তমান পয়েন্টের চারপাশে একটি লিঙ্ক গ্রহণ করবে যেমনটি স্বীকৃত org-bracket-link-regexp, তাই হয় [[Link][Description]]বা হয় [[Link]], এবং Descriptionএটি প্রথম ক্ষেত্রে বা Linkদ্বিতীয় ক্ষেত্রে এটিকে প্রতিস্থাপন করে ।
(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))))
আমি @ অ্যান্ড্রু থেকে উত্তরে এটি যুক্ত করার চেষ্টা করেছি, তবে কোনও মন্তব্যের জন্য এটি খুব দীর্ঘ ছিল ...
আমি তার সমাধানটি সত্যিই পছন্দ করেছি, এটি বাদ দিয়ে এটি কার্সারটি সরিয়ে নিয়েছিল। (প্রযুক্তিগতভাবে আমি অনুমান করি যে এটি পয়েন্টটি সরিয়ে নিয়েছে। যাইহোক ...) ভাগ্যক্রমে, save-excursionএড়াতে এটি যুক্ত করা সহজ ছিল :
(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)))))
[[Org- লিঙ্কের প্রথম বন্ধনীগুলির পরে (বা হাইপার-লিঙ্কযুক্ত org-লিঙ্কের পরে / কোথাও) পয়েন্টটি কোথাও থাকলে এই কমান্ডটি কল করুন ।
যদি এটা বিন্যাস হল একটি সংস্থা লিংক মুছে ফেলা হবে [[LINK][DESCRIPTION]]বা [[LINK]]একটি ইন org-modeবাফার; অন্যথায় কিছুই হবে না।
সুরক্ষার জন্য, আরগ-লিঙ্ক থেকে বাতিল kill-ringহওয়া লিঙ্কটি অন্য কোনও জায়গায় সেই লিঙ্কটি ব্যবহার করার প্রয়োজন দেখা দিলে সেভ করা হয়।
(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)))))))
একটি সমাধান রয়েছে যা রেজিজেসগুলির সাথে কাস্টম পার্সিং ব্যবহার এড়ানো এবং বিল্ট-ইন org-elementএপিআই সরাসরি ব্যবহার করে :
(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)))))))
লিঙ্কের আগে কার্সারটি রাখা দ্রুততম হতে পারে, তারপরে C-M-space( mark-sexp) টাইপ করুন যা পুরো লিঙ্কটি চিহ্নিত করবে। তারপরে এটি একটি ব্যাকস্পেস টাইপ করে মুছে ফেলুন (যদি আপনি ব্যবহার করেন delete-selection-mode) বা C-w।
এই খুব দ্রুত এবং খুব নোংরা ম্যাক্রো হ'ল এক উপায়, সর্বোত্তম উপায় নয়:
(fset 'my/org-remove-link
[?\M-a delete delete ?\M-x ?z ?a ?p ?- ?t ?o ?- ?c ?h ?a ?r return ?\[ ?\C-e backspace backspace ?\C-x])
[[LINK]]Org লিঙ্কগুলিকে সমর্থন করার জন্য আমি আমার উত্তর আপডেট করেছি । আমি আপনার উত্তর সম্পর্কেmatch-beginningএবং শিখেছিmatch-end।