radian VS .emacs.d

(defvar test--var1 nil) ;; From https://github.com/raxod502/radian/blob/cb1dda7c8a697b2d6e3b2683805df6a085aed1c7/emacs/radian.el#L194 (defmacro my-when-compiletime (cond &rest body) "Like `when', but COND is evaluated at compile time. BODY is only compiled if COND evaluates to non-nil." (declare (indent 1)) (when (eval cond) (macroexp-progn body))) (defmacro my-log (s &rest args) "Log to *Messages*." `(when t (message (concat (propertize "the value is: " 'face 'font-lock-comment-face) (when (bound-and-true-p test--var1) (propertize (format "[%s/%s] " (substring (symbol-name (car test--var1)) 1) (cdr test--var1)) 'face 'warning)) ,s) ,@args))) ;; input should be an unquoted list containing like (:a b c) and c can be and ;; often is nil. The variable f take is included here for completeness but does ;; not do anything. (defmacro my-macro (input &rest body) (let ((c (car input)) (m (car (cdr input))) (f (cdr (cdr input)))) `(my-when-compiletime t (let ((test--var1 `(,,c . ,',m))) (message "test--var1 is %s" test--var1) (my-log "We are in my-macro") ,@body)))) ;; This works as expected (my-macro (:a b) (my-log "%s" test--var1)) ;; => test--var1 is (:a . b) ;; => the value is: [a/b] We are in my-macro ;; => the value is: [a/b] (:a . b) ;; => #("the value is: [a/b] (:a . b)" 0 14 (face font-lock-comment-face) 14 20 (face warning)) ;; This not (my-macro (:a b) (defun test-fun1 () (my-log "hey")) (run-with-timer 0.1 nil #'test-fun1)) ;; => test--var1 is (:a . b) ;; => the value is: [a/b] We are in my-macro ;; => [nil 24719 64999 224627 nil test-fun1 nil nil 964000] ;; => the value is: hey

You might also want to check out Radian if you haven't seen that one yet. I haven't used it, but have read most of the code. It strikes me as a very Emacs-y "starter kit".

-- skeeto (https://github.com/skeeto/.emacs.d/commit/1d4614d349ba7f10aa159c833991adcfa10a4acc)

(define-minor-mode dedicated-mode "Minor mode for dedicating windows. This minor mode dedicates the current window to the current buffer. The code is taken from here: https://github.com/skeeto/.emacs.d/blob/master/lisp/extras.el" :init-value nil :lighter " [D]" (let* ((window (selected-window)) (dedicated (window-dedicated-p window))) (set-window-dedicated-p window (not dedicated)) (message "Window %sdedicated to %s" (if dedicated "no longer " "") (buffer-name))))