লিসপ কোডগুলি লেখার সময়, কখনও কখনও আমি নেস্টেড এক্সপ্রেশনটিতে গভীর এবং আমি যা চাই তা হ'ল সমস্ত অনুপস্থিত বন্ধনী বন্ধনী sertোকানো। কোনও মিল না পাওয়া প্যারেন না পাওয়া পর্যন্ত আমি এখনই সেগুলি সন্নিবেশ করছি তবে এটি খুব দক্ষ নয়।
অনুপস্থিত সমস্ত বন্ধনী toোকানোর জন্য কোনও আদেশ আছে কি?
এফওয়াইআই, আমি স্বয়ংক্রিয়ভাবে ম্যাচিং প্যারেন্স inোকাতে স্মার্টপ্যারেন ব্যবহার করছি। তবুও, মাঝে মাঝে আমার কেবল এটি করা দরকার।
উত্তর:
এখানে একটি ফাংশন যা সমস্ত অনাবৃত বন্ধনী এবং অন্যান্য ম্যাচিং জোড় বন্ধ করে। এটি ইমাসের সেক্সপ পার্সিংয়ের উপর নির্ভর করে। এটি কেবল একক-চরিত্রের মিলিত জোড়গুলিকে সমর্থন করে, তাই এর মতো কিছু {-বন্ধ করা হবে }, নয় -}। লিস্পের জন্য, এতে কিছু যায় আসে না।
(defun close-all-parentheses ()
(interactive "*")
(let ((closing nil))
(save-excursion
(while (condition-case nil
(progn
(backward-up-list)
(let ((syntax (syntax-after (point))))
(case (car syntax)
((4) (setq closing (cons (cdr syntax) closing)))
((7 8) (setq closing (cons (char-after (point)) closing)))))
t)
((scan-error) nil))))
(apply #'insert (nreverse closing))))
([-!-foo], আপনি ])বিন্দুতে sertোকান , বা )পরে foo]?
([-!-foo]আমি )পরে sert োকাতাম foo]। তবে আমি অবশ্যই ভুল হতে পারি। সম্ভবত @rlazo বিস্তারিত বলতে পারবেন।
আমি খুঁজে পেয়েছি যে আপনি যদি স্লাইম ইনস্টল করেন তবে এটি করার জন্য একটি আদেশ রয়েছে, যাকে বলে slime-close-all-parens-in-sexp
এটি করার একটি খুব আদিম (এবং প্রায় অবশ্যই ভুল) উপায় হবে
(defun buffer-needs-parens-fixing ()
(save-excursion
(condition-case nil
(check-parens)
(error (point)))))
(defun buffer-fix-parens ()
(interactive)
(while (buffer-needs-parens-fixing)
(insert ")")))
অন্যান্য সীমাবদ্ধতার মধ্যে এটি অনুমান করে যে সন্নিবেশ করা দরকার এমন সমস্ত প্রথম বন্ধনী হ'ল:
আমার ধারণা আপনার নির্দিষ্ট ব্যবহারের ক্ষেত্রে এটি যথেষ্ট পরিমাণে কার্যকর হতে পারে
]একটি সুপার রাইট পেরেন হিসাবে অভিনয় করেছিলেন, আপনার অনুরোধ অনুসারে সমস্ত উন্মুক্ত প্যারেন বন্ধ করে দিয়েছে।