/usr/share/doc/monotone/contrib/extra-commands.lua is in monotone 1.1-7.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 | alias_command("annotate", "blame")
alias_command("annotate", "praise")
function net_update(...)
-- could use 'mtn pull --update', or add --update to get_default_command_options for 'pull'
result, output = mtn_automate("get_option", "branch") -- make sure we have a valid workspace
if not result then
print("Error from mtn automate call to get_option: ", ouput)
print("Do you have a vaild workspace?")
return
end
result, output = mtn_automate("pull")
if not result then
print("Error from mtn automate call to pull: ", output)
return
end
result, output = mtn_automate("update")
if not result then
print("Error from mtn automate call to update: ", output)
return
end
-- print(output)
end
register_command("net_update", "", "Pull and update a workspace",
"This command approximates the update command of a centralised revision control system. " ..
"It first contacts the server to gather new revisions and then it updates the workspace.", "net_update")
alias_command("net_update", "nup")
function net_commit(...)
result, output = mtn_automate("get_option", "branch") -- make sure we have a valid workspace
if not result then
print("Error from mtn automate call to get_option: ", output)
print("Do you have a vaild workspace?")
return
end
result, output = mtn_automate("commit")
if not result then
print("Error from mtn automate call to commit: ", output)
return
end
print(output)
result, output = mtn_automate("pull")
if not result then
print("Error from mtn automate call to pull: ", output)
return
end
result, heads = mtn_automate("heads")
if not result then
print("Error from mtn automate call to heads: ", output)
return
end
words = 0
for word in string.gfind(heads, "[^%s]+") do words=words+1 end
if words == 1 then
result, output = mtn_automate("push")
if not result then
print("Error from mtn automate call to push: ", output)
return
end
else
print("There are multiple heads in your current branch.")
print("You should run 'mtn merge_update' to merge the heads and update.")
print("After you have verified the merged revision is ok, run 'mtn nci'")
print("again to commit and push the changes.")
end
end
register_command("net_commit", "", "Commit, pull and push a workspace",
"This command approximates the commit command of a centralised revision control system. " ..
"It first commits your work to the local repository, then contacts the server to gather " ..
"new revisions. If there is a single head at this point, then the local changes are pushed " ..
"to the server.", "net_commit")
alias_command("net_commit", "nci")
function merge_update(...)
-- could use 'mtn merge --update', or add --update to get_default_command_options for 'merge'
result, output = mtn_automate("get_option", "branch") -- make sure we have a valid workspace
if not result then
print("Error from mtn_automate call to get_option: ", output)
print("Do you have a vaild workspace?")
return
end
result, output = mtn_automate("merge")
if not result then
print("Error from mtn_automate call to heads: ", output)
return
end
-- print(output)
result, output = mtn_automate("update")
if not result then
print("Error from mtn_automate call to heads: ", output)
return
end
-- print(output)
end
register_command("merge_update", "", "Merge and update a workspace",
"This command merges multiple heads of a branch, and then updates the current workspace " ..
"to the resulting revision.", "merge_update")
alias_command("merge_update", "mup")
|