Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
E
el-get
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Benoit Bayol
el-get
Commits
5dfadefe
Commit
5dfadefe
authored
Jun 18, 2012
by
Ryan C. Thompson
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add support for update hooks
Previously we had install hooks but no update hooks.
parent
4ad42c3b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
4 deletions
+9
-4
el-get-core.el
el-get-core.el
+3
-3
el-get.el
el-get.el
+6
-1
No files found.
el-get-core.el
View file @
5dfadefe
...
...
@@ -56,8 +56,8 @@ call for doing the named package action in the given method.")
(
and
(
el-get-method
name
:install
)
t
))
(
defun*
el-get-register-method
(
name
&key
install
update
remove
install-hook
remove-hook
compute-checksum
guess-website
)
install-hook
update-hook
remove-hook
compute-checksum
guess-website
)
"Register the method for backend NAME, with given functions"
(
let
(
method-def
)
(
loop
for
required-arg
in
'
(
install
update
remove
)
...
...
@@ -67,7 +67,7 @@ call for doing the named package action in the given method.")
(
plist-put
method-def
(
intern
(
format
":%s"
required-arg
))
(
symbol-value
required-arg
))))
(
loop
for
optional-arg
in
'
(
install-hook
remove-hook
(
loop
for
optional-arg
in
'
(
install-hook
update-hook
remove-hook
compute-checksum
guess-website
)
if
(
symbol-value
optional-arg
)
do
(
setq
method-def
...
...
el-get.el
View file @
5dfadefe
...
...
@@ -705,8 +705,13 @@ PACKAGE may be either a string or the corresponding symbol."
(
defun
el-get-post-update
(
package
)
"Post update PACKAGE. This will get run by a sentinel."
(
let*
((
sync
el-get-default-process-sync
)
(
source
(
el-get-package-def
package
))
(
type
(
el-get-package-type
package
))
(
hooks
(
el-get-method
type
:update-hook
))
(
commands
(
el-get-build-commands
package
)))
;; post-update is the right place to run update-hook
(
run-hook-with-args
hooks
package
)
(
el-get-build
package
commands
nil
sync
'el-get-post-update-build
)))
(
defun
el-get-update-requires-reinstall
(
package
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment