(Emacs)+bindings for literate compile function
Described in the edit section, just read.
This commit is contained in:
@@ -308,6 +308,27 @@ moment), bind to general some basic binds.
|
|||||||
(leader
|
(leader
|
||||||
"h" #'help-command))
|
"h" #'help-command))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
*** Binds for literate
|
||||||
|
If you check [[file:init.el][init.el]] you'll see I define a class of functions with the
|
||||||
|
=+literate/= namespace. In particular the =+literate/load-config= and
|
||||||
|
=+literate/compile-config= functions provide useful functionality for
|
||||||
|
the config.
|
||||||
|
|
||||||
|
I usually use these functions when testing out new Emacs features:
|
||||||
|
I'll write a bit of code in this org file, compile using
|
||||||
|
=+literate/compile-config= then test it out in a new Emacs session.
|
||||||
|
If I like the feature, I keep it in my org file. If I don't, no harm
|
||||||
|
done as once I end the current Emacs session it'll recompile and
|
||||||
|
remove the section.
|
||||||
|
|
||||||
|
#+begin_src emacs-lisp
|
||||||
|
(use-package general
|
||||||
|
:general
|
||||||
|
(leader
|
||||||
|
:infix "q"
|
||||||
|
"c" #'+literate/compile-config
|
||||||
|
"l" #'+literate/load-config))
|
||||||
|
#+end_src
|
||||||
** Evil
|
** Evil
|
||||||
Evil (Emacs VI Layer) is a package that brings the Vi experience to
|
Evil (Emacs VI Layer) is a package that brings the Vi experience to
|
||||||
Emacs. Packaged with it by default are:
|
Emacs. Packaged with it by default are:
|
||||||
|
|||||||
@@ -53,6 +53,7 @@
|
|||||||
|
|
||||||
(defun +literate/load-config ()
|
(defun +literate/load-config ()
|
||||||
"Load all files in +literate/output-files."
|
"Load all files in +literate/output-files."
|
||||||
|
(interactive)
|
||||||
(mapc #'(lambda (x) (load-file x)) +literate/output-files))
|
(mapc #'(lambda (x) (load-file x)) +literate/output-files))
|
||||||
|
|
||||||
(defun +literate/org-files-exist ()
|
(defun +literate/org-files-exist ()
|
||||||
@@ -66,6 +67,7 @@
|
|||||||
(autoload #'org-babel-tangle-file "ob-tangle")
|
(autoload #'org-babel-tangle-file "ob-tangle")
|
||||||
(defun +literate/compile-config ()
|
(defun +literate/compile-config ()
|
||||||
"Compile all files in +literate/org-files via org-babel-tangle."
|
"Compile all files in +literate/org-files via org-babel-tangle."
|
||||||
|
(interactive)
|
||||||
(message "Compiling files...")
|
(message "Compiling files...")
|
||||||
(mapc #'org-babel-tangle-file +literate/org-files)
|
(mapc #'org-babel-tangle-file +literate/org-files)
|
||||||
(message "Files compiled")
|
(message "Files compiled")
|
||||||
|
|||||||
Reference in New Issue
Block a user