aboutsummaryrefslog
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjahoti <jahoti@tilde.team>2021-09-15 00:00:00 +0000
committerjahoti <jahoti@tilde.team>2021-09-15 00:00:00 +0000
commit960363e7dd98a724246320e49c3fbaff9d68d1bd (patch)
tree226ff9344ac45e738b099bc72b29c9807f1fd56b
parente9b6187e0c5eaa4ac5ee41aacb261ae2da208c8f (diff)
downloadbrowser-extension-960363e7dd98a724246320e49c3fbaff9d68d1bd.tar.gz
browser-extension-960363e7dd98a724246320e49c3fbaff9d68d1bd.zip
Add default repository to default settingsnick
-rw-r--r--default_settings.json2
1 files changed, 1 insertions, 1 deletions
diff --git a/default_settings.json b/default_settings.json
index 89c59cf..e7ea2c3 100644
--- a/default_settings.json
+++ b/default_settings.json
@@ -1 +1 @@
-[{"shaketilo demo script":{"url":"","hash":"","text":"/**\n * Haketilo demo script.\n *\n * Copyright (C) Wojtek Kosior\n * Available under the terms of Creative Commons Zero\n * <https://creativecommons.org/publicdomain/zero/1.0/legalcode>\n */\n\nconst banner = document.createElement(\"h2\");\n\nbanner.textContent = \"Hoooray! Haketilo works :D\"\n\nbanner.setAttribute(\"style\", `\\\nmargin: 1em; \\\nborder-radius: 1em 0px; \\\nbackground-color: #474; \\\npadding: 10px 20px; \\\ncolor: #eee; \\\nbox-shadow: 0 6px 8px 0 rgba(0,0,0,0.24), 0 17px 50px 0 rgba(0,0,0,0.19); \\\ndisplay: inline-block;\\\n`);\n\ndocument.body.prepend(banner);"}},{"bhaketilo demo bag":[["s","haketilo demo script"]]},{"phttps://hachette-hydrilla.org":{"components":["b","haketilo demo bag"],"allow":false}}] \ No newline at end of file
+[{"shaketilo demo script":{"url":"","hash":"","text":"/**\n * Haketilo demo script.\n *\n * Copyright (C) Wojtek Kosior\n * Available under the terms of Creative Commons Zero\n * <https://creativecommons.org/publicdomain/zero/1.0/legalcode>\n */\n\nconst banner = document.createElement(\"h2\");\n\nbanner.textContent = \"Hoooray! Haketilo works :D\"\n\nbanner.setAttribute(\"style\", `\\\nmargin: 1em; \\\nborder-radius: 1em 0px; \\\nbackground-color: #474; \\\npadding: 10px 20px; \\\ncolor: #eee; \\\nbox-shadow: 0 6px 8px 0 rgba(0,0,0,0.24), 0 17px 50px 0 rgba(0,0,0,0.19); \\\ndisplay: inline-block;\\\n`);\n\ndocument.body.prepend(banner);"}},{"bhaketilo demo bag":[["s","haketilo demo script"]]},{"phttps://hachette-hydrilla.org":{"components":["b","haketilo demo bag"],"allow":false}},{"rhttps://api-demo.hachette-hydrilla.org":{}}]
on a ;;; per-host basis. ;;; ;;; Code: ;;; ;;; Declarations for resources that can be provisioned. ;;; (define-record-type* <environment-type> environment-type make-environment-type environment-type? ;; Interface to the environment type's deployment code. Each procedure ;; should take the same arguments as the top-level procedure of this file ;; that shares the same name. For example, 'machine-remote-eval' should be ;; of the form '(machine-remote-eval machine exp)'. (machine-remote-eval environment-type-machine-remote-eval) ; procedure (deploy-machine environment-type-deploy-machine) ; procedure (roll-back-machine environment-type-roll-back-machine) ; procedure ;; Metadata. (name environment-type-name) ; symbol (description environment-type-description ; string (default #f)) (location environment-type-location ; <location> (default (and=> (current-source-location) source-properties->location)) (innate))) ;;; ;;; Declarations for machines in a deployment. ;;; (define-record-type* <machine> machine make-machine machine? (operating-system %machine-operating-system); <operating-system> (environment machine-environment) ; symbol (configuration machine-configuration ; configuration object (default #f))) ; specific to environment (define (machine-operating-system machine) "Return the operating system of MACHINE." (operating-system-with-provenance (%machine-operating-system machine))) (define (machine-display-name machine) "Return the host-name identifying MACHINE." (operating-system-host-name (machine-operating-system machine))) (define (machine-remote-eval machine exp) "Evaluate EXP, a gexp, on MACHINE. Ensure that all the elements EXP refers to are built and deployed to MACHINE beforehand." (let ((environment (machine-environment machine))) ((environment-type-machine-remote-eval environment) machine exp))) (define (deploy-machine machine) "Monadic procedure transferring the new system's OS closure to the remote MACHINE, activating it on MACHINE and switching MACHINE to the new generation." (let ((environment (machine-environment machine))) ((environment-type-deploy-machine environment) machine))) (define (roll-back-machine machine) "Monadic procedure rolling back to the previous system generation on MACHINE. Return the number of the generation that was current before switching and the new generation number." (let ((environment (machine-environment machine))) ((environment-type-roll-back-machine environment) machine))) ;;; ;;; Error types. ;;; (define-condition-type &deploy-error &error deploy-error? (should-roll-back deploy-error-should-roll-back) (captured-args deploy-error-captured-args))