From mboxrd@z Thu Jan 1 00:00:00 1970 From: Sebastian Rose Subject: Re: further on compiling development version of org-mode without make command Date: Thu, 09 Jul 2009 20:25:20 +0200 Message-ID: <87skh5r9wv.fsf@kassiopeya.MSHEIMNETZ> References: <87k52i266j.wl%ucecesf@ucl.ac.uk> <87ab3emd08.fsf@kassiopeya.MSHEIMNETZ> <800CD20A-6D75-43A2-B68A-B9434AE3BA6D@nf.mpg.de> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MOyFC-00058x-7f for emacs-orgmode@gnu.org; Thu, 09 Jul 2009 14:21:18 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MOyF7-0004yl-2P for emacs-orgmode@gnu.org; Thu, 09 Jul 2009 14:21:17 -0400 Received: from [199.232.76.173] (port=37245 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MOyF6-0004yX-Uc for emacs-orgmode@gnu.org; Thu, 09 Jul 2009 14:21:12 -0400 Received: from mail.gmx.net ([213.165.64.20]:48526) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1MOyF6-0006VN-CS for emacs-orgmode@gnu.org; Thu, 09 Jul 2009 14:21:12 -0400 In-Reply-To: <800CD20A-6D75-43A2-B68A-B9434AE3BA6D@nf.mpg.de> (Stefan Vollmar's message of "Thu, 09 Jul 2009 19:05:25 +0200") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Stefan Vollmar Cc: Org Mode --=-=-= Hello Stefan, this works here with `emacs -Q' .... we forgot the load path .... The function is likely to change some more. I just send this version, so you can compile this way (hopefully). Sebastian --=-=-= Content-Type: application/emacs-lisp Content-Disposition: inline Content-Transfer-Encoding: quoted-printable (defvar my/org-lisp-directory "~/.emacs.d/org/lisp" "Directory where your org-mode files live.") (defvar my/org-compile-sources nil "If `nil', never compile org-sources. `my/compile-org' will only create the autoloads file `org-install.el' then. If `t', compile the sources, too.= ") (setq my/org-lisp-directory "~/emacs/lisp/ext/org-mode/lisp") (setq my/org-compile-sources t) (defun my/compile-org(&optional directory) "Compile all *.el files that come with org-mode." (interactive) (setq directory (concat (file-truename (or directory my/org-lisp-directory)) "/")) (add-to-list 'load-path directory) (let ((list-of-org-files (list (concat directory "org.el") (concat directory "org-macs.el") (concat directory "org-agenda.el") (concat directory "org-ascii.el") (concat directory "org-attach.el") (concat directory "org-archive.el") (concat directory "org-bbdb.el") (concat directory "org-bibtex.el") (concat directory "org-clock.el") (concat directory "org-colview.el") (concat directory "org-colview-xemacs.el") (concat directory "org-compat.el") (concat directory "org-exp.el") (concat directory "org-exp-blocks.el") (concat directory "org-docbook.el") (concat directory "org-faces.el") (concat directory "org-feed.el") (concat directory "org-footnote.el") (concat directory "org-gnus.el") (concat directory "org-html.el") (concat directory "org-icalendar.el") (concat directory "org-id.el") (concat directory "org-info.el") (concat directory "org-inlinetask.el") (concat directory "org-jsinfo.el") (concat directory "org-irc.el") (concat directory "org-latex.el") (concat directory "org-list.el") (concat directory "org-mac-message.el") (concat directory "org-mew.el") (concat directory "org-mhe.el") (concat directory "org-mouse.el") (concat directory "org-publish.el") (concat directory "org-plot.el") (concat directory "org-protocol.el") (concat directory "org-remember.el") (concat directory "org-rmail.el") (concat directory "org-src.el") (concat directory "org-table.el") (concat directory "org-timer.el") (concat directory "org-vm.el") (concat directory "org-w3m.el") (concat directory "org-wl.el") (concat directory "org-xoxo.el") ))) ;; create the org-install file (require 'autoload) (setq esf/org-install-file (concat 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) (dolist (f list-of-org-files) ; delete compiled files (if (file-exists-p (concat f "c")) (delete-file (concat f "c"))) (load-file f) (if my/org-compile-sources ; Compile, if `my/org-compile-sou= rces' is t (byte-compile-file f))))) --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --=-=-=--