General refactor & cleanup

+ refactor package management
+ core-editor: describe ediff
+ core-popups: alphabetized hack blocks
+ ui/doom-modeline: refactor buffer path fn
+ feature/version-control/+git: autoload magit-blame
This commit is contained in:
Henrik Lissner 2017-05-14 09:49:09 +02:00
parent af88423b35
commit 25fa4e019c
5 changed files with 21 additions and 21 deletions

View file

@ -11,7 +11,7 @@
(when last-refresh
(setq doom--last-refresh last-refresh)))
(when (or (not doom--last-refresh)
(> (nth 1 (time-since doom--last-refresh)) 600))
(> (nth 1 (time-since doom--last-refresh)) 900))
(package-refresh-contents)
(persistent-soft-store
'last-pkg-refresh (setq doom--last-refresh (current-time))
@ -22,15 +22,17 @@
"Get which backend the package NAME was installed with. Can either be elpa,
quelpa or nil (if not installed)."
(doom-initialize)
(unless (quelpa-setup-p)
(error "Could not initialize quelpa"))
(cond ((let ((plist (cdr (assq name doom-packages))))
(and (not (plist-get plist :pin))
(or (quelpa-setup-p)
(error "Could not initialize quelpa"))
(or (assq name quelpa-cache)
(plist-get plist :recipe))))
'quelpa)
((assq name package-alist)
'elpa)))
'elpa)
(t
(error "%s package not installed" name))))
;;;###autoload
(defun doom-package-outdated-p (name)
@ -46,7 +48,7 @@ list of the package."
(let ((recipe (assq name quelpa-cache))
(dir (expand-file-name (symbol-name name) quelpa-build-dir))
(inhibit-message t))
(if-let (ver (and (quelpa-setup-p) (quelpa-checkout recipe dir)))
(if-let (ver (quelpa-checkout recipe dir))
(version-to-list ver)
old-version)))
('elpa
@ -70,8 +72,6 @@ the packages relevant to that backend.
Warning: this function is expensive; it re-evaluates all of doom's config files.
Be careful not to use it in a loop."
(doom-initialize-packages t)
(unless (quelpa-setup-p)
(error "Could not initialize quelpa"))
(delq nil
(mapcar (lambda (pkgsym)
(or (assq pkgsym doom-packages)