[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] further on compiling development version of org-mode witho

From: Sebastian Rose
Subject: Re: [Orgmode] further on compiling development version of org-mode without make command
Date: Thu, 09 Jul 2009 11:17:27 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (gnu/linux)

Eric S Fraga <address@hidden> writes:
> Hello again,
> Although Sebastian's elisp code was perfect for batch compiling the
> lisp/*.el files in the org distribution, it doesn't address one key
> element of the make step required: the creation of the
> org-install.el file.

I wonder where I have that file. I couldn't find `org-install.el'
anywhere but it seems to work fine here without. What is it needed for?
Speed up things, I guess? As I never compile Org-mode, I never used that

> I've (with my rather rudimentary elisp skills) modified the function
> as follows to incorporate the commands from the Makefile which are
> used to create the org-install.el file:
> ;; functions from Sebastian Rose <address@hidden>             
> ;; to compile all org files in lieu of a make utility,
> ;; modified by me to create and compile the org-install.el file
> (defvar my/org-lisp-directory "~/git/org-mode/lisp"
>   "Directory where your org-mode files live.")
> ;; adjust my/org-lisp-directory:                                     
> (setq my/org-lisp-directory "~/git/org-mode/lisp")
> (defun my/compile-org()
>   "Compile all *.el files that come with org-mode."
>   (interactive)
>   (dired my/org-lisp-directory)
>   (dired-mark-files-regexp "\\.el$")
>   (setq list-of-org-files (dired-get-marked-files))
>   (dired-do-load)
>   (dired-do-byte-compile)
>   ;; create the org-install file                                     
>   (require 'autoload)
>   (setq esf/org-install-file (concat my/org-lisp-directory "org-install.el"))
>   (find-file esf/org-install-file)
>   (erase-buffer)
>   (mapc (lambda (x)
>           (generate-file-autoloads x))
>         list-of-org-files
>         )
>   (insert "\n(provide (quote org-install))\n")
>   (save-buffer)
>   (byte-compile-file esf/org-install-file)
> )
> Comments of any sort are more than welcome!  It seems to work (but
> only time will tell).  Actually, I probably need to delete any
> existing org-install.el file first... any suggestions on the best way
> to do this would be more than welcome!

Yes - and we should remove all the *.elc files first (which I missed),
in case some are obsolete after a `git pull'.
Could be done via dired again:

   (dired-mark-files-regexp "\\.el$")
   (setq list-of-org-files (dired-get-marked-files))
   ;; ADD THIS:
   ;; this deletes obsolete files:
   (dolist (f list-of-org-files)
     (delete-file (concat f "c")))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]