different approach

Author: kepano

src/Text/Pandoc/Extensions.hs

@@ -548,7 +548,28 @@ getAllExtensions f = universalExtensions <> getAll f
   getAll "markdown_mmd"      = allMarkdownExtensions
   getAll "markdown_github"   = allMarkdownExtensions
   getAll "markdown"          = allMarkdownExtensions
-  getAll "obsidian"          = getAll "commonmark"
+  getAll "obsidian"          = extensionsFromList
+    [ Ext_ascii_identifiers
+    , Ext_alerts
+    , Ext_attributes
+    , Ext_autolink_bare_uris
+    , Ext_block_ids
+    , Ext_comments
+    , Ext_footnotes
+    , Ext_hard_line_breaks
+    , Ext_mark
+    , Ext_pipe_tables
+    , Ext_raw_html
+    , Ext_rebase_relative_paths
+    , Ext_strikeout
+    , Ext_task_lists
+    , Ext_tex_math_dollars
+    , Ext_wikilink_block_transclusions
+    , Ext_wikilink_heading_transclusions
+    , Ext_wikilink_transclusions
+    , Ext_wikilinks_title_after_pipe
+    , Ext_yaml_metadata_block
+    ]
   getAll "ipynb"             = allMarkdownExtensions <> extensionsFromList
     [ Ext_raw_markdown ]
   getAll "docx"            = autoIdExtensions <> extensionsFromList

test/command/obsidian.md

@@ -18,35 +18,35 @@ A paragraph with a block ID. ^my-id
 % pandoc -f obsidian -t native
 An embed: ![[myfile.md]]
 ^D
-[ Para [ Str "An" , Space , Str "embed:" , Space ] ]
+[ Para [ Str "An" , Space , Str "embed:" , Space , Span ( "" , [] , [] ) [ Str "![[myfile.md]]" ] ] ]
 ```
 
 ```
 % pandoc -f obsidian -t native
 A block reference embed: ![[myfile.md#^my-id]]
 ^D
-[ Para [ Str "A" , Space , Str "block" , Space , Str "reference" , Space , Str "embed:" , Space ] ]
+[ Para [ Str "A" , Space , Str "block" , Space , Str "reference" , Space , Str "embed:" , Space , Span ( "" , [] , [] ) [ Str "![[myfile.md#^my-id]]" ] ] ]
 ```
 
 ```
 % pandoc -f obsidian -t native
 A wikilink transclusion: ![[my-wikilink]]
 ^D
-[ Para [ Str "A" , Space , Str "wikilink" , Space , Str "transclusion:" , Space ] ]
+[ Para [ Str "A" , Space , Str "wikilink" , Space , Str "transclusion:" , Space , Span ( "" , [] , [] ) [ Str "![[my-wikilink]]" ] ] ]
 ```
 
 ```
 % pandoc -f obsidian -t native
 A block transclusion: ![[myfile#^my-id]]
 ^D
-[ Para [ Str "A" , Space , Str "block" , Space , Str "transclusion:" , Space ] ]
+[ Para [ Str "A" , Space , Str "block" , Space , Str "transclusion:" , Space , Span ( "" , [] , [] ) [ Str "![[myfile#^my-id]]" ] ] ]
 ```
 
 ```
 % pandoc -f obsidian -t native
 A heading transclusion: ![[myfile#Introduction]]
 ^D
-[ Para [ Str "A" , Space , Str "heading" , Space , Str "transclusion:" , Space ] ]
+[ Para [ Str "A" , Space , Str "heading" , Space , Str "transclusion:" , Space , Span ( "" , [] , [] ) [ Str "![[myfile#Introduction]]" ] ] ]
 ```
 
 ```