← All posts tagged БК

безопасная загрузка модулей:

(defmacro with-feature (feature &rest body)
(declare (indent 1) (debug t))
(if (require feature nil t)
(cons 'progn body)
(lwarn 'emacs :warning "feature %s not found" (symbol-name feature))))

чем это лучше обертки с condition-case nil? ничем, мне просто захотелось писать что-то типа

(with-feature package
(setq package-archives '(("elpa" . "http://tromey.com/elpa/")
("gnu" . "http://elpa.gnu.org/packages/")
("marmalade" . "http://marmalade-repo.org/packages/"))))

Мне кажется, или жабоскрыпт действитель очень располагает к подобным лесенкам?

seq.forEach(
function (tmp) {
if (typeof tmp == "string")
let (m = tmp.match(/^(M-|)(.)$/))
nseq.push( m ? m[1] + e2r(m[2]) : tmp);
}
);