Silly little bit of #elisp for #emacs task

I'm writing solutions to an assessment where the template is alreay provided. I want to quickly insert a solution block. I'll likely never need to use this template again, so I'm not going to make a snippet. So I spent about 20 seconds writing a little lisp to do it. Probably spent more time writing this toot 😊

(defun pab/soln ()
"Insert bullshit solution text."

(interactive)
(insert "\\ifanswers
\\textbf{SOLUTION}

\\else
\\fi
"))

(keymap-local-set "C-c s" #'pab/soln)

Battling my muscle memory in Magit: https://blog.davep.org/2026/05/13/stopping-an-accidental-push.html

#emacs #lisp #elisp

I don't suppose anyone is able to provide an invite to the #Fosstodon instance?

I've been a dedicated #Linux and #OpenSource user since 1995, and I've recently started making contributions as a contributor liaison for #orgmode, an #Emacs mode for taking notes. I'm learning more #ELisp, hoping to be able to make code contributions soon as well.

I just posted a video explaining how I automatically scale up the default font (for demo purposes) on a Raspberry PI Trixie Emacs.

#emacs #elisp

https://www.youtube.com/watch?v=E56_SNoe-oM

I was reading #prot emacs element #ebook on #elisp. I like this quote.

```
The fun part is how you go about writing the code. There are no duties you have to conform with. None! You program for the sake of programming. It is a recreational activity that expands your horizons.
```

protesilaos.com/emacs/emacs-lisp-elements#h:getting-started-with-emacs-lisp

Is there a better way to do this? blogs-metadata is like ((tag1 . (blogpost1 ...)) ...)
(alist with key as tags and list of blog entries as body).

(let* ((tags (delete-dups
(flatten-list
(seq-keep (lambda (post)
(let-alist post .tags))
blogs-metadata))))
(blogs-per-tags
(mapcar (lambda (tag)
(cons tag (seq-keep (lambda (blog)
(let-alist blog
(when (member tag .tags)
blog)))
blogs-metadata)))
tags)))
(sxml (mapcar (lambda (tag)
`(div (@ (class "tag-container"))
(h2 (@ (id ,(car tag))) ,(car tag))
(ul ,(mapcar (lambda (blog)
(let-alist blog
`(li (a (@ (href ,.link)) ,.title))))
(cdr tag)))))
blogs-per-tags)))

#lisp #emacs #elisp

I've released a small update to make-phony.el: https://blog.davep.org/2026/05/09/make-phony-el-v1-4-0.html

#emacs #lisp #elisp #programming

I've updated blogmore.el to add a command for quickly setting an image as the cover for a post: https://blog.davep.org/2026/05/08/blogmore-el-v4-5-0.html

#emacs #lisp #elisp #programming #blogging