larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2025-11-04 01:20:11 +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

43
init.el
View File

@ -39,27 +39,28 @@ PACKAGE is installed and the current version is deleted."
(defvar do-package-update-on-init t)
(require 'time-stamp)
;; Open the 'user-init-file' and write any changes.
(with-temp-file user-init-file
;; Insert it's original content's.
(insert-file-contents user-init-file)
(forward-line time-stamp-line-limit)
(let ((bound (point)))
(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)
;; Assuming we have found a time-stamp, we check determine if it's
;; time to update.
(setq do-package-update-on-init
(<= days-between-updates
(days-between
(current-time-string)
(buffer-substring-no-properties start end))))
;; Remember to update the time-stamp.
(when do-package-update-on-init
(time-stamp))))))
;; Open the package-last-update-file
(with-temp-file package-last-update-file
(if (file-exists-p package-last-update-file)
(progn
;; Insert it's original content's.
(insert-file-contents package-last-update-file)
(let ((start (re-search-forward time-stamp-start nil t))
(end (re-search-forward time-stamp-end nil t)))
(when (and start end)
;; Assuming we have found a time-stamp, we check determine if it's
;; time to update.
(setq do-package-update-on-init
(<= days-between-updates
(days-between
(current-time-string)
(buffer-substring-no-properties start end))))
;; Remember to update the time-stamp.
(when do-package-update-on-init
(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
(package-refresh-contents))

50
init.org
View File

@ -96,34 +96,34 @@
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
time-stamp to the init file, we can search for it and determine wither or
not to do an update. After that we must run the =time-stamp=-function to
update the time-stamp. Note that if there is no time-stamp in the
init-file then packages will be updated every time you start Emacs.
time-stamp to the a file, we can determine wither or not to do an
update. After that we must run the =time-stamp=-function to update the
time-stamp.
#+BEGIN_SRC emacs-lisp :tangle yes
(require 'time-stamp)
;; Open the 'user-init-file' and write any changes.
(with-temp-file user-init-file
;; Insert it's original content's.
(insert-file-contents user-init-file)
(forward-line time-stamp-line-limit)
(let ((bound (point)))
(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)
;; Assuming we have found a time-stamp, we check determine if it's
;; time to update.
(setq do-package-update-on-init
(<= days-between-updates
(days-between
(current-time-string)
(buffer-substring-no-properties start end))))
;; Remember to update the time-stamp.
(when do-package-update-on-init
(time-stamp))))))
;; Open the package-last-update-file
(with-temp-file package-last-update-file
(if (file-exists-p package-last-update-file)
(progn
;; Insert it's original content's.
(insert-file-contents package-last-update-file)
(let ((start (re-search-forward time-stamp-start nil t))
(end (re-search-forward time-stamp-end nil t)))
(when (and start end)
;; Assuming we have found a time-stamp, we check determine if it's
;; time to update.
(setq do-package-update-on-init
(<= days-between-updates
(days-between
(current-time-string)
(buffer-substring-no-properties start end))))
;; Remember to update the time-stamp.
(when do-package-update-on-init
(time-stamp)))))
;; If no such file exists it is created with a time-stamp.
(insert "Time-stamp: <>")
(time-stamp)))
#+END_SRC
Now we can use the function above to make sure packages are installed and