Respect 80 chars per line in core-release-management.el

This commit is contained in:
syl20bnr 2016-08-03 20:35:40 -04:00
parent 265faecbba
commit d3ae04b29c
1 changed files with 25 additions and 22 deletions

View File

@ -50,16 +50,21 @@ users on `develop' branch must manually pull last commits instead."
(format "Version (default %s [latest]): " last-version)
nil nil last-version))))
(cond ((string-equal "develop" branch)
(message (concat "Cannot switch version because you are on develop.\n"
"You have to manually `pull --rebase' the latest commits.")))
(message (concat "Cannot switch version because you are on "
"develop.\n"
"You have to manually `pull --rebase' the latest "
"commits.")))
(dirty
(message "Your Emacs directory is not clean.\ngit status:\n%s" dirty))
(message (concat "Your Emacs directory is not clean.\n"
"git status:\n%s") dirty))
((string-equal version spacemacs-version)
(message "You are already on the latest version."))
((or (string-equal "master" branch)
(yes-or-no-p
(format (concat "You are not on master. This command will switch branches.\n"
"Are you sure that you want to switch to version %s ? ")
(format (concat "You are not on master. "
"This command will switch branches.\n"
"Are you sure that you want to switch "
"to version %s ? ")
version)))
(let ((tag (concat "v" version)))
(if (spacemacs/git-hard-reset-to-tag tag)
@ -68,8 +73,7 @@ users on `develop' branch must manually pull last commits instead."
(message "Succesfully switched to version %s" version))
(message "An error occurred while switching to version %s"
version))))
(t
(message "Update aborted.")))))
(t (message "Update aborted.")))))
(defun spacemacs/check-for-new-version (&optional interval)
"Periodicly check for new for new Spacemacs version.
@ -86,7 +90,8 @@ found."
(async-start
`(lambda ()
,(async-inject-variables "\\`spacemacs-start-directory\\'")
(load-file (concat spacemacs-start-directory "core/core-load-paths.el"))
(load-file (concat spacemacs-start-directory
"core/core-load-paths.el"))
(require 'core-spacemacs)
(spacemacs/get-last-version))
(lambda (result)
@ -103,9 +108,7 @@ found."
(setq spacemacs-version-check-timer
(run-at-time t (timer-duration interval)
'spacemacs/check-for-new-version))))
(t
(message "Skipping check for new version (reason: async not loaded)"))
))
(t (message "Skipping check for new version (reason: async not loaded)"))))
(defun spacemacs/get-last-version ()
"Return the last tagged version."