Refactor mail handling.
[emacs.git] / .emacs.d / initjj.org
index 3b805a7..778223d 100644 (file)
@@ -340,29 +340,43 @@ As my configuration requires certain parts of the configuration to
 already be loaded when the byte-compilation happens, this is done
 using an /after-init-hook/.
 #+BEGIN_SRC emacs-lisp :tangle yes
-(defvar jj-init-files '() "Temporary list of files that need a byte-compile")
-(defun jj-byte-compile-init ()
-  "Byte compile a list of files"
-  (let (filename)
-    (dolist (filename jj-init-files)
-      (when (file-exists-p filename)
-        (message "Byte-compiling %s, standby" filename)
-        (byte-compile-file filename))))
-  (makunbound 'jj-init-files)
-  (makunbound 'jj-byte-compile-init)
-  )
-(defun jj-compile-and-load (&optional arg)
-  "Use org-tangle to get the emacs-lisp parts from .org emacs
-config files into .el ones, byte-compile those and then load
-them."
-  (let ((el-file (concat (file-name-sans-extension arg) ".el")))
-    (cond
-     ((file-newer-than-file-p arg el-file)
-      (org-babel-tangle-file arg el-file "emacs-lisp")
-      (add-hook 'after-init-hook 'jj-byte-compile-init)
-      (add-to-list 'jj-init-files (symbol-value 'el-file))))
-    (load-file el-file)
-    ))
+  (defvar jj-init-files '() "Temporary list of files that need a byte-compile")
+  (defun jj-byte-compile-init ()
+    "Byte compile a list of files"
+    (let (filename)
+      (dolist (filename jj-init-files)
+       (when (file-exists-p filename)
+         (message "Byte-compiling %s, standby" filename)
+         (byte-compile-file filename))))
+    (makunbound 'jj-init-files)
+    (makunbound 'jj-byte-compile-init)
+    )
+  (defun jj-compile-and-load (&optional arg)
+    "Use org-tangle to get the emacs-lisp parts from .org emacs
+  config files into .el ones, byte-compile those and then load
+  them."
+    (let ((el-file (concat (file-name-sans-extension arg) ".el")))
+      (cond
+       ((file-newer-than-file-p arg el-file)
+        (my-tangle-config-org arg el-file)
+;      (add-hook 'after-init-hook 'jj-byte-compile-init)
+       (add-to-list 'jj-init-files (symbol-value 'el-file))))
+      (load-file el-file)
+      ))
+
+
+  ;; (defun jj-compile-and-load (&optional arg)
+  ;;   "Use org-tangle to get the emacs-lisp parts from .org emacs
+  ;; config files into .el ones, byte-compile those and then load
+  ;; them."
+  ;;   (let ((el-file (concat (file-name-sans-extension arg) ".el")))
+  ;;     (cond
+  ;;      ((file-newer-than-file-p arg el-file)
+  ;;       (org-babel-tangle-file arg el-file "emacs-lisp")
+  ;;       (add-hook 'after-init-hook 'jj-byte-compile-init)
+  ;;       (add-to-list 'jj-init-files (symbol-value 'el-file))))
+  ;;     (load-file el-file)
+  ;;     ))
 #+END_SRC
 
 ** Extra files to load