-
Notifications
You must be signed in to change notification settings - Fork 6
Expand file tree
/
Copy pathinstall.m
More file actions
29 lines (18 loc) · 771 Bytes
/
install.m
File metadata and controls
29 lines (18 loc) · 771 Bytes
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
(* ::Package:: *)
(* ::Text:: *)
(*Palettes directory:*)
(*FileNameJoin[{$BaseDirectory, "SystemFiles", "FrontEnd", "Palettes"}] *)
(*FileNameJoin[{$UserBaseDirectory, "SystemFiles", "FrontEnd", "Palettes"}] *)
FileOverwrite[file1_,file2_]:=
(If[FileType[file2]==File,DeleteFile[file2]];
CopyFile[file1,file2];)
(* ::Text:: *)
(*Install XRef palette.*)
FileOverwrite[FileNameJoin[{NotebookDirectory[],"FrontEnd","XRef Palette.nb"}],
FileNameJoin[{$UserBaseDirectory,
"SystemFiles", "FrontEnd", "Palettes","XRef Palette.nb"}]];
(* ::Text:: *)
(*Install style sheets*)
FileOverwrite[FileNameJoin[{NotebookDirectory[],"FrontEnd","Cambria Article.nb"}],
FileNameJoin[{$UserBaseDirectory,
"SystemFiles", "FrontEnd", "StyleSheets","Cambria Article.nb"}]];