jdtsmith

;;; org-refile-attach.el --- Move attachments on org refile -*- lexical-binding: t; -*-
;; Copyright (C) 2024  J.D. Smith
;;; Commentary:
;; org-refile-attach enables moving attachments associated with a
;; given heading and sub-headings upon refiling it.
;;  XXX: This a proof of concept, and does not handle moving arbitrary 
;;       sub-trees or regions correctly
;;; Code:
(require 'org-attach)
(require 'org-element)

jdtsmith

(defun my/org-toggle-emphasis (type)
    "Toggle org emphasis TYPE (a character) at point."
    (cl-labels ((in-emph (re)
		  "See if in org emphasis given by RE."
		  (and (org-in-regexp re 2)
		       (>= (point) (match-beginning 3))
		       (<= (point) (match-end 4))))
		(de-emphasize ()
		  "Remove most recently matched org emphasis markers."
		  (save-excursion

jdtsmith

;;; eglot-booster.el --- boost eglot using emacs-lsp-booster -*- lexical-binding: t; -*-
;; Copyright (C) 2024  J.D. Smith

;;; Commentary:

;; **UPDATE** This has been superseded by the following package:
;;     https://github.com/jdtsmith/eglot-booster
;;
;; Boost eglot with emacs-lsp-booster.
;; 1. Download a recent emacs-lsp-booster from

jdtsmith

;; Simple test exhibiting motion errors with inline images.
;; See Bug#67604
;; 1. Eval this buffer (M-x eval-buffer).
;; 2. A buffer with 3 colored SVG blocks will appear.
;; 3. Adjust your frame's width until the green image just wraps to
;;    the 2nd screen line, then reduce width by one more char.
;; 4. In the buffer with the images, M-x my/find-skip-bug.  If it
;;    succeeds, it will report the pixel offset where the bug
;;    occurred.  NOTE: The Green image must appear at the start of a
;;    line, or a "false positive" bug ID has occurred.  Increase your

jdtsmith

;;; test-svg-wrapped --- test pixel position for SVG images  -*- lexical-binding: t; -*-

;; This small code creates a buffer with a couple long lines with
;; several SVG images of varying height interspersed.  It also
;; includes a tool to check if the pixel height information one pixel
;; above each character agrees with expectations.  To use:

;; M-x my/test-svg-positions
;;   (use a C-u prefix to create SVG overlays instead of text properties)
;;   

jdtsmith

This is normal text. $ω(t) = \sqrt[16]{t}$ Nam a sapien. $ρ(y) = exp\left(\sqrt{log(y)}\right)$ Lorem ipsum dolor sit amet, consectetuer adipiscing elit. $υ(x) = exp\left(\sqrt{exp(x)}\right)$ Aliquam posuere.

jdtsmith

(defun maximize-window-in-direction (&optional horizontally)
  "Maximize window.
Default vertically, unless HORIZONTALLY is non-nil."
  (interactive)
  (unless (seq-every-p
	   (apply-partially #'window-at-side-p nil)
	   (if horizontally '(left right) '(top bottom)))
    (let* ((buf (window-buffer))
	   (top-size (window-size (frame-root-window) (not horizontally)))
	   (size (min (/ top-size 2) (window-size nil (not horizontally))))

jdtsmith

(let ((orig (default-value 'repeat-echo-function))
	rcol ccol in-repeat)
    (setq
     repeat-echo-function
     (lambda (map)
       (if orig (funcall orig map))
       (unless rcol (setq rcol (face-foreground 'error)))
       (if map
	   (unless in-repeat		; new repeat sequence
	     (setq in-repeat t

jdtsmith

(let ((buf (get-buffer-create "*stipple-box*")))
  (switch-to-buffer-other-window buf)
  (cl-flet  ((srot (s r) (concat (substring s (- r)) (substring s 0 (- r)))))
    (let* ((bar-width 0.3)
           (w (window-font-width))
           (h (window-font-height))
           (rot (indent-bars--stipple-rot w))
           (bsz (round (* bar-width w)))
           (vrot (mod (cadr (window-edges nil t nil t)) h))
           (pad (make-string (- h bsz) ?\s))

jdtsmith

(let (cnt tm node res)
  (goto-char (point-min))
  (while (< (point) (point-max))
    (setq tm
          (benchmark-run 100
            (setq node (treesit-node-at (point)))
            (while node
              (setq node (treesit-node-parent node))))
          node (treesit-node-at (point)))
    (setq cnt 0)