From 75999697207159b45f5f10409edb6d44d0131458 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= <hi@oscarnajera.com>
Date: Mon, 19 Sep 2022 19:47:37 +0200
Subject: view elisp objects

---
 config/doom/config.org | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'config/doom')

diff --git a/config/doom/config.org b/config/doom/config.org
index 1ab1b75..3bfb1dc 100644
--- a/config/doom/config.org
+++ b/config/doom/config.org
@@ -78,6 +78,16 @@ Because I always need help and it should come up quickly
         :nv ")" #'sp-next-sexp
         :nv "(" #'sp-backward-sexp))
 #+end_src
+** View emacs structures
+#+begin_src emacs-lisp
+(defun on/display-obj (obj)
+  "Display in new buffer the given OBJ pretty printed."
+  (with-current-buffer (get-buffer-create "*Lisp Display*")
+    (erase-buffer)
+    (pp obj (current-buffer))
+    (emacs-lisp-mode)
+    (display-buffer (current-buffer))))
+#+end_src
 * Dictionary
 #+begin_src emacs-lisp :tangle "packages.el"
 (package! lexic)
-- 
cgit v1.2.3