From a51581fe892440b0aa49116b449b108484a6104a Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Thu, 19 Mar 2015 13:09:12 +0100
Subject: Adapt emphasis filter to expect and emit semantic Quoted (Not quote
 char in Str).

---
 pandoc-emphasis | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'pandoc-emphasis')

diff --git a/pandoc-emphasis b/pandoc-emphasis
index 2d61514..97ddac0 100755
--- a/pandoc-emphasis
+++ b/pandoc-emphasis
@@ -85,23 +85,22 @@ sub emphasis {
 	if ( $self->name eq 'Emph' ) {
 		$window->set_view($self);
 		given ( stringify($self) ) {
-			when (/^[^\"]+$/) {
+			when ( $self->content->[0]->name eq 'Str' ) {
 				if ( $window->peek_at_ledge() eq '"' ) {
 					$window->clear_ledge();
 					$title++;
-# FIXME: LaTeX-encode text
 					log_debug { 'emphasis →title: ' . $_ };
 					return $window->interpret_view(
-						RawInline( 'latex',
-						'\\title{' . $_ . '}' ));
+						Quoted( DoubleQuote,
+						$self->content ));
 				}
 			}
-			when (/^\"([^\"]+)\"$/) {
-# FIXME: LaTeX-encode text
+			when ( $self->content->[0]->name eq 'Quoted' ) {
 				log_debug { 'emphasis →foreign: ' . $_ };
+				# FIXME: LaTeX-encode text
 				return $window->interpret_view(
 					RawInline( 'latex',
-					'\\foreign{' . $1 . '}' ));
+					'\\foreign{' . $_ . '}' ));
 			}
 		}
 		return $window->describe_view();
-- 
cgit v1.2.3