larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2024-11-26 07:28:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

A time-stamp file is created by default.

Browse Source 
Instead of the user having the option to add a time-stamp to the
init-file, a file is created for this purpose only.
This commit is contained in:
larstvei 2014-01-04 18:59:29 +01:00
parent 67d780f9af
commit dd1e475d99
2 changed files with 47 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
init.el
View File

@ -39,16 +39,14 @@ PACKAGE is installed and the current version is deleted."
(defvar do-package-update-on-init t) (defvar do-package-update-on-init t)
(require 'time-stamp) (require 'time-stamp)
;; Open the 'user-init-file' and write any changes. ;; Open the package-last-update-file
(with-temp-file user-init-file (with-temp-file package-last-update-file
(if (file-exists-p package-last-update-file)
(progn
;; Insert it's original content's. ;; Insert it's original content's.
(insert-file-contents user-init-file) (insert-file-contents package-last-update-file)
(forward-line time-stamp-line-limit) (let ((start (re-search-forward time-stamp-start nil t))
(let ((bound (point))) (end (re-search-forward time-stamp-end nil t)))
(goto-char (point-min))
;; We search for the time-stamp.
(let ((start (re-search-forward time-stamp-start bound t))
(end (re-search-forward time-stamp-end bound t)))
(when (and start end) (when (and start end)
;; Assuming we have found a time-stamp, we check determine if it's ;; Assuming we have found a time-stamp, we check determine if it's
;; time to update. ;; time to update.
@ -59,7 +57,10 @@ PACKAGE is installed and the current version is deleted."
(buffer-substring-no-properties start end)))) (buffer-substring-no-properties start end))))
;; Remember to update the time-stamp. ;; Remember to update the time-stamp.
(when do-package-update-on-init (when do-package-update-on-init
(time-stamp)))))) (time-stamp)))))
;; If no such file exists it is created with a time-stamp.
(insert "Time-stamp: <>")
(time-stamp)))
(when do-package-update-on-init (when do-package-update-on-init
(package-refresh-contents)) (package-refresh-contents))

28
init.org
View File

@ -96,23 +96,20 @@
The tricky part is figuring out when the last time the Emacs was updated! The tricky part is figuring out when the last time the Emacs was updated!
Here is a hacky way of doing it, using [[http://www.gnu.org/software/emacs/manual/html_node/emacs/Time-Stamps.html][time-stamps]]. By adding a Here is a hacky way of doing it, using [[http://www.gnu.org/software/emacs/manual/html_node/emacs/Time-Stamps.html][time-stamps]]. By adding a
time-stamp to the init file, we can search for it and determine wither or time-stamp to the a file, we can determine wither or not to do an
not to do an update. After that we must run the =time-stamp=-function to update. After that we must run the =time-stamp=-function to update the
update the time-stamp. Note that if there is no time-stamp in the time-stamp.
init-file then packages will be updated every time you start Emacs.
#+BEGIN_SRC emacs-lisp :tangle yes #+BEGIN_SRC emacs-lisp :tangle yes
(require 'time-stamp) (require 'time-stamp)
;; Open the 'user-init-file' and write any changes. ;; Open the package-last-update-file
(with-temp-file user-init-file (with-temp-file package-last-update-file
(if (file-exists-p package-last-update-file)
(progn
;; Insert it's original content's. ;; Insert it's original content's.
(insert-file-contents user-init-file) (insert-file-contents package-last-update-file)
(forward-line time-stamp-line-limit) (let ((start (re-search-forward time-stamp-start nil t))
(let ((bound (point))) (end (re-search-forward time-stamp-end nil t)))
(goto-char (point-min))
;; We search for the time-stamp.
(let ((start (re-search-forward time-stamp-start bound t))
(end (re-search-forward time-stamp-end bound t)))
(when (and start end) (when (and start end)
;; Assuming we have found a time-stamp, we check determine if it's ;; Assuming we have found a time-stamp, we check determine if it's
;; time to update. ;; time to update.
@ -123,7 +120,10 @@
(buffer-substring-no-properties start end)))) (buffer-substring-no-properties start end))))
;; Remember to update the time-stamp. ;; Remember to update the time-stamp.
(when do-package-update-on-init (when do-package-update-on-init
(time-stamp)))))) (time-stamp)))))
;; If no such file exists it is created with a time-stamp.
(insert "Time-stamp: <>")
(time-stamp)))
#+END_SRC #+END_SRC
Now we can use the function above to make sure packages are installed and Now we can use the function above to make sure packages are installed and