both """ should be " \ "" without spaces in betw
राज
npub1ww6h...w5e6
शास्त्र तन्त्र भाषा इतिहास।
;;; wget.el
(defun wgetdl (url)
(interactive (list (read-string "wget url: ")))
(async-shell-command (concat "wget --content-disposition --restrict-file-names=ascii -P ~/dl " "\"" url "\"") (generate-new-buffer-name "wgetdl") "*Messages*"))
(global-set-key (kbd "C-c w") 'wgetdl)
(define-key elfeed-show-mode-map (kbd "W") (lambda () (interactive) (kill-new (shr-url-at-point nil)) (message "downloading...") (wgetdl (car kill-ring))))
अनुवाद कार्य में बहुत उपयोगी।
;; emacs lisp interface to sdcv for looking up words in local stardict format dictionaries
;; requires: sdcv and stardict data files installed and running
;; usage: M-x sdict or C-c d and enter or paste search word. spacebar to scroll. q to exit buffer. period for new search.
;; based on github jamescherti/quick-sdcv.el
;;; sdict.el
(defconst sdict-outbuf "*sdict*")
(defconst sdict-errbuf "*Messages*")
(defconst sdict-cmd "sdcv --non-interactive --utf8-output ")
(defun sdict (word)
(interactive (list (read-string "dict search: ")))
(get-buffer-create sdict-outbuf)
(with-current-buffer sdict-outbuf
(let ((inhibit-read-only t))
(erase-buffer)
(shell-command (concat sdict-cmd word) sdict-outbuf sdict-errbuf))
(special-mode)
(local-set-key (kbd ".") 'sdict)
(switch-to-buffer sdict-outbuf)))
(provide 'sdict)
;; (require 'sdict)
;; (global-set-key (kbd "C-c d") 'sdict)
#tunestr #introfuture #modtune
The Mod Archive v4.0b - A distinctive collection of modules - intro(future) - introfuture.mod (MOD)
गैलस्कीम से भी बहुत सरल ईलिस्प।
;; ईलिस्प क्रमलेखन
(defalias 'उपनाम 'defalias)
(उपनाम 'कार्य 'defun)
(उपनाम 'विकारी 'defvar)
(उपनाम 'सहविकारी 'let*)
(उपनाम 'अविकारी 'defconst)
(उपनाम 'स्थापय 'setq)
(उपनाम 'यदि 'if)
(उपनाम 'अथवा 'or)
(उपनाम 'अथच 'and)
(उपनाम 'यावत 'while)
(उपनाम 'यथावत 'quote)
(उपनाम 'यथाक्रम 'progn)
(उपनाम 'यथावस्था 'cond)
(उपनाम 'अन्तरक्रियाशील 'interactive)
"For all its hallowed status it relies on people, mere mortals of flesh and blood, to do its will."
the Guardian
I used to revere the great experiment that is the United States. After Trump, I’m not so sure | Jonathan Freedland
On paper, the US constitution is a thing of beauty. But the would-be emperor in Washington has revealed its great weakness, says Guardian columnist...
"This year's profit will exceed the cumulative profit generated over the past 40 years since we entered the semiconductor business"
Slashdot
गूगिल जेमिनै से॥ यह Emacs Lisp कोड Elfeed के डेटाबेस को ऑप्टिमाइज़ (गति तेज़) करने के लिए है। यह हर फीड से केवल शुरुआती 100 नए आर्टिकल ही सेव करता है।
यहाँ कोड के प्रत्येक हिस्से का विस्तृत काम दिया गया है:
## 1. सीमा तय करना (Define Limit)
(defvar my/elfeed-nmax 100)
* यह एक वेरिएबल my/elfeed-nmax बनाता है।
* इसकी वैल्यू 100 सेट की गई है।
* यह अधिकतम आर्टिकल्स की संख्या है जिन्हें आप एक बार में सेव करना चाहते हैं।
## 2. फिल्टर फंक्शन बनाना (Create Filter Function)
(defun my/elfeed-db-add (args)
(list (seq-take (nth 0 args) my/elfeed-nmax)))
* यह my/elfeed-db-add नाम का एक कस्टम फंक्शन बनाता है।
* args में उन नए आर्टिकल्स की लिस्ट होती है जिन्हें Elfeed डेटाबेस में जोड़ने जा रहा है।
* (nth 0 args) उस लिस्ट में से पहले एलिमेंट (आर्टिकल्स की मुख्य सूची) को निकालता है।
* (seq-take ... my/elfeed-nmax) उस सूची में से केवल पहले 100 आर्टिकल्स को ही रखता है, बाकी को हटा देता है।
## 3. सलाह लागू करना (Apply Advice)
(advice-add 'elfeed-db-add :filter-args 'my/elfeed-db-add)
* यह elfeed-db-add (Elfeed का मूल फंक्शन जो डेटाबेस में एंट्री लिखता है) पर एक मॉडिफिकेशन (Advice) लगाता है।
* :filter-args का मतलब है कि मूल फंक्शन के चलने से पहले, आपका कस्टम फंक्शन इनपुट डेटा को छांटेगा।
* इसके बाद Elfeed का डेटाबेस कभी भी एक बार में 100 से ज्यादा आर्टिकल प्रति फीड प्रोसेस नहीं करेगा।
## यह कोड क्यों इस्तेमाल करें?
* डेटाबेस का साइज छोटा रहता है: यह फालतू या बहुत पुराने आर्टिकल्स को स्टोर होने से रोकता है।
* Emacs की परफॉर्मेंस सुधरती है: जब आप M-x elfeed-update चलाएंगे, तो Emacs हैंग नहीं होगा और तेजी से अपडेट होगा।
;; emacs elfeed update optimization
(defvar my/elfeed-nmax 100)
(defun my/elfeed-db-add (args)
(list (seq-take (nth 0 args) my/elfeed-nmax)))
(advice-add 'elfeed-db-add :filter-args 'my/elfeed-db-add)
用户特征分析（本批 6 人）
时间：2026/7/2 12:50:07
━━━━━━━━━━━━━━━━
【4】 @राज
特征：「多语言交流」 「天文学爱好者」 「印度文化」 「涉猎广泛」
样本：近期 15 条发言
━━━━━━━━━━━━━━━━
क्रमचर द्वारा प्रयोक्ता विश्लेषण। गूगिल द्वारा अनुवादित।
━━━━━━━━━━━━━━━━
यूज़र प्रोफ़ाइल विश्लेषण (6 का बैच)
समय: 2026/7/2 12:50:07
━━━━━━━━━━━━━━━━
विशेषताएँ: "कई भाषाओं में बातचीत," "खगोल विज्ञान में रुचि," "भारतीय संस्कृति," "कई तरह की रुचियाँ"
नमूना: हाल की 15 पोस्ट
━━━━━━━━━━━━━━━━
"The state has no need to crack a private key; it cracks the person holding it."
https://mises.org/mises-wire/bitcoin-not-freedom-delusion-digital-escape
"I's a junction in the vast bodhian web of knowledge"
गूगिल जेमिनै से। सम्पादित। सिग्नस एक्स-३ एक उच्च द्रव्यमान वाला एक्स-रे बाइनरी सिस्टम है जो सिग्नस तारामंडल में लगभग ३२००० प्रकाश वर्ष दूर स्थित है। यह एक दुर्लभ माइक्रोक्वासर॰ है जिसमें एक सघन पिंड ॰संभवतः एक ब्लैक होल या न्यूट्रॉन तारा॰ और एक विशाल वुल्फरेएट तारा शामिल है। सघन पिंड साथी तारे से गैस को अलग कर देता है, जिससे एक चमकदार अभिवृद्धि डिस्क बनती है और तीव्र गति वाले जेट निकलते हैं। मुख्य विशेषताएं। ब्रह्मांडीय गिरगिट। यह प्रणाली निरंतर परिवर्तनशील है और इसमें अनियमित शक्तिशाली विस्फोट देखने को मिलते हैं। यह विभिन्न विकिरण अवस्थाओं के बीच बदलती रहती है और कभी-कभी विशाल रेडियो ज्वालाएं उत्पन्न करती है जो इसके सामान्य उत्सर्जन से हजारों गुना अधिक चमकीली होती हैं। अत्यधिक संचय। द्रव्यमान का स्थानांतरण इतना व्यापक होता है कि प्रणाली अक्सर एडिंगटन सीमा को पार कर जाती है जिससे संरेखित बहिर्वाह और अतिगर्म गैस के ॰ब्रह्मांडीय तूफान॰ उत्पन्न होते हैं। उच्चऊर्जा प्रयोगशाला। यह रेडियो तरंगों से लेकर एक्स-रे और अतिउच्चऊर्जा गामा किरणों तक, संपूर्ण विद्युत चुम्बकीय स्पेक्ट्रम में विकिरण उत्सर्जित करती है।
Cygnus X-3 - Wikipedia
वैसे एक्स्ट्राओर्डिनरी का अर्थ अतिसाधारण नहीं।