मान लीजिए कि मेरे पास एक फ़ंक्शन है जो निम्नलिखित की तरह दिखता है (जैसा कि अक्सर होता है जब क्विक आउटपुट प्रिंट करते हैं)।
(defun my-example-function () (let ((a (do-something)) (b (do-something))) (setq someone me) (with-current-buffer b (do-that (or this (and that those))) (format "%s" a))))
मैं एक ऐसी आज्ञा चाहूंगा जो कि मानव को कुछ लिख सके, जैसे कि निम्नलिखित।
(defun my-example-function ()
(let ((a (do-something))
(b (do-something)))
(setq someone me)
(with-current-buffer b
(do-that (or this (and that those)))
(format "%s" a))))
मैं समझता हूं कि एक तरह से एक से अधिक तरीके हैं, जो कि एक प्रकार का क्विक कोड है , और अलग-अलग इंसान इसे अलग तरीके से करते हैं। इसके अलावा, मैं समझता हूं कि यह कुछ व्यक्तिपरक है। लेकिन नियमों का एक सेट के साथ आना काफी आसान होना चाहिए जो कोड में परिणाम देता है जो कम से कम सभ्य है।
मैंने वास्तव में कुछ समय पहले खुद ऐसा करने के बारे में सोचा था, लेकिन मुझे लगा कि पहिए को फिर से लगाने से पहले यह पूछना बेहतर होगा।
ध्यान दें, मुझे pp फ़ंक्शन के बारे में पता है , लेकिन यह वहाँ नहीं मिलता है:
(defun my-example-function nil
(let
((a
(do-something))
(b
(do-something)))
(setq someone me)
(with-current-buffer b
(do-that
(or this
(and that those)))
(format "%s" a))))
pp
।