MathematicaPackageInstall.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     15034,        491]
NotebookOptionsPosition[     10702,        347]
NotebookOutlinePosition[     12549,        404]
CellTagsIndexPosition[     12218,        393]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
This is just for convenience, if opened from inside Workbench:\
\>", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"PrependTo", "[", 
   RowBox[{"$Path", ",", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ParentDirectory", "@", 
        RowBox[{"NotebookDirectory", "[", "]"}]}], ",", "\"\<Unzip\>\""}], 
      "}"}], "]"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"PrependTo", "[", 
   RowBox[{"$Path", ",", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ParentDirectory", "@", 
        RowBox[{"NotebookDirectory", "[", "]"}]}], ",", 
       "\"\<CopyRemote\>\""}], "}"}], "]"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"PrependTo", "[", 
   RowBox[{"$Path", ",", 
    RowBox[{"NotebookDirectory", "[", "]"}]}], "]"}], ";"}]}], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"FindFile", "[", "\"\<MathematicaPackageInstall`\>\"", "]"}], "===",
      "$Failed"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Get", "@", "\"\<http://goo.gl/Ncbbi6\>\""}]}], "]"}], 
  ";"}]], "Input"],

Cell["\<\
http://goo.gl/Ncbbi6\[CloseCurlyDoubleQuote]
is a shortcut for 
\[OpenCurlyDoubleQuote]https://raw.githubusercontent.com/rolfmertig/\
MathematicaPackageInstall/master/MathematicaPackageInstall/\
MathematicaPackageInstall.m\[CloseCurlyDoubleQuote]\
\>", "Text"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<MathematicaPackageInstall`\>\"", "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "MathematicaPackageInstall"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"MathematicaPackageInstall[\\\"MyPackage\\\"] or \
\\nMathematicaPackageInstall[\\\"https://github.com/rolfmertig/MyPackage/\
archive/master.zip\\\"] \\ndownloads and unzips master.zip from \
$WebRepository/MyPackage/archive/master.zip,\\nto the directory specified by \
the setting specified by the option Directory,\\ninstalling to \
$UserBaseDirectory/Applications by default.\\n$WebRepository is set to  \
\\\"https://github.com/rolfmertig/\\\" by default, but can be changed.\\nIf \
MyPackage already exists it is overwritten, no backups are done.\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3639249433-1534712"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "MathematicaPackageUninstall"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"MathematicaPackageUninstall[\\\"MyPackage\\\"] uninstalls \
(deletes) MyPackage from \\nthe Applications folder in \
$UserBaseDirectory.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3639249433-1534712"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "CopyRemote"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"CopyRemote[urlfile] copies a urlfile as \
URLFileNameTake[urlfile] to $TemporaryDirectory.\\n CopyRemote[url, \
localfile] copies a file from an url to localfile.\"\>", "MSG"]], "Print", \
"PrintUsage",
 CellTags->"Info3639249433-1534712"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["$WebRepository"], "Input"],

Cell[BoxData["\<\"https://github.com/rolfmertig/\"\>"], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"MathematicaPackageUninstall", "[", "\"\<Unzip\>\"", "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "MathematicaPackageInstall"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"MathematicaPackageInstall[\\\"MyPackage\\\"] or \
\\nMathematicaPackageInstall[\\\"https://github.com/rolfmertig/MyPackage/\
archive/master.zip\\\"] \\ndownloads and unzips master.zip from \
$WebRepository/MyPackage/archive/master.zip,\\nto the directory specified by \
the setting specified by the option Directory,\\ninstalling to \
$UserBaseDirectory/Applications by default.\\n$WebRepository is set to  \
\\\"https://github.com/rolfmertig/\\\" by default, but can be changed.\\nIf \
MyPackage already exists it is overwritten, no backups are done.\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3639249433-1534712"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "MathematicaPackageInstall", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{"Protected", ",", "ReadProtected"}], "}"}]}]},
    {" "},
    {GridBox[{
       {
        RowBox[{
         RowBox[{"Options", "[", "MathematicaPackageInstall", "]"}], "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directory", "\[RuleDelayed]", "$InstallerDirectory"}], 
           ",", 
           RowBox[{"Print", "\[Rule]", "False"}]}], "}"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[MathematicaPackageInstall`MathematicaPackageInstall],
  Editable->False]], "Print",
 CellTags->"Info3639249433-1534712"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MathematicaPackageInstall", "[", "\"\<Unzip\>\"", "]"}]], "Input"],

Cell[BoxData["\<\"C:\\\\Users\\\\Rolf \
Mertig\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\Unzip\"\>"], \
"Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"MathematicaPackageUninstall", "[", "\"\<CopyRemote\>\"", 
  "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MathematicaPackageInstall", "[", "\"\<CopyRemote\>\"", 
  "]"}]], "Input"],

Cell[BoxData["\<\"C:\\\\Users\\\\Rolf \
Mertig\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\CopyRemote\"\>\
"], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"MathematicaPackageUninstall", "[", "\"\<MSFTP\>\"", "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MathematicaPackageInstall", "[", "\"\<MSFTP\>\"", "]"}]], "Input"],

Cell[BoxData["\<\"C:\\\\Users\\\\Rolf \
Mertig\\\\AppData\\\\Roaming\\\\Mathematica\\\\Applications\\\\MSFTP\"\>"], \
"Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "InstallPalette"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"InstallPalette[\\\"http://www.mertig.com/mathdepot/ButtonTools.\
nb\\\"] installs ButtonTools.nb into \\nthe default directory specified by \
the option Directory.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3639249479-1534712"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InstallPalette", "[", 
  "\"\<http://www.mertig.com/mathdepot/ButtonTools.nb\>\"", "]"}]], "Input"],

Cell[BoxData[
 TemplateBox[{FrontEndObject[
    LinkObject["bd4rx_shm", 3, 1]],145,
   "FrontEndObject[LinkObject[\"bd4rx_shm\", 3, 1]]","145",
   "\"ButtonTools.nb\"",
   "\"C:\\\\Users\\\\Rolf \
Mertig\\\\AppData\\\\Roaming\\\\Mathematica\\\\SystemFiles\\\\FrontEnd\\\\\
Palettes\\\\ButtonTools.nb\""},
  "NotebookObject"]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "UninstallPalette"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"UninstallPalette[\\\"ButtonTools.nb\\\"] uninstalls \
ButtonTools.nb from the directory specified by the option\\nDirectory. Please \
close the palette first before calling UninstallPalette.\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3639249518-1534712"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "URLNeeds"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"URLNeeds[\\\"MyPackage`\\\"] loads MyPackage.m from \
$WebRepository/MyPackage/master/MyPackage/MyPackage.m\"\>", "MSG"]], "Print", \
"PrintUsage",
 CellTags->"Info3639249526-1534712"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "$AutomaticInstall"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"If $AutomaticInstall is set to True, \\nthe three packages \
MathematicaPackageInstall`, CopyRemote` and Unzip` are installed locally \
already when loading this\\npackage the first time. Otherwise they are loaded \
from the internet.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3639249536-1534712"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "$InstallerDirectory"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"$InstallerDirectory is the directory to install packages to. \
\\n\\tIt is set by default to \
FileNameJoin[{$UserBaseDirectory,\\\"Applications\\\"}].\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3639249545-1534712"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "$WebRepository"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"$WebRepository is the base url (default \
\\\"http://github.com/rolfmertig/\\\" ) where the packages are.\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info3639249569-1534712"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
        "$WebRepository", "=", "\<\"https://github.com/rolfmertig/\"\>"}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[MathematicaPackageInstall`$WebRepository],
  Editable->False]], "Print",
 CellTags->"Info3639249569-1534712"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Names", "[", "\"\<MathematicaPackageInstall`*\>\"", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"InstallPalette\"\>", ",", "\<\"MathematicaPackageInstall\"\>", 
   ",", "\<\"MathematicaPackageUninstall\"\>", 
   ",", "\<\"UninstallPalette\"\>", ",", "\<\"URLNeeds\"\>", 
   ",", "\<\"$AutomaticInstall\"\>", ",", "\<\"$InstallerDirectory\"\>", 
   ",", "\<\"$WebRepository\"\>"}], "}"}]], "Output"]
}, Open  ]]
},
Editable->True,
WindowSize->{1215, 911},
WindowMargins->{{6, Automatic}, {34, Automatic}},
Magnification:>1.6 Inherited,
FrontEndVersion->"10.1 for Microsoft Windows (64-bit) (March 23, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3639249433-1534712"->{
  Cell[2141, 74, 658, 10, 261, "Print",
   CellTags->"Info3639249433-1534712"],
  Cell[2909, 92, 240, 4, 101, "Print",
   CellTags->"Info3639249433-1534712"],
  Cell[3242, 104, 268, 5, 101, "Print",
   CellTags->"Info3639249433-1534712"],
  Cell[3881, 129, 658, 10, 261, "Print",
   CellTags->"Info3639249433-1534712"],
  Cell[4542, 141, 1180, 32, 82, "Print",
   CellTags->"Info3639249433-1534712"]},
 "Info3639249479-1534712"->{
  Cell[6813, 220, 267, 4, 101, "Print",
   CellTags->"Info3639249479-1534712"]},
 "Info3639249518-1534712"->{
  Cell[7678, 249, 297, 5, 101, "Print",
   CellTags->"Info3639249518-1534712"]},
 "Info3639249526-1534712"->{
  Cell[8066, 262, 213, 4, 68, "Print",
   CellTags->"Info3639249526-1534712"]},
 "Info3639249536-1534712"->{
  Cell[8379, 274, 338, 5, 133, "Print",
   CellTags->"Info3639249536-1534712"]},
 "Info3639249545-1534712"->{
  Cell[8819, 287, 258, 5, 101, "Print",
   CellTags->"Info3639249545-1534712"]},
 "Info3639249569-1534712"->{
  Cell[9197, 302, 212, 4, 68, "Print",
   CellTags->"Info3639249569-1534712"],
  Cell[9412, 308, 785, 21, 33, "Print",
   CellTags->"Info3639249569-1534712"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3639249433-1534712", 11055, 359},
 {"Info3639249479-1534712", 11486, 370},
 {"Info3639249518-1534712", 11596, 373},
 {"Info3639249526-1534712", 11706, 376},
 {"Info3639249536-1534712", 11815, 379},
 {"Info3639249545-1534712", 11925, 382},
 {"Info3639249569-1534712", 12035, 385}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 86, 2, 47, "Text"],
Cell[647, 24, 741, 22, 135, "Input"],
Cell[1391, 48, 287, 8, 77, "Input"],
Cell[1681, 58, 270, 6, 137, "Text"],
Cell[1954, 66, 91, 1, 47, "Input"],
Cell[CellGroupData[{
Cell[2070, 71, 68, 1, 47, "Input"],
Cell[2141, 74, 658, 10, 261, "Print",
 CellTags->"Info3639249433-1534712"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2836, 89, 70, 1, 47, "Input"],
Cell[2909, 92, 240, 4, 101, "Print",
 CellTags->"Info3639249433-1534712"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3186, 101, 53, 1, 47, "Input"],
Cell[3242, 104, 268, 5, 101, "Print",
 CellTags->"Info3639249433-1534712"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3547, 114, 40, 0, 47, "Input"],
Cell[3590, 116, 65, 0, 47, "Output"]
}, Open  ]],
Cell[3670, 119, 92, 1, 47, "Input"],
Cell[CellGroupData[{
Cell[3787, 124, 69, 1, 47, "Input"],
Cell[CellGroupData[{
Cell[3881, 129, 658, 10, 261, "Print",
 CellTags->"Info3639249433-1534712"],
Cell[4542, 141, 1180, 32, 82, "Print",
 CellTags->"Info3639249433-1534712"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5771, 179, 90, 1, 47, "Input"],
Cell[5864, 182, 127, 2, 47, "Output"]
}, Open  ]],
Cell[6006, 187, 100, 2, 47, "Input"],
Cell[CellGroupData[{
Cell[6131, 193, 98, 2, 47, "Input"],
Cell[6232, 197, 132, 2, 47, "Output"]
}, Open  ]],
Cell[6379, 202, 92, 1, 47, "Input"],
Cell[CellGroupData[{
Cell[6496, 207, 90, 1, 47, "Input"],
Cell[6589, 210, 127, 2, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6753, 217, 57, 1, 47, "Input"],
Cell[6813, 220, 267, 4, 101, "Print",
 CellTags->"Info3639249479-1534712"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7117, 229, 123, 2, 47, "Input"],
Cell[7243, 233, 336, 8, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7616, 246, 59, 1, 47, "Input"],
Cell[7678, 249, 297, 5, 101, "Print",
 CellTags->"Info3639249518-1534712"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8012, 259, 51, 1, 47, "Input"],
Cell[8066, 262, 213, 4, 68, "Print",
 CellTags->"Info3639249526-1534712"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8316, 271, 60, 1, 47, "Input"],
Cell[8379, 274, 338, 5, 133, "Print",
 CellTags->"Info3639249536-1534712"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8754, 284, 62, 1, 47, "Input"],
Cell[8819, 287, 258, 5, 101, "Print",
 CellTags->"Info3639249545-1534712"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9114, 297, 58, 1, 47, "Input"],
Cell[CellGroupData[{
Cell[9197, 302, 212, 4, 68, "Print",
 CellTags->"Info3639249569-1534712"],
Cell[9412, 308, 785, 21, 33, "Print",
 CellTags->"Info3639249569-1534712"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10246, 335, 92, 1, 47, "Input"],
Cell[10341, 338, 345, 6, 106, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)