Added support for Homesite palette files (hpl)

Author: dagronf

Quicklook/Palette Viewer/Palette Viewer.xcodeproj/project.pbxproj

@@ -770,7 +770,7 @@
 					"@executable_path/../../../../Frameworks",
 				);
 				MACOSX_DEPLOYMENT_TARGET = 13.0;
-				MARKETING_VERSION = 2.0.7;
+				MARKETING_VERSION = 2.0.8;
 				PRODUCT_BUNDLE_IDENTIFIER = "org.dagronf.palette-viewer.gradient-thumbnail-generator";
 				PRODUCT_NAME = "$(TARGET_NAME)";
 				SKIP_INSTALL = YES;
@@ -800,7 +800,7 @@
 					"@executable_path/../../../../Frameworks",
 				);
 				MACOSX_DEPLOYMENT_TARGET = 13.0;
-				MARKETING_VERSION = 2.0.7;
+				MARKETING_VERSION = 2.0.8;
 				PRODUCT_BUNDLE_IDENTIFIER = "org.dagronf.palette-viewer.gradient-thumbnail-generator";
 				PRODUCT_NAME = "$(TARGET_NAME)";
 				SKIP_INSTALL = YES;
@@ -947,7 +947,7 @@
 					"@executable_path/../../../../Frameworks",
 				);
 				MACOSX_DEPLOYMENT_TARGET = 13.0;
-				MARKETING_VERSION = 2.0.7;
+				MARKETING_VERSION = 2.0.8;
 				PRODUCT_BUNDLE_IDENTIFIER = "org.dagronf.palette-viewer.quicklook-palette";
 				PRODUCT_NAME = "$(TARGET_NAME)";
 				SKIP_INSTALL = YES;
@@ -977,7 +977,7 @@
 					"@executable_path/../../../../Frameworks",
 				);
 				MACOSX_DEPLOYMENT_TARGET = 13.0;
-				MARKETING_VERSION = 2.0.7;
+				MARKETING_VERSION = 2.0.8;
 				PRODUCT_BUNDLE_IDENTIFIER = "org.dagronf.palette-viewer.quicklook-palette";
 				PRODUCT_NAME = "$(TARGET_NAME)";
 				SKIP_INSTALL = YES;
@@ -1012,7 +1012,7 @@
 					"@executable_path/../Frameworks",
 				);
 				MACOSX_DEPLOYMENT_TARGET = 14.0;
-				MARKETING_VERSION = 2.0.7;
+				MARKETING_VERSION = 2.0.8;
 				PRODUCT_BUNDLE_IDENTIFIER = "org.dagronf.palette-viewer";
 				PRODUCT_NAME = "$(TARGET_NAME)";
 				SWIFT_EMIT_LOC_STRINGS = YES;
@@ -1046,7 +1046,7 @@
 					"@executable_path/../Frameworks",
 				);
 				MACOSX_DEPLOYMENT_TARGET = 14.0;
-				MARKETING_VERSION = 2.0.7;
+				MARKETING_VERSION = 2.0.8;
 				PRODUCT_BUNDLE_IDENTIFIER = "org.dagronf.palette-viewer";
 				PRODUCT_NAME = "$(TARGET_NAME)";
 				SWIFT_EMIT_LOC_STRINGS = YES;
@@ -1075,7 +1075,7 @@
 					"@executable_path/../../../../Frameworks",
 				);
 				MACOSX_DEPLOYMENT_TARGET = 13.0;
-				MARKETING_VERSION = 2.0.7;
+				MARKETING_VERSION = 2.0.8;
 				PRODUCT_BUNDLE_IDENTIFIER = "org.dagronf.palette-viewer.palette-thumbnail-generator";
 				PRODUCT_NAME = "$(TARGET_NAME)";
 				SKIP_INSTALL = YES;
@@ -1105,7 +1105,7 @@
 					"@executable_path/../../../../Frameworks",
 				);
 				MACOSX_DEPLOYMENT_TARGET = 13.0;
-				MARKETING_VERSION = 2.0.7;
+				MARKETING_VERSION = 2.0.8;
 				PRODUCT_BUNDLE_IDENTIFIER = "org.dagronf.palette-viewer.palette-thumbnail-generator";
 				PRODUCT_NAME = "$(TARGET_NAME)";
 				SKIP_INSTALL = YES;
@@ -1136,7 +1136,7 @@
 					"@executable_path/../../../../Frameworks",
 				);
 				MACOSX_DEPLOYMENT_TARGET = 13.0;
-				MARKETING_VERSION = 2.0.7;
+				MARKETING_VERSION = 2.0.8;
 				PRODUCT_BUNDLE_IDENTIFIER = "org.dagronf.palette-viewer.quicklook-gradient";
 				PRODUCT_NAME = "$(TARGET_NAME)";
 				SKIP_INSTALL = YES;
@@ -1167,7 +1167,7 @@
 					"@executable_path/../../../../Frameworks",
 				);
 				MACOSX_DEPLOYMENT_TARGET = 13.0;
-				MARKETING_VERSION = 2.0.7;
+				MARKETING_VERSION = 2.0.8;
 				PRODUCT_BUNDLE_IDENTIFIER = "org.dagronf.palette-viewer.quicklook-gradient";
 				PRODUCT_NAME = "$(TARGET_NAME)";
 				SKIP_INSTALL = YES;

Quicklook/Palette Viewer/Palette Viewer/Info.plist

@@ -558,6 +558,20 @@
 			<key>NSDocumentClass</key>
 			<string>$(PRODUCT_MODULE_NAME).Document</string>
 		</dict>
+		<dict>
+			<key>CFBundleTypeName</key>
+			<string>Homesite Palette</string>
+			<key>CFBundleTypeRole</key>
+			<string>Editor</string>
+			<key>LSHandlerRank</key>
+			<string>Default</string>
+			<key>LSItemContentTypes</key>
+			<array>
+				<string>public.dagronf.colorpalette.palette.homesite</string>
+			</array>
+			<key>NSDocumentClass</key>
+			<string>$(PRODUCT_MODULE_NAME).Document</string>
+		</dict>
 	</array>
 	<key>UTExportedTypeDeclarations</key>
 	<array>
@@ -1230,6 +1244,25 @@
 				</array>
 			</dict>
 		</dict>
+		<dict>
+			<key>UTTypeConformsTo</key>
+			<array>
+				<string>public.text</string>
+			</array>
+			<key>UTTypeDescription</key>
+			<string>Homesite Palette</string>
+			<key>UTTypeIcons</key>
+			<dict/>
+			<key>UTTypeIdentifier</key>
+			<string>public.dagronf.colorpalette.palette.homesite</string>
+			<key>UTTypeTagSpecification</key>
+			<dict>
+				<key>public.filename-extension</key>
+				<array>
+					<string>hpl</string>
+				</array>
+			</dict>
+		</dict>
 	</array>
 	<key>UTImportedTypeDeclarations</key>
 	<array>

Quicklook/Palette Viewer/PaletteViewerPaletteThumbnailGenerator/Info.plist

@@ -37,6 +37,7 @@
 				<string>public.dagronf.colorpalette.palette.xara.palette</string>
 				<string>public.dagronf.colorpalette.palette.sk1</string>
 				<string>public.dagronf.colorpalette.palette.koffice</string>
+				<string>public.dagronf.colorpalette.palette.homesite</string>
 			</array>
 			<key>QLThumbnailMinimumDimension</key>
 			<integer>0</integer>

Quicklook/Palette Viewer/PaletteViewerQuickLookPlugin/Info.plist

@@ -39,6 +39,7 @@
 				<string>public.dagronf.colorpalette.palette.xara.palette</string>
 				<string>public.dagronf.colorpalette.palette.sk1</string>
 				<string>public.dagronf.colorpalette.palette.koffice</string>
+				<string>public.dagronf.colorpalette.palette.homesite</string>
 			</array>
 			<key>QLSupportsSearchableItems</key>
 			<false/>

README.md

@@ -52,6 +52,7 @@ Supports the following :-
 * Xara Designer Palette format (`.jcw`)
 * SK1 Color Palette (`.skp`) ***Very basic support***  
 * KOffice Color Palette  (`.colors`)
+* Homesite Palette  (`.hpl`)
 
 ## Supported gradient formats
 
@@ -114,6 +115,7 @@ Some features :-
 |`PAL.Coder.DCP`                    | Built-in binary palette format (.dcp)       |
 |`PAL.Coder.GIMP`                   | GIMP palette files (.gpl)                   |
 |`PAL.Coder.HEX`                    | Hex Color Palette (`.hex`)                  |
+|`PAL.Coder.HPL`                    | Homesite Palette (`.hpl`)                   |
 |`PAL.Coder.Image`                  | Image files (.png, .jpg, .gif)              |
 |`PAL.Coder.JSON`                   | JSON encoded palette (.jsoncolorpalette)    |
 |`PAL.Coder.OpenOfficePaletteCoder` | OpenOffice Palette (.soc)                   |
@@ -212,6 +214,7 @@ let paletteData = palette.export(format: .ase)
 | `PAL.Coder.DCP`                    | Binary                 | ✅       | ✅       | ✅              | ✅                | ✅               | ✅                     | ✅                     | ✅               |
 | `PAL.Coder.GIMP`                   | Text                   | ✅       | ✅       | ✅              | ✅                | ❌               | ❌                     | RGB only               | ❌               |
 | `PAL.Coder.HEX`                    | Text                   | ✅       | ✅       | ❌              | ❌                | ❌               | ❌                     | RGB only               | ✅               |
+| `PAL.Coder.HPL`                    | Text                   | ✅       | ✅       | ❌              | ❌                | ❌               | ❌                     | RGB only               | ❌               |
 | `PAL.Coder.Image`                  | Binary                 | ✅       | ✅       | ❌              | ❌                | ❌               | ❌                     | ❌                     | ✅               |
 | `PAL.Coder.JSON`                   | JSON Text              | ✅       | ✅       | ✅              | ✅                | ✅               | ✅                     | ✅                     | ✅               |
 | `PAL.Coder.KOffice`                | Text                   | ✅       | ✅       | ✅              | ❌                | ❌               | ❌                     | RGB only               | ❌               |

Sources/ColorPaletteCodable/coders/palette/HPLPaletteCoder.swift

@@ -0,0 +1,111 @@
+//
+//  Copyright © 2025 Darren Ford. All rights reserved.
+//
+//  MIT license
+//
+//  Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated
+//  documentation files (the "Software"), to deal in the Software without restriction, including without limitation the
+//  rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
+//  permit persons to whom the Software is furnished to do so, subject to the following conditions:
+//
+//  The above copyright notice and this permission notice shall be included in all copies or substantial
+//  portions of the Software.
+//
+//  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
+//  WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS
+//  OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
+//  OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+import DSFRegex
+import Foundation
+
+public extension PAL.Coder {
+	/// Homesite Palette Decoder/Encoder
+	/// Allaire Homesite, Macromedia ColdFusion
+	struct HPL: PAL_PaletteCoder {
+		public let format: PAL.PaletteFormat = .hpl
+		public let name = "Homesite Palette"
+		public static var utTypeString: String = "public.dagronf.colorpalette.palette.homesite"
+		public let fileExtension = ["hpl"]
+	}
+}
+
+public extension PAL.Coder.HPL {
+	func decode(from inputStream: InputStream) throws -> PAL.Palette {
+		// Load a string from the input stream
+		guard let decoded = String.decode(from: inputStream) else {
+			ColorPaletteLogger.log(.error, "HPLCoder: Unexpected text encoding")
+			throw PAL.CommonError.invalidFormat
+		}
+		let content = decoded.text
+
+		let lines = content.lines
+		guard
+			lines.count > 0,
+			lines[0].contains("Palette"),
+			lines[1].contains("Version 4.0")
+		else {
+			throw PAL.CommonError.invalidFormat
+		}
+
+		var palette = PAL.Palette(format: self.format)
+		let colorRegex = try DSFRegex(#"^\s*(\d+)\s+(\d+)\s+(\d+).*$"#)
+
+		for line in lines.dropFirst(3) {
+			let lineStr = String(line)
+
+			if let match = colorRegex.matches(for: lineStr).matches.first {
+				let rs = lineStr[match.captures[0]]
+				let gs = lineStr[match.captures[1]]
+				let bs = lineStr[match.captures[2]]
+
+				guard
+					let rv = Int(rs),
+					let gv = Int(gs),
+					let bv = Int(bs)
+				else {
+					continue
+				}
+
+				let re = max(0, min(1, Double(rv) / 255.0))
+				let ge = max(0, min(1, Double(gv) / 255.0))
+				let be = max(0, min(1, Double(bv) / 255.0))
+
+				let c = try PAL.Color(colorSpace: .RGB, colorComponents: [re, ge, be])
+				palette.colors.append(c)
+			}
+		}
+		return palette
+	}
+}
+
+public extension PAL.Coder.HPL {
+	func encode(_ palette: PAL.Palette) throws -> Data {
+		// Write the header info
+		var result = "Palette\nVersion 4.0\n-----------\n"
+
+		// Flatten _all_ the colors in the palette (including global and group colors) to an RGB color list
+		let flattenedColors = try palette.allColors().map { try $0.converted(to: .RGB) }
+
+		for rgb in flattenedColors {
+			let c = try rgb.rgb()
+			result += "\(c.r255) \(c.g255) \(c.b255)\n"
+		}
+		guard let data = result.data(using: .utf8) else {
+			throw PAL.CommonError.unsupportedColorSpace
+		}
+
+		return data
+	}
+}
+
+// MARK: - UTType identifiers
+
+#if canImport(UniformTypeIdentifiers)
+import UniformTypeIdentifiers
+@available(macOS 11, iOS 14, tvOS 14, watchOS 7, *)
+public extension UTType {
+	static let homesitePalette = UTType(PAL.Coder.HPL.utTypeString)!
+}
+#endif

Sources/ColorPaletteCodable/palette/PAL+PaletteFormat.swift

@@ -60,6 +60,7 @@ public extension PAL {
 		case afpalette          // Affinity Designer .afpalette file
 		case xara               // Xara palette file (.jcw)
 		case koffice            // KOffice palette file (.colors)
+		case hpl                // Homesite Palette file (.hpl)
 
 		// This needs to go last, so it doesn't override the other PAL types
 		case vga24bit      // 24-bit RGB VGA (3 bytes RRGGBB)
@@ -111,6 +112,7 @@ public extension PAL.PaletteFormat {
 		case .afpalette          : return PAL.Coder.AFPaletteCoder()
 		case .xara               : return PAL.Coder.JCW()
 		case .koffice            : return PAL.Coder.KOffice()
+		case .hpl                : return PAL.Coder.HPL()
 		}
 	}
 }

Tests/ColorPaletteCodableTests/palette/HPLPaletteTests.swift

@@ -0,0 +1,42 @@
+@testable import ColorPaletteCodable
+import XCTest
+import Foundation
+
+class HPLPaletteTests: XCTestCase {
+
+	func testLoad1() throws {
+		let palette = try loadResourcePalette(named: "hpl1_v4.0.hpl")
+		let colors = palette.allColors()
+		XCTAssertEqual(colors.count, 287)
+	}
+
+	func testLoad2() throws {
+		let palette = try loadResourcePalette(named: "hpl2_v4.0.hpl")
+		let colors = palette.allColors()
+		XCTAssertEqual(colors.count, 256)
+	}
+
+	func testBasicSaveReload() throws {
+		let paletteURL = try XCTUnwrap(Bundle.module.url(forResource: "Default", withExtension: "gpl"))
+		let palette = try PAL.Palette.Decode(from: paletteURL)
+		XCTAssertEqual(23, palette.colors.count)
+
+		let saved = try PAL.Coder.HPL().encode(palette)
+
+		let loaded = try PAL.Coder.HPL().decode(from: saved)
+		XCTAssertEqual(23, loaded.colors.count)
+
+		// HPL doesn't save the color names
+		for color in loaded.colors {
+			XCTAssertEqual("", color.name)
+		}
+
+		XCTAssertEqual(loaded.colors[11].colorComponents[0], 0.509803921, accuracy: 0.0001)
+		XCTAssertEqual(loaded.colors[11].colorComponents[1], 0.498039215, accuracy: 0.0001)
+		XCTAssertEqual(loaded.colors[11].colorComponents[2], 0.0, accuracy: 0.01)
+
+		XCTAssertEqual(loaded.colors[13].colorComponents[0], 0.1, accuracy: 0.01)
+		XCTAssertEqual(loaded.colors[13].colorComponents[1], 0.1, accuracy: 0.01)
+		XCTAssertEqual(loaded.colors[13].colorComponents[2], 0.1, accuracy: 0.01)
+	}
+}

Tests/ColorPaletteCodableTests/palette/KOfficePaletteTests.swift

@@ -1,6 +1,5 @@
 @testable import ColorPaletteCodable
 import XCTest
-
 import Foundation
 
 class KOfficePaletteTests: XCTestCase {
@@ -36,3 +35,5 @@ class KOfficePaletteTests: XCTestCase {
 		XCTAssertEqual(loaded.colors[13].colorComponents[2], 0.1, accuracy: 0.01)
 	}
 }
+
+