From 7b2b71f4ab13edc7f8f7857aaaa9d97cead0d2b7 Mon Sep 17 00:00:00 2001 From: Christian Cleberg Date: Sat, 21 Feb 2026 23:12:17 -0600 Subject: update profile README --- christian.el | 62 ------------------------------------------------------------ 1 file changed, 62 deletions(-) delete mode 100644 christian.el (limited to 'christian.el') diff --git a/christian.el b/christian.el deleted file mode 100644 index 7f269e3..0000000 --- a/christian.el +++ /dev/null @@ -1,62 +0,0 @@ -;;; christian.el --- Personal profile & blog index -*- lexical-binding: t -*- - -;; Author: Christian Cleberg -;; Version: 0.1 -;; Keywords: privacy, security, self-hosting -;; Package-Requires: ((emacs "27.1")) - -;;; Commentary: - -;; I'm a Tech Assurance Manager at KPMG. -;; I run a personal site at https://cleberg.net which contains: -;; - a blog, -;; - information about me, -;; - publicly‑hosted services. -;; -;; Prefer Tor? Use the .onion address for the same content. - -;;; Code: - -(defvar christian/profile - '((name . "Christian") - (email . "hello@cleberg.net") - (role . "Tech Assurance Manager at KPMG") - (gpg-key . "https://cleberg.net/gpg.txt") - (site-url . "https://cleberg.net") - (tor-url . "http://sv3g2dlyvwyk2nvi3eeh55fcrpdvjlclhi6wwsx57cste6lwdjanzyyd.onion") - (blog-posts . - ((:date "2026-02-12" - :title "Automating Weblorg Deployments with GitHub Actions" - :url "https://cleberg.net/blog/automating-weblorg-deployments.html") - (:date "2026-02-08" - :title "Managing My Dotfiles with GNU Stow and Git" - :url "https://cleberg.net/blog/gnu-stow.html") - (:date "2026-02-07" - :title "IndieWeb Carnival: Intersecting Interests" - :url "https://cleberg.net/blog/indiweb-carnival-2026-02-intersecting-interests> - (:date "2026-02-02" - :title "Emacs Carnival: “Completion”" - :url "https://cleberg.net/blog/emacs-carnival-2026-02-completion.html") - (:date "2026-01-31" - :title "Emacs Carnival: “This Year, I Will...”" - :url "https://cleberg.net/blog/emacs-carnival-2026-01-this-year-i-will.html"))))) - -(defun christian/display-profile () - "Pretty‑print the profile in a *Help* buffer." - (interactive) - (with-help-window "*Christian Profile*" - (princ (format "%s %s\n\n" (alist-get 'name christian/profile) - (alist-get 'emoji christian/profile))) - (princ (format "%s\n\n" (alist-get 'role christian/profile))) - (princ (format "Website: %s\n" (alist-get 'site-url christian/profile))) - (princ (format "Tor (onion): %s\n\n" (alist-get 'tor-url christian/profile))) - (princ "=== Latest Blog Posts ===\n") - (dolist (post (alist-get 'blog-posts christian/profile)) - (princ (format "- %s (%s)\n %s\n" - (plist-get post :title) - (plist-get post :date) - (plist-get post :url)))))) - -(provide 'christian) - -;;; christian.el ends here -- cgit v1.2.3