ফিলিংয়ের ম্যানুয়াল নোড অনুসারে , বেশ কয়েকটি পূরণের ফাংশন একটি alচ্ছিক JUSTIFY যুক্তি গ্রহণ করে যা আপনি ব্যবহার করতে পারেন। সুতরাং, উদাহরণস্বরূপ, সঠিক ন্যায্যতা সহ একটি অনুচ্ছেদ পূরণ করতে, আপনি ব্যবহার করতে পারেন (fill-paragraph 'right)
।
আপনি (justify-current-line 'right)
একটি একক লাইনের জন্যও ব্যবহার করতে পারেন ।
আপনি যদি এই বিকল্পগুলি প্রচুর ব্যবহার করার পরিকল্পনা করেন তবে আপনি সেগুলি নীচের মতো ফাংশনে আবদ্ধ করতে পারেন এবং তারপরে এই ফাংশনগুলিকে আপনার পছন্দের কীগুলিতে আবদ্ধ করতে পারেন:
(defun right-justify-current-line ()
"Right-justify this line."
(interactive)
(justify-current-line 'right))
(defun right-fill-paragraph ()
"Fill paragraph with right justification."
(interactive)
(fill-paragraph 'right))
এখানে একটি ফাংশন যা আপনি প্রতিস্থাপন হিসাবে ড্রপ করতে পারেন fill-paragraph
। বিভিন্ন উপসর্গ সহ, এটি আপনাকে সিদ্ধান্ত নিতে পারে যে আপনি যে অনুচ্ছেদে পূরণ করছেন তাতে কোন ধরণের ন্যায়সঙ্গততা ব্যবহার করতে হবে:
(defun fill-paragraph-dwim (&optional arg)
"Fills the paragraph as normal with no prefix. With C-u,
right-justify. With C-u C-u, center-justify. With C-u C-u C-u,
full-justify."
(interactive "p")
(fill-paragraph (cond ((= arg 4) 'right)
((= arg 16) 'center)
((= arg 64) 'full))))
আপনি যখন ডান সারিবদ্ধ হওয়ার সময় আপনি যদি তা পূরণ করতে চান না , আপনি নীচের ফাংশনটি ব্যবহার করতে পারেন, যা সরাসরি center-region
একক-লাইন পরিবর্তনের সাথে ফাংশন থেকে সরাসরি আঁকানো থাকে এটি পরিবর্তে ডানদিকে সাজানোর জন্য:
(defun right-region (from to)
"Right-justify each nonblank line starting in the region."
(interactive "r")
(if (> from to)
(let ((tem to))
(setq to from from tem)))
(save-excursion
(save-restriction
(narrow-to-region from to)
(goto-char from)
(while (not (eobp))
(or (save-excursion (skip-chars-forward " \t") (eolp))
;; (center-line)) ; this was the original code
(justify-current-line 'right)) ; this is the new code
(forward-line 1)))))