diff options
| -rw-r--r-- | smart-documents.org | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/smart-documents.org b/smart-documents.org index cd593e7..e7a38d4 100644 --- a/smart-documents.org +++ b/smart-documents.org @@ -1785,69 +1785,3 @@ the result of our profiling. In this configuration file, we described a series of customization steps taken to make Emacs more palatable to modern word processors users. - -We will now go through the appendices in the following order: - -1. Ideas implemented, then retired; -2. Risky ideas that might displease Emacs when it reads our literate - configuration. If these risky ideas are included in the main body - of the paper, it becomes difficult to identify which one is causing - trouble. - -#+LATEX: \appendix -* Old introduction - -GNU Emacs is most often used as a text editor. The utmost level of -customization is afforded by the ability to rewrite /any/ part of the -source code and observe the editor's modified behavior in real -time. Since its inception in 1984, GNU Emacs has grown to be much more -than a full-featured, high-productivity text editor---new /modes/ have -been written to interact with hundreds of file formats, including -=.txt=, =.pdf=, =.jpg=, =.csv=, and =.zip= just to name a few. This -paper itself was written in /Org mode/, a collection of functions -enabling the harmonious mixing of code, comments and content in view -of publication: this is the endgame of /literate programming/, and the -basis of my vision for /Smart Documents/. - -* Unpacking our literate configuration -:PROPERTIES: -:sd-unpack-path: sd.el -:END: - -The following code blocks are normally evaluated once---upon starting -Emacs for the first time. - -#+BEGIN_SRC emacs-lisp :tangle no - (defvar sd-packed-p t - "Boolean to track literate configuration packed/unpacked status.") - - (defvar sd-unpack-sections (org-property-values "sd-unpack-path") - "List of target sections in `my/literate-config' to be unpacked.") - - (defun sd-unpack-sections () - "Unpack literate configuration into `emacs-user-directory'." - (interactive) - (mapcar 'sd-unpack sd-unpack-sections) - ) - - (defun sd-unpack-section (&optional section) - "Unpack SECTION into `user-emacs-directory'. - If nil, unpack section under point. - Make go through list of headings and unpack first matching SECTION." - (interactive) - (if (not section) - (insert - (concat - "\nThe contents of this Section was automatically moved to\n=" - user-emacs-directory (org-entry-get nil "sd-unpack-path") "=.\n" - "Use `sd-pack-section' to copy the contents back into this section.")))) - - (defun sd-pack-section () - "Pack SECTION into `my/literate-config'." - (interactive) - (message "foobar!!!")) - - (global-set-key (kbd "C-t") 'sd-pack-section) - - (sd-unpack "init.el") -#+END_SRC |