iankelling.org Git - dot-emacs/blob - compile-init-dir.el

   1 ;; Copyright (C) 2014 Ian Kelling
   2
   3 ;; This program is free software: you can redistribute it and/or modify
   4 ;; it under the terms of the GNU General Public License as published by
   5 ;; the Free Software Foundation, either version 3 of the License, or
   6 ;; (at your option) any later version.
   7
   8 ;; This program is distributed in the hope that it will be useful,
   9 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 ;; GNU General Public License for more details.
  12
  13 ;; You should have received a copy of the GNU General Public License
  14 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15
  16 (require 'dash)
  17 (cd "~/.emacs.d/src")
  18 (--map (when (and (not (string= it "gnus"))
  19                   (not (string= it "bbdb"))
  20                   (file-directory-p it))
  21          (byte-recompile-directory (expand-file-name it) 0 t))
  22        (directory-files "."))
  23 (byte-recompile-directory (expand-file-name "~/.emacs.d/elpa") 0 t)
  24 (byte-recompile-file (expand-file-name "~/.emacs.d/my-init.el") t)