GrafoscopioUtils/repository/Grafoscopio-Utils/HedgeDoc.class.st

"
I model the interface between a CodiMD (https://demo.codimd.org) documentation 
server and Grafoscopio.
I enable the interaction between Grafoscopio notebooks and CodiMD documents,
so one document can start online (as a CodiMD pad) and continue as a Grafoscopio 
notebook or viceversa.
"
Class {
	#name : #HedgeDoc,
	#superclass : #Object,
	#instVars : [
		'server',
		'pad',
		'contents',
		'url'
	],
	#category : #'Grafoscopio-Utils'
}

{ #category : #'as yet unclassified' }
HedgeDoc class >> newDefault [
	^ self new
		defaultServer.
]

{ #category : #accessing }
HedgeDoc >> contents [
	^ contents
]

{ #category : #accessing }
HedgeDoc >> contents: anObject [
	contents := anObject
]

{ #category : #'as yet unclassified' }
HedgeDoc >> defaultServer [
	self server: 'https://docutopia.tupale.co'.
]

{ #category : #'as yet unclassified' }
HedgeDoc >> htmlUrl [
	| link |
	link := self url copy.
	link segments insert: 's' before: 1.
	^ link
]

{ #category : #'as yet unclassified' }
HedgeDoc >> importContents [
	self contents: self retrieveContents
]

{ #category : #accessing }
HedgeDoc >> pad [
	^ pad
]

{ #category : #accessing }
HedgeDoc >> pad: anObject [
	pad := anObject
]

{ #category : #'as yet unclassified' }
HedgeDoc >> retrieveContents [
	self url ifNil: [ ^ self ].
	^ (self url addPathSegment: 'download') retrieveContents
]

{ #category : #'as yet unclassified' }
HedgeDoc >> retrieveHtmlContents [
	| htmlContents |
	self url ifNil: [ ^ self ].
	htmlContents := self htmlUrl.
	^ htmlContents retrieveContents
]

{ #category : #'as yet unclassified' }
HedgeDoc >> saveContentsToFile: aFileLocator [
	self url ifNil: [ ^ self ].
	^ (self url addPathSegment: 'download') saveContentsToFile: aFileLocator
]

{ #category : #'as yet unclassified' }
HedgeDoc >> saveHtmlContentsToFile: aFileLocator [
	self url ifNil: [ ^ self ].
	^ self htmlUrl saveContentsToFile: aFileLocator
]

{ #category : #accessing }
HedgeDoc >> server [
	^ server
]

{ #category : #accessing }
HedgeDoc >> server: aUrlString [
	server := aUrlString
]

{ #category : #accessing }
HedgeDoc >> url [
	^ url asUrl
]

{ #category : #accessing }
HedgeDoc >> url: anObject [
	url := anObject
]

{ #category : #visiting }
HedgeDoc >> visit [
	WebBrowser openOn: self server, '/', self pad.
]