trevordevore

/** 
* \brief Converts a styled text array to XHTML.
*
* \param pStyledTextA The array to convert.
*
* \return XHTML
*/
function ConvertStyledTextToXHTML pStyledTextA
   local theXHTML, theRun, theString
   local theListKey

trevordevore

/*
 To use: 
 1) Get path to file/folder using file selection dialog.
 2) Pass path to secscopGetBookmarkFromURL in order to get bookmark data for it.
 3) Store this bookmark data somehow.
 4) Tell the OS you want access to the file using secscopInitializeURLFromBookmarkData(). Store security-scoped url returned for later.
 5) When you are done using the file call secscopStopUsingURL.

 You will need to do steps 4 and 5 every time you want to open a file across sessions. For example, if you have a recent files menu or a folder that a user selects once and you write data to across sessions.
*/

trevordevore

/**
* \brief Converts a styledText array to Markdown.
*
* \param pTextA The styledText array to convert.
*
* Test while typing in a field:
* on textChanged
*   put StyledTextToMarkdown(the styledText of me)
*   pass textChanged
* end textChanged

trevordevore

function generateUUID
   local theError, theUUID
   
   switch the platform
      case "macos"
      case "linux"
         put shell("uuidgen") into theUUID
         put word 1 to -1 of theUUID into theUUID
         put the result into theError
         break

trevordevore

/**
* \brief Creates a zip file from a directory. The ZIP archive should already have been opened with revZipOpenArchive.
*
* \param pZipArchivePath The path to save the zip archive to. This should already have been opened with revZipOpenArchive.
* \param pRootFolderPath The folder to save in the zip archive.
* \param pIncludeRootFolderInArchiveItemNames Pass in true to include the name of pRootFolderPath in the zip archive.
* \param pFilesToExclude Files that should not be included in the archive.
* \param pExtensionsThatArentCompressed File extensions that should be added without any compression.
* \param pFolderPath Used when calling itself recursively. Pass in empty.
* 

trevordevore

# Put the VBScript into a variable and then execute as follows:

do theScript as "vbscript"
if the result begins with "error," then put item 2 to -1 of the result into theError
else
 put the result into theADUserInfo ## last name, first name & cr & group & tab & group ...
end if

trevordevore

/**
* Handlers for converting XML to LiveCode arrays and vice versa. 
*
* Provided by Trevor DeVore of Blue Mango Learning Systems.
*/

/**
* \brief Escapes the predefined XML entities in a string.
*
* \param pStr The string to escape the characters in.

trevordevore

-- declaring extension as widget, followed by identifier
widget com.livecode.extensions.devore.rotatingfont
--

-- adding metadata to ensure the extension displays correctly in livecode
metadata title is "Rotating Font"
metadata author is "Trevor DeVore"
metadata version is "1.0.1"
--

trevordevore

result = ""
theDomain = "[[Domain]]" 'domain with no trailing /
theQuery = "[[Query]]" 'query such as ou=Users,dc=...
theUser = "[[Username]]"
thePassword = "[[Password]]"

On Error resume next
Const E_ADS_PROPERTY_NOT_FOUND  = &h8000500D

LDAPString = "LDAP://"

trevordevore

script "SignApplicationForOSX"

on preOpenCard
   set the visible of this stack to true
   
   put the rect of this stack into tRect
   put item 1 of tRect + 400 into item 3 of tRect
   put item 2 of tRect + 400 into item 4 of tRect
   set the rect of this stack to tRect