Merge pull request #4 from jaakkor2/doc_properties

Add helper for lxw_doc_properties, add test doc_properties

Author: jaakkor2

.github/workflows/CI.yml

@@ -24,7 +24,6 @@ jobs:
       matrix:
         version:
           - '1.10'
-          - '1.6'
           - 'pre'
         os:
           - ubuntu-latest

Project.toml

@@ -1,7 +1,7 @@
 name = "LibXLSXWriter"
 uuid = "d9c5391f-cdb8-42e0-9032-91a2542ec5a4"
 authors = ["Jaakko Ruohio [email protected]"]
-version = "0.1.0"
+version = "0.1.1"
 
 [deps]
 CEnum = "fa961155-64e5-5f13-b03f-caf6b980ea82"

src/LibXLSXWriter.jl

@@ -11,6 +11,10 @@ lxw_chart_line(; color=0x0, none=0x0, width=0.0, dash_type=0x0, transparency=0x0
 lxw_chart_pattern(; fg_color=0x0, bg_color=0x0, type=0x0) = lxw_chart_pattern(fg_color, bg_color, type)
 lxw_chart_point(; line=lxw_chart_line(), fill=lxw_chart_fill(), pattern=lxw_chart_pattern()) = lxw_chart_point(Ptr{line}(), Ptr{fill}(), Ptr{pattern}())
 
+Cs(mystring) = Base.unsafe_convert(Cstring, mystring)
+lxw_doc_properties(; title="", subject="", author="", manager="", company="", category="", keywords="", comments="", status="", hyperlink_base="", created=0) =
+   Ref(lxw_doc_properties(Cs(title), Cs(subject), Cs(author), Cs(manager), Cs(company), Cs(category), Cs(keywords), Cs(comments), Cs(status), Cs(hyperlink_base), created))
+
 # utility.h
 CELL(cell) = lxw_name_to_row(cell), lxw_name_to_col(cell)
 COLS(cols) = lxw_name_to_col(cols), lxw_name_to_col_2(cols)

test/doc_properties.jl

@@ -0,0 +1,28 @@
+# https://github.com/jmcnamara/libxlsxwriter/blob/main/examples/doc_properties.c
+
+using LibXLSXWriter: workbook_new, workbook_add_worksheet, lxw_doc_properties, workbook_set_properties, worksheet_set_column, worksheet_write_string, workbook_close
+
+workbook = workbook_new("doc_properties.xlsx")
+worksheet = workbook_add_worksheet(workbook, C_NULL)
+
+# Create a properties structure and set some of the fields.
+properties = lxw_doc_properties(
+    title    = "This is an example spreadsheet",
+    subject  = "With document properties",
+    author   = "John McNamara",
+    manager  = "Dr. Heinz Doofenshmirtz",
+    company  = "of Wolves",
+    category = "Example spreadsheets",
+    keywords = "Sample, Example, Properties",
+    comments = "Created with libxlsxwriter",
+    status   = "Quo",
+)
+
+# Set the properties in the workbook.
+workbook_set_properties(workbook, properties)
+
+# Add some text to the file.
+worksheet_set_column(worksheet, 0, 0, 50, C_NULL)
+worksheet_write_string(worksheet, 0, 0, "Select 'Workbook Properties' to see properties." , C_NULL)
+
+workbook_close(workbook)

test/runtests.jl

@@ -16,6 +16,9 @@ end
 @testset "demo" begin
     include("demo.jl")
 end
+@testset "doc_properties" begin
+    include("doc_properties.jl")
+end
 @testset "format_num_format" begin
     include("format_num_format.jl")
 end