বর্তমানে উপলব্ধ চারটি উত্তর ( সুপার ব্যবহারকারীর দুটি এবং এই প্রশ্নে দুটি) পরীক্ষা করে দেখুন, আমি নিম্নলিখিত বিষয়গুলি দেখছি:
- স্টিফান এবং পেং বাই দ্বারা বেশী superuser উপর (লাইন বাই লাইন চলন্ত বর্তমান খাঁজ দিকে তাকিয়ে আছে,), বর্তমান কলাম অবস্থান ধারনকারী এবং পিতা বা মাতা পর্যন্ত চলন্ত বাস্তবায়ন না
- Dan দ্বারা উত্তর (পুনরায়-সন্ধান এগিয়ে ব্যবহার করে একই খাঁজ সঙ্গে পরের লাইনে এটি) কম খাঁজ সঙ্গে লাইন ধরে অগ্রাহ্য যখন কোন পরবর্তী সহোদর এটা জানে না, এবং সেইজন্য কিছু স্থানান্তর করতে পারেন যে একটি সহোদর নয় তবে অন্য পিতামাতার একটি সন্তান ... সম্ভবত পরবর্তী "কাজিন"।
- গিলেজ দ্বারা উত্তর (রূপরেখা-মোড ব্যবহার করে) কলাম অবস্থান অক্ষুণ্ন রাখতে না এবং এটা শূন্য খাঁজ ( "টপ লেভেল" লাইন) সঙ্গে লাইনের কাজ করে না। এছাড়াও, এর কোডটি দেখে
outline.el
, এটিও মূলত outline-next-visible-heading
আমাদের ক্ষেত্রে যেভাবেই লাইন-বাই-লাইনে চলছে (ব্যবহার করা হচ্ছে ), (প্রায়) সমস্ত লাইনই রূপরেখার সাথে মিলবে এবং "শিরোনাম" হিসাবে গণনা করবে।
সুতরাং, প্রত্যেকটির কয়েকটি ধারণাকে একসাথে রাখলে আমার কাছে নিম্নলিখিতগুলি রয়েছে: খালি এবং আরও ইনডেন্টেড রেখাগুলি ছাড়িয়ে লাইন-লাইন এগিয়ে যান move আপনি যদি সমান ইন্ডেন্টেশন এ থাকেন তবে এটি পরবর্তী ভাইবোন। প্রাথমিক ধারণাটি এরকম দেখাচ্ছে:
(defun indentation-get-next-sibling-line ()
"The line number of the next sibling, or nil if there isn't any."
(let ((wanted-indentation (current-indentation)))
(save-excursion
(while (and (zerop (forward-line)) ; forward-line returns 0 on success
(or (eolp) ; Skip past blank lines and more-indented lines
(> (current-indentation) wanted-indentation))))
;; Now we can't go further. Which case is it?
(if (and (not (eobp)) (= (current-indentation) wanted-indentation))
(line-number-at-pos)
nil))))
(defun indentation-forward-to-next-sibling ()
(interactive)
(let ((saved-column (current-column)))
(forward-line (- (indentation-get-next-sibling-line) (line-number-at-pos)))
(move-to-column saved-column)))
যথাযথভাবে সাধারণীকরণ করা (সামনের / পিছিয়ে / উপরে / নিচে), আমি যা ব্যবহার করছি তা বর্তমানে নীচের মত দেখাচ্ছে:
(defun indentation-get-next-good-line (direction skip good)
"Moving in direction `direction', and skipping over blank lines and lines that
satisfy relation `skip' between their indentation and the original indentation,
finds the first line whose indentation satisfies predicate `good'."
(let ((starting-indentation (current-indentation))
(lines-moved direction))
(save-excursion
(while (and (zerop (forward-line direction))
(or (eolp) ; Skip past blank lines and other skip lines
(funcall skip (current-indentation) starting-indentation)))
(setq lines-moved (+ lines-moved direction)))
;; Now we can't go further. Which case is it?
(if (and
(not (eobp))
(not (bobp))
(funcall good (current-indentation) starting-indentation))
lines-moved
nil))))
(defun indentation-get-next-sibling-line ()
"The line number of the next sibling, if any."
(indentation-get-next-good-line 1 '> '=))
(defun indentation-get-previous-sibling-line ()
"The line number of the previous sibling, if any"
(indentation-get-next-good-line -1 '> '=))
(defun indentation-get-parent-line ()
"The line number of the parent, if any."
(indentation-get-next-good-line -1 '>= '<))
(defun indentation-get-child-line ()
"The line number of the first child, if any."
(indentation-get-next-good-line +1 'ignore '>))
(defun indentation-move-to-line (func preserve-column name)
"Move the number of lines given by func. If not possible, use `name' to say so."
(let ((saved-column (current-column))
(lines-to-move-by (funcall func)))
(if lines-to-move-by
(progn
(forward-line lines-to-move-by)
(move-to-column (if preserve-column
saved-column
(current-indentation))))
(message "No %s to move to." name))))
(defun indentation-forward-to-next-sibling ()
"Move to the next sibling if any, retaining column position."
(interactive "@")
(indentation-move-to-line 'indentation-get-next-sibling-line t "next sibling"))
(defun indentation-backward-to-previous-sibling ()
"Move to the previous sibling if any, retaining column position."
(interactive "@")
(indentation-move-to-line 'indentation-get-previous-sibling-line t "previous sibling"))
(defun indentation-up-to-parent ()
"Move to the parent line if any."
(interactive "@")
(indentation-move-to-line 'indentation-get-parent-line nil "parent"))
(defun indentation-down-to-child ()
"Move to the first child line if any."
(interactive "@")
(indentation-move-to-line 'indentation-get-child-line nil "child"))
আরও কিছু কার্যকারিতা এখনও আকাঙ্ক্ষিত রয়েছে, এবং এর outline.el
কয়েকটি দেখে এবং এর পুনরায় প্রয়োগ করা সাহায্য করতে পারে তবে আমার উদ্দেশ্যে এখনই আমি এতে সন্তুষ্ট।
set-selective-display
যা প্রয়োজন তার কাছাকাছি পৌঁছে দেবেন?