|
@@ -32,6 +32,9 @@
|
|
|
;;
|
|
|
;;; Commentary:
|
|
|
;;
|
|
|
+;; WARNING: This library is obsolete, you should use the make targets
|
|
|
+;; to keep track of Org latest developments.
|
|
|
+;;
|
|
|
;; Download the latest development tarball, unpack and optionally compile it
|
|
|
;;
|
|
|
;; Usage:
|
|
@@ -46,15 +49,11 @@
|
|
|
;;
|
|
|
;; M-x org-track-update RET
|
|
|
|
|
|
-
|
|
|
-
|
|
|
(require 'url-parse)
|
|
|
(require 'url-handlers)
|
|
|
(autoload 'url-file-local-copy "url-handlers")
|
|
|
(autoload 'url-generic-parse-url "url-parse")
|
|
|
|
|
|
-
|
|
|
-
|
|
|
|
|
|
|
|
|
;;; Variables:
|
|
@@ -66,7 +65,7 @@ To use org-track, adjust `org-track-directory'.
|
|
|
Org will download the archived latest git version for you,
|
|
|
unpack it into that directory (i.e. a subdirectory
|
|
|
`org-mode/' is added), create the autoloads file
|
|
|
-`org-install.el' for you and, optionally, compile the
|
|
|
+`org-loaddefs.el' for you and, optionally, compile the
|
|
|
sources.
|
|
|
All you'll have to do is call `M-x org-track-update' from
|
|
|
time to time."
|
|
@@ -80,7 +79,7 @@ If that directory does not exist, it will be created."
|
|
|
|
|
|
(defcustom org-track-compile-sources t
|
|
|
"If `nil', never compile org-sources.
|
|
|
-Org will only create the autoloads file `org-install.el' for
|
|
|
+Org will only create the autoloads file `org-loaddefs.el' for
|
|
|
you then. If `t', compile the sources, too.
|
|
|
Note, that emacs preferes compiled elisp files over
|
|
|
non-compiled ones."
|
|
@@ -102,8 +101,6 @@ you need to unpack it."
|
|
|
"Remove org-latest.tar.gz after updates?"
|
|
|
:type 'boolean)
|
|
|
|
|
|
-
|
|
|
-
|
|
|
|
|
|
|
|
|
;;; Frontend
|
|
@@ -131,7 +128,6 @@ Also, generate autoloads and evtl. compile the sources."
|
|
|
(org-track-compile-org))
|
|
|
(error (message "%s" (error-message-string err)))))))
|
|
|
|
|
|
-
|
|
|
|
|
|
|
|
|
;;; tar related functions
|
|
@@ -171,7 +167,6 @@ subdirectory org-mode/ to DIRECTORY."
|
|
|
(if org-track-remove-package
|
|
|
(delete-file target))))
|
|
|
|
|
|
-
|
|
|
|
|
|
|
|
|
;;; Compile Org-mode sources
|
|
@@ -180,7 +175,7 @@ subdirectory org-mode/ to DIRECTORY."
|
|
|
;;;###autoload
|
|
|
(defun org-track-compile-org (&optional directory)
|
|
|
"Compile all *.el files that come with org-mode.
|
|
|
-Generate the autoloads file `org-install.el'.
|
|
|
+Generate the autoloads file `org-loaddefs.el'.
|
|
|
|
|
|
DIRECTORY is where the directory org-mode/ lives (i.e. the
|
|
|
parent directory of your local repo."
|
|
@@ -193,15 +188,15 @@ DIRECTORY is where the directory org-mode/ lives (i.e. the
|
|
|
"/")))
|
|
|
(add-to-list 'load-path directory)
|
|
|
(let ((list-of-org-files (file-expand-wildcards (concat directory "*.el"))))
|
|
|
- ;; create the org-install file
|
|
|
+ ;; create the org-loaddefs file
|
|
|
(require 'autoload)
|
|
|
- (setq esf/org-install-file (concat directory "org-install.el"))
|
|
|
+ (setq esf/org-install-file (concat directory "org-loaddefs.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")
|
|
|
+ (insert "\n(provide (quote org-loaddefs))\n")
|
|
|
(save-buffer)
|
|
|
(kill-buffer)
|
|
|
(byte-compile-file esf/org-install-file t)
|
|
@@ -213,7 +208,6 @@ DIRECTORY is where the directory org-mode/ lives (i.e. the
|
|
|
(if org-track-compile-sources
|
|
|
(mapc (lambda (f) (byte-compile-file f)) list-of-org-files))))
|
|
|
|
|
|
-
|
|
|
(provide 'org-track)
|
|
|
|
|
|
;;; org-track.el ends here
|