वर्तमान में उपलब्ध चार उत्तरों की जाँच ( दो सुपर यूजर पर और दो इस सवाल पर), मैं निम्नलिखित मुद्दों को देखता हूं:
- स्टीफन और पेंग बाई द्वारा लोगों SuperUser पर (पंक्ति-दर-पंक्ति चलती वर्तमान खरोज को देखते हुए), वर्तमान स्तंभ स्थिति को बनाए रखना और माता पिता के लिए ऊपर जा रहा है को लागू नहीं करते
- दान से जवाब (फिर से खोज से आगे का उपयोग कर एक ही खरोज के साथ अगली पंक्ति को खोजने के लिए) कम खरोज के साथ लाइनों पर छोड़ देता है: जब कोई अगले भाई है यह पता नहीं है, और इसलिए कुछ करने के लिए स्थानांतरित कर सकते हैं कि एक भाई नहीं है लेकिन एक और माता-पिता का बच्चा ... शायद एक "चचेरा भाई"।
- गिल्स का जवाब (आउटलाइन-मोड का उपयोग करके) स्तंभ की स्थिति को बनाए नहीं रखता है और यह शून्य इंडेंटेशन ("शीर्ष-स्तरीय" लाइनों) के साथ काम नहीं करता है। इसके अलावा, इसके कोड को देखते हुए
outline.el
, यह मूल रूप outline-next-visible-heading
से हमारे मामले में वैसे भी (उपयोग करके ) लाइन-बाय-लाइन जा रहा है , जैसा कि (लगभग) सभी लाइनें रूपरेखा regexp से मेल खाती हैं और "हेडिंग" के रूप में गिना जाता है।
इसलिए, प्रत्येक के कुछ विचारों को एक साथ रखते हुए, मेरे पास निम्नलिखित हैं: खाली और अधिक-इंडेंटेड लाइनों को छोड़ते हुए, लाइन-बाय-लाइन को आगे बढ़ाएं। यदि आप समान इंडेंटेशन पर हैं तो यह अगले भाई-बहन है। मूल विचार इस प्रकार है:
(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
आपको वह मिलता है जिसकी आपको आवश्यकता है?