Inc0n

(with-eval-after-load 'org-faces
  (setq org-todo-keyword-faces
		(append
		 (cl-loop for todo in '("TODO" "NEXT" "STARTED" "PROJECT" "HOLD")
				  with faces = '(:height 0.8 :inherit (org-modern-todo))
				  collect (cons todo faces))
		 (cl-loop for todo in '("CANCELLED" "DONE")
				  with faces = '(:height 0.8 :inherit (org-modern-done))
				  collect (cons todo faces)))
		org-priority-faces

Inc0n

(setq show-trailing-whitespace t)
 
(defun my-prog-nuke-trailing-whitespace ()
  (when (derived-mode-p 'prog-mode)
    (let ((win-beg (window-start))
          (win-end (window-end))
          (line-beg (line-beginning-position))
          (line-end (line-end-position)))
         (if (or (< line-beg win-start)
                 (> line-end win-end))

Inc0n

(let* ((data (make-instance 'data))
             (freq (alloy:represent (frequency data) 'alloy:ranged-slider
                                       :range '(.1 . 10) :step 0.1))
             (phas (alloy:represent (wavephase data) 'alloy:ranged-slider
                                    :range (cons 0 PI) :step 0.1))
             (amps (alloy:represent (amplitude data) 'alloy:ranged-slider
                                    :range '(0 . 100)))
             (plot (alloy:represent (lambda ((frequency (frequency data))
                                             (amplitude (amplitude data))
                                             (phase (wavephase data)))