moved out of GtkIDE

Author: jonathanBieler

REQUIRE

@@ -1 +1,3 @@
-julia 0.6
+Gtk
+GtkExtensions
+julia 0.7

src/GtkMarkdownTextView.jl

@@ -1,5 +1,163 @@
 module GtkMarkdownTextView
 
-# package code goes here
+    using Gtk
+    using GtkExtensions
+    import Gtk.GtkTextIter
 
-end # module
+    using Markdown
+    
+    export MarkdownTextView, MarkdownColors
+    
+    struct MarkdownColors
+        color::String
+        background::String
+        highlight_color::String
+        highlight_background::String
+    end
+    
+    MarkdownColors() =  MarkdownColors("#000","#fff","#111","#eee")
+    
+    mutable struct MarkdownTextView <: GtkTextView
+
+        handle::Ptr{Gtk.GObject}
+        view::GtkTextView
+        buffer::GtkTextBuffer
+
+        function MarkdownTextView(m::Markdown.MD, prelude::String, mc::MarkdownColors = MarkdownColors())
+            
+            buffer = GtkTextBuffer()
+            set_gtk_property!(buffer,:text,prelude)  
+            view = GtkTextView(buffer)
+            
+            GtkExtensions.style_css(view,"window, view, textview, buffer, text {
+                background-color: $(mc.background);
+                color: $(mc.color);
+                font-family: Monaco, Consolas, Courier, monospace;
+                margin:0px;
+              }"
+            )
+
+            #set_gtk_property!(view,:margin_left,1)
+            set_gtk_property!(view,:monospace,true)
+            set_gtk_property!(view,:wrap_mode,true)
+
+            Gtk.create_tag(buffer, "normal", font="13")
+            Gtk.create_tag(buffer, "h1", font="bold 15")
+            Gtk.create_tag(buffer, "h2", font="bold 14")
+            Gtk.create_tag(buffer, "bold", font="bold")
+            Gtk.create_tag(buffer, "italic", font="italic")
+            Gtk.create_tag(buffer, "code", font="bold", foreground=mc.highlight_color, background=mc.highlight_background)
+
+            insert_MD!(buffer,m)
+#            tag(buffer,"normal",1,length(buffer))
+            
+            n = new(view.handle,view,buffer)
+            Gtk.gobject_move_ref(n, view)
+        end
+        
+        MarkdownTextView(m::String) = MarkdownTextView(Base.Markdown.parse(m),"")
+        MarkdownTextView(m::String,prelude::String, mc::MarkdownColors) = MarkdownTextView(Base.Markdown.parse(m),prelude,mc)
+        MarkdownTextView(m::String, mc::MarkdownColors) = MarkdownTextView(Base.Markdown.parse(m),"",mc)
+
+    end
+
+    function tag(buffer,what,i,j)
+        Gtk.apply_tag(buffer,what, 
+            GtkTextIter(buffer,i) , GtkTextIter(buffer,j) 
+        )
+    end
+
+    function insert_MD!(buffer,m::Markdown.Header,i)
+        ip = i
+       
+        insert!(buffer,"    ")
+        i += 4
+        for el in m.text
+            i = insert_MD!(buffer,el,i)
+        end
+        tag(buffer, "h1", ip, i)
+        i
+    end
+
+    function insert_MD!(buffer,m::String,i)
+        insert!(buffer,m)
+        i += length(m)
+    end
+
+    function insert_MD!(buffer,m::Markdown.LaTeX,i)
+        i = insert_MD!(buffer,m.formula,i)
+    end
+
+
+    function insert_MD!(buffer,m::Markdown.Paragraph,i)
+    #    insert!(buffer,"\n\n")
+    #    i += 2
+        for el in m.content
+            i = insert_MD!(buffer,el,i)
+        end
+        i
+    end
+
+    function insert_MD!(buffer,m::Markdown.Code,i)
+        insert!(buffer,m.code)
+        tag(buffer, "code", i, i+sizeof(m.code)) 
+        i += length(m.code)
+    end
+
+    function insert_MD!(buffer,m::Markdown.List,i)
+        for it in m.items
+            insert!(buffer,"    - ")
+            i += 6
+            for el in it
+                i = insert_MD!(buffer,el,i)
+            end
+            insert!(buffer,"\n")
+            i += 1
+        end 
+        i
+    end
+
+    function insert_MD!(buffer,m::Markdown.Italic,i)
+        ip = i
+        for el in m.text
+            i = insert_MD!(buffer,el,i)
+        end
+        tag(buffer, "italic", ip, i) 
+        i
+    end
+
+    function insert_MD!(buffer,m::Markdown.Bold,i)
+        ip = i
+        for el in m.text
+            i = insert_MD!(buffer,el,i)
+        end
+        tag(buffer, "bold", ip, i) 
+        i
+    end
+
+    function insert_MD!(buffer,m,i)
+        if isdefined(m,:text) 
+            for el in m.text
+                i = insert_MD!(buffer,el,i)
+            end
+        end
+        if isdefined(m,:content) 
+            for el in m.content
+                i = insert_MD!(buffer,el,i)
+            end
+        end
+        i
+    end
+
+    function insert_MD!(buffer,m::Markdown.MD)
+        i = length(buffer)+1
+        for el in m.content
+            i = insert_MD!(buffer,el,i)
+            insert!(buffer,"\n\n")
+            i += 2
+        end
+    end
+
+    
+end
+    

test/runtests.jl

@@ -1,9 +1,15 @@
-using GtkMarkdownTextView
-@static if VERSION < v"0.7.0-DEV.2005"
-    using Base.Test
-else
-    using Test
-end
+using GtkMarkdownTextView, Test
+using Gtk
 
-# write your own tests here
-@test 1 == 2
+@testset "MarkdownTextView" begin
+    
+    w = GtkWindow("")
+
+    md = "# test\n ## test\n*test* test **test**\n - test\n\ttest"
+    v = MarkdownTextView(md)
+    push!(w,v)
+    showall(w)
+    sleep(10)
+    destroy(w)
+
+end