jdtsmith

Background

WLED supports a variety of network control protocols, including “realtime UDP” and (for audio-reactive ports) “Sound Sync”. UDP data “frames” comprising one or more packets are typically sent to WLED devices at fixed intervals, e.g. 20ms for the default 50Hz SoundSync update. Unfortunately, consumer-grade WiFi suffers from jitter of 20-80ms. Packets can occasionally arrive in rapid “floods” (several packets in <10ms), followed by long “droughts” of 75ms or more.

The solution? Buffer a fixed number of “frames” from the sporadically arriving packet data, playing back the oldest at smooth intervals, using the buffer to weather the droughts and floods. This dramatically smooths the intervals for playback. This approach effectively trades latency for smoothness of playback interval. This buffering approach is referred to as Realtime Smoothing (RTS).

jdtsmith

(use-package highlight-indentation
  :ensure highlight-indentation
  :init
  ;; Add a timer delay to the current column highlight for efficiency,
  ;; and to avoid flashing when scrolling or moving by line
  (defvar my/highlight-indentation-current-column-timer nil)
  (defun my/highlight-indentation-current-column ()
    (highlight-indentation-redraw-window (selected-window)
     'highlight-indentation-current-column-overlay
     'highlight-indentation-current-column-put-overlays-region))

jdtsmith

;; Stress tests of the undo/vundo system

(require 'vundo)
(require 'lorem-ipsum)
(eval-when-compile
  (require 'cl-lib))
(require 'memory-report)

(add-hook 'vundo-mode-hook (lambda () (setq jit-lock-mode nil)))

jdtsmith

(use-package rect
  :init
  (defun my/rect-transient-map-info ()
    (interactive)
    (with-help-window "Rectangle Mark Command Help"
      (dolist
	  (l '("Rectangle Mark Mode Modal Commands\n"
	       "==================================\n\n"
	       "Insertion:\n\n"
	       "   [o] open      fill rectangle with spaces, moving adjacent text right\n"

jdtsmith

Image glitch while mac-mouse-wheel-smooth-scroll=t (emacs-mac)

While smooth(=pixel) scrolling up past images displayed by org-display-inline-images (org 9.6.1), point loops back below the image, preventing you to scroll past it. See below for a video.

jdtsmith

;;;; Power debugging
(defun my/reraise-error (func &rest args)
  "Call function FUNC with ARGS and re-raise any error which occurs.
Useful for debugging post-command hooks and filter functions, which
normally have their errors suppressed."
  (condition-case err
      (apply func args)
    ((debug error) (signal (car err) (cdr err)))))

(defun toggle-debug-on-hidden-errors (func)

jdtsmith

(defvar-local still-waiting nil
  "Whether we are still waiting for a chunk of process output to complete.")

(defun my-worker-1 (process)
  "Do some work and yield to PROCESS output."
  (do-some-sensitive-calculation)       
  (sit-for 1)                             ; A) output can interrupt me here
  (another-sensitive-buffer-manipulation) ; B) what about here?
  (my-worker-2 process))

jdtsmith

(defvar-local eglot-report-didChange-marker nil)
(defvar-local eglot-report-didChange-buffer nil)
(defun eglot-report-didChange (change-beg change-end prev-len)
  "Scan eglot events buffer and report textDocument/didChange events compactly.
Invoke this command in a given eglot events buffer."
  (save-excursion
    (goto-char eglot-report-didChange-marker)
    (while (re-search-forward
            "(:jsonrpc \"2.0\" :method \"textDocument/didChange\"" nil t)
      (goto-char (match-beginning 0))

jdtsmith

Using embark-bindings, together with vertico, orderless, and marginalia, you can easily search through available bindings.

jdtsmith

(defmacro with-convenient-slots (slots obj &rest body)
  "Convenience wrapper for read/write access to struct data.
Bind slot names SLOTS (a list) within the `my-struct'
record OBJ, and execute BODY."
  `(cl-symbol-macrolet
       ,(cl-loop for slot in slots
                 collect `(,slot (,(intern (concat "my-struct-"
						   (symbol-name slot)))
				  ,obj)))
     ,@body))