😡 🍪 🏴󠁧󠁢󠁥󠁮󠁧󠁿 आम लिस्प पर उदाहरण साइट ⏭️ ♈️ 🔊

परिचय

यह आलेख सामान्य वेब विकास कार्यों के लिए सामान्य लिस्प सुविधाओं के अनुप्रयोग को चित्रित करने के लिए लिखा गया है।

मैं यह दिखाने की कोशिश करूंगा कि वेब प्रोग्रामिंग में उपयोग की जाने वाली मुख्य चीजें लिस्प - टेम्पलेट, रूटिंग और कैशिंग पर कैसे लागू की जाती हैं। मैंने मैक्रों के लिए भी थोड़ी जगह छोड़ दी।

लेख भारी शैक्षिक है, हालांकि यह पूरी तरह से काम करने वाली वेबसाइट है - rigidus.ru

टेम्पलेट्स और उनका संकलन

{namespace tpl} {template root} <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">{\n} <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">{\n} <head>{\n} <title>{$headtitle}</title>{\n} <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />{\n} <link rel="stylesheet" type="text/css" media="screen" href="/style.css" />{\n} <link rel="Shortcut Icon" type="image/x-icon" href="/favicon.ico" />{\n} </head>{\n} <body id="top">{\n} {$content | noAutoescape}{\n} </body>{\n} </html>{\n} {/template}

CL-CLOSURE-TEMPLATE लाइब्रेरी का उपयोग करते हुए, इस सरल टेम्पलेट को tpl पैकेज में रूट फ़ंक्शन के मशीन कोड में फ्लाई पर संकलित किया जाता है। इस प्रकार, टेम्पलेट पर डेटा लागू करना संकलित फ़ंक्शन के लिए एक कॉल है:

 (tpl:root (list :headtitle " " :content "Hello world"))

"हैलो वर्ल्ड" के बजाय, आप एक फ़ंक्शन कॉल को प्रतिस्थापित कर सकते हैं जिसमें एक और टेम्पलेट संकलित किया गया है - उदाहरण के लिए, "आधार" टेम्पलेट, जो साइट के लिए एक न्यूनतम ग्रिड प्रदान करता है:

 {template base} <div id="center"> <div class="col1 left"> <a id="logo" href="index.html"> <img src="http://www.gravatar.com/avatar/d8a986606b9d5e4769ba062779e95d9f?s=45" style="border: 1px solid #7F7F7F"/> </a> <ul id="nav"> {foreach $elt in $navpoints} {call navelt data="$elt" /} {/foreach} </ul> </div> {$content |noAutoescape} <div class="clear">.</div> </div> <div id="footer"> <p> <a href="/about">About</a> | <a href="/contacts">Contacts</a> </p> </div> {/template}

अब, परिचयात्मक लेख habrahabr.ru/blogs/webdev/111365 और हमारे हौसले से बनाए गए टेम्पलेट के उदाहरण का उपयोग करके, हम इस तरह से एक पृष्ठ से एक साइट के लिए अनुरोध-प्रेषण लिख सकते हैं:

 (defun request-dispatcher (request) (tpl:root (list :headtitle "My home page" :content (tpl:base (list :navpoints ..-.. :content ..-..)))))

रेस्टास रूट

RESTAS पुस्तकालय हमें प्रेषणकर्ताओं के आकर्षक लेखन से मुक्त करता है।

अब हमारे द्वारा निर्धारित मार्गों (मार्गों) के आधार पर डिस्पैचर बनाया जाएगा, जिसे हम इस प्रकार परिभाषित करते हैं:

 (restas:define-route main ("") (tpl:main (list :headtitle "My main page" :content "Hello! <a href=\"/articles\">Articles</a>"))) (restas:define-route css ("/css/:cssfile") (hunchentoot:handle-static-file (format nil "~a/css/~a" *base-dir* cssfile)))

- यह क्या बकवास है? - एक परिष्कृत वेब डेवलपर से पूछें। - क्या मुझे प्रत्येक css- फाइल के लिए अपना रास्ता पूछना चाहिए?

"बिलकुल नहीं!" - मैं जवाब दूंगा। आप एक लंबोदर निर्दिष्ट कर सकते हैं: आवश्यकता, जो तय करेगा कि मार्ग उपयुक्त है या नहीं। यहां वह अद्यतन कोड दिया गया है जो फ़ाइल को साइट निर्देशिका में डिस्क पर खोजने पर देता है:

 (restas:define-route static ("/:staticfile" :requirement (lambda () (let ((request-file (pathname (format nil "~a/~a" *base-dir* (hunchentoot:request-uri hunchentoot:*request*)))) (files (directory (format nil "~a/*.*" *base-dir*)))) (not (null (find request-file files :test #'equal)))))) (hunchentoot:handle-static-file (format nil "~a/~a" *base-dir* staticfile)))

यहां हमने मुख्य पृष्ठ के लिए और सीएसएस-फाइलों की वापसी के लिए मार्गों को परिभाषित किया है - जैसा कि आप देख सकते हैं, आप उपयोग कर सकते हैं :: वाइल्डकार्ड

मैक्रोज़ का उपयोग करना

मैं ओआरजी-मोड, एक सुविधाजनक इमैक्स मोड का उपयोग करके साइट के लिए लेख तैयार करता हूं जो लेआउट की आसानी (जैसे कि विकी) और विभिन्न सुविधाजनक टूल जैसे कि कोलैपिंग सेक्शन को जोड़ती है। मैंने एक org-to-html फ़ंक्शन लिखा है,

जो मैं ऑर्ग-मोड प्रारूप में लेख के पाठ को प्रसारित करता हूं, और यह स्वचालित रूप से मेरे लिए html बनाता है हेडर से लेख में सीधे निर्दिष्ट मेटाडेटा से निकाला जाता है, और अनुभागों और उपखंडों के बारे में जानकारी भी देता है।

इस फ़ंक्शन के बाद मेरी फ़ाइल संसाधित होती है, मुझे कुछ हेडर बदलने और कॉल को सरल रखने की आवश्यकता हो सकती है, मैं डिफ़ॉल्ट पृष्ठ मैक्रो का उपयोग करता हूं:

 (defmacro default-page (menu file-path &optional (body nil)) `(let ((menu-memo ,menu)) (multiple-value-bind (content sections directives) (org-to-html (alexandria:read-file-into-string ,file-path)) (let ((title (getf directives :title))) ,body (page title menu-memo (tpl:default (list :title title :navpoints menu-memo :sections (loop :for i :from 1 :for section :in sections :collect (list :anchor (format nil "anchor-~a" i) :level (format nil "level-~a" (car section)) :title (cadr section))) :content content)))))))

अब मैं न केवल क्लाइंट कोड में जटिल कॉल से छुटकारा पा सकता हूं, बल्कि डिफ़ॉल्ट पेज के अंदर किसी भी कोड का "इंजेक्शन" भी बना सकता हूं, उदाहरण के लिए:

 (restas:define-route about ("/about") (default-page (menu) (base-path "about.org") ;;     -  (let ((cnt (length sections))) ;;      e (setf title (format nil "~a — ~a " title cnt)))))

अगले भाग में, यह दृष्टिकोण अधिक सार्थक रूप से उपयोग किया जाता है।

कैशिंग

मेरे लेख मेटा-इनफ़ॉर्मेशन वाली फ़ाइलों में हैं: शीर्षक और श्रेणियां। "/ लेख" पृष्ठ का निर्माण करने के लिए, मैं फ़ाइलों के माध्यम से जाता हूं, जो समय ले सकता है और सिस्टम को लोड कर सकता है। हालाँकि, यह डेटा कर सकता है

बंद में याद रखें, जो यह कोड करता है:

 (let ((memo)) (restas:define-route articles ("/articles") (when (null memo) (setf memo (default-page (menu) (base-path "articles.org") (setf content ;;  ,    ;;   (    ) )))) memo))

यह स्पष्ट है कि यदि आप चाहते हैं कि कैश समय के साथ पुराना हो जाए, तो इसे लागू करना भी काफी आसान है। हालांकि मेरे लिए स्लम में जाना आसान है, इस कोड की अंतिम पंक्ति पर Ctrl + X, Ctrl + E करें और इसे फिर से निष्पादित किया जाएगा, जिससे कैश को शून्य किया जा सकेगा। एक नया लेख अपलोड करना (क्या होता है)

बहुत बार) मैं ऐसा करता हूं - यह तुरंत कुछ और कार्यक्षमता जोड़ने का एक अच्छा कारण है।

विवरण में रुचि रखने वालों के लिए:

मैंने github.com/rigidus/rigidus.ru पर स्रोत कोड पोस्ट किया

और साइट ही rigidus.ru पर है

आइए देखें कि वह किस तरह से हब्बी के साथ मुकाबला करता है।

आम लिस्प पर उदाहरण साइट

परिचय

टेम्पलेट्स और उनका संकलन

रेस्टास रूट

मैक्रोज़ का उपयोग करना

कैशिंग

More articles: