23 lines
677 B
Smalltalk
23 lines
677 B
Smalltalk
"
|
|
I provide common utilities for the use with the Brea CMS.
|
|
"
|
|
Class {
|
|
#name : #BreaUtils,
|
|
#superclass : #Object,
|
|
#category : #Brea
|
|
}
|
|
|
|
{ #category : #'as yet unclassified' }
|
|
BreaUtils class >> installSkeleton [
|
|
"I populate the folder and files structures for Brea documentation and customizations."
|
|
| skeleton destination |
|
|
GrafoscopioUtils
|
|
downloadingFrom: 'https://mutabit.com/repos.fossil/brea/zip'
|
|
withMessage: 'Dowloading files skeleton'
|
|
into: FileLocator temp.
|
|
skeleton := ZipArchive new readFrom: FileLocator temp / 'zip'.
|
|
destination := FileLocator home / '.local/share/Brea'.
|
|
destination ensureCreateDirectory.
|
|
skeleton extractAllTo: destination.
|
|
]
|