colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Refactor emacs README to use noweb for shared code blocks

Browse Source 
Use noweb syntax to share imalison:join-paths and imalison:projects-directory
definitions between the main config and org-config-bootstrap.el.

Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
This commit is contained in:
Ivan Malison
2026-01-20 13:35:15 -05:00
parent b3b425833b
commit 986966bbc1
1 changed files with 18 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
dotfiles/emacs.d/README.org
View File

@@ -324,17 +324,33 @@ I want to control my own font for emacs
* Functions * Functions
** Join Paths ** Join Paths
Works in the same way as os.path.join in python Works in the same way as os.path.join in python
#+BEGIN_SRC emacs-lisp :tangle org-config-bootstrap.el #+NAME: imalison-join-paths
#+BEGIN_SRC emacs-lisp :tangle no
(defun imalison:join-paths (root &rest dirs) (defun imalison:join-paths (root &rest dirs)
(let ((result root)) (let ((result root))
(cl-loop for dir in dirs do (cl-loop for dir in dirs do
(setq result (concat (file-name-as-directory result) dir))) (setq result (concat (file-name-as-directory result) dir)))
result)) result))
#+END_SRC #+END_SRC
#+BEGIN_SRC emacs-lisp :noweb yes
<<imalison-join-paths>>
#+END_SRC
** Variables ** Variables
#+BEGIN_SRC emacs-lisp :tangle org-config-bootstrap.el #+NAME: imalison-projects-directory
#+BEGIN_SRC emacs-lisp :tangle no
(defvar imalison:projects-directory (defvar imalison:projects-directory
(imalison:join-paths (substitute-in-file-name "$HOME") "Projects")) (imalison:join-paths (substitute-in-file-name "$HOME") "Projects"))
#+END_SRC
#+BEGIN_SRC emacs-lisp :noweb yes
<<imalison-projects-directory>>
#+END_SRC
#+BEGIN_SRC emacs-lisp :tangle org-config-bootstrap.el :noweb yes
<<imalison-join-paths>>
<<imalison-projects-directory>>
;; For org-config-bootstrap: frame-mode not needed in server/container context ;; For org-config-bootstrap: frame-mode not needed in server/container context
(defvar imalison:use-frame-mode nil) (defvar imalison:use-frame-mode nil)