首頁 探索 說明
登入
swflint
/
org-mode-mirror
1
0
複刻 0
檔案 問題管理 0 合併請求 0 Wiki
目錄樹: 94185eac92
分支列表 標籤列表
org-mode-mir...
/
EXPERIMENTAL
/
org-e-odt.el

org-e-odt.el 181 KB
文件歷史 原始文件

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120 
  1. ;;; org-e-odt.el --- OpenDocument Text exporter for Org-mode
    2. 

  2. 

  3. ;; Copyright (C) 2010-2012 Free Software Foundation, Inc.
    4. 

  4. 

  5. ;; Author: Jambunathan K <kjambunathan at gmail dot com>
    6. 

  6. ;; Keywords: outlines, hypermedia, calendar, wp
    7. 

  7. ;; Homepage: http://orgmode.org
    8. 

  8. 

  9. ;; This file is part of GNU Emacs.
    10. 

  10. 

  11. ;; GNU Emacs is free software: you can redistribute it and/or modify
    12. 

  12. ;; it under the terms of the GNU General Public License as published by
    13. 

  13. ;; the Free Software Foundation, either version 3 of the License, or
    14. 

  14. ;; (at your option) any later version.
    15. 

  15. 

  16. ;; GNU Emacs is distributed in the hope that it will be useful,
    17. 

  17. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
    18. 

  18. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    19. 

  19. ;; GNU General Public License for more details.
    20. 

  20. 

  21. ;; You should have received a copy of the GNU General Public License
    22. 

  22. ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
    23. 

  23. 

  24. ;;; Commentary:
    25. 

  25. 

  26. ;;; Code:
    27. 

  27. (eval-when-compile
    28. 

  28.   (require 'cl))
    29. 

  29. (require 'org-lparse)
    30. 

  30. 

  31. (defgroup org-export-e-odt nil
    32. 

  32.   "Options specific for ODT export of Org-mode files."
    33. 

  33.   :tag "Org Export ODT"
    34. 

  34.   :group 'org-export
    35. 

  35.   :version "24.1")
    36. 

  36. 

  37. ;; (defun org-e-odt-unload-function ()
    38. 

  38. ;;   (org-lparse-unregister-backend 'odt)
    39. 

  39. ;;   (remove-hook 'org-export-preprocess-after-blockquote-hook
    40. 

  40. ;; 	       'org-export-e-odt-preprocess-latex-fragments)
    41. 

  41. ;;   nil)
    42. 

  42. 

  43. (defun org-e-odt-get-style-name-for-entity (category &optional entity)
    44. 

  44.   (let ((entity (or entity 'default)))
    45. 

  45.     (or
    46. 

  46.      (cdr (assoc entity (cdr (assoc category
    47. 

  47. 				    org-export-e-odt-org-styles-alist))))
    48. 

  48.      (cdr (assoc entity (cdr (assoc category
    49. 

  49. 				    org-export-e-odt-default-org-styles-alist))))
    50. 

  50.      (error "Cannot determine style name for entity %s of type %s"
    51. 

  51. 	    entity category))))
    52. 

  52. 

  53. 

  54. ;;;###autoload
    55. 

  55. (defun org-export-as-e-odt-and-open (arg)
    56. 

  56.   "Export the outline as ODT and immediately open it with a browser.
    57. 

  57. If there is an active region, export only the region.
    58. 

  58. The prefix ARG specifies how many levels of the outline should become
    59. 

  59. headlines.  The default is 3.  Lower levels will become bulleted lists."
    60. 

  60.   (interactive "P")
    61. 

  61.   (org-lparse-and-open
    62. 

  62.    (or org-export-e-odt-preferred-output-format "odt") "odt" arg))
    63. 

  63. 

  64. ;;;###autoload
    65. 

  65. (defun org-export-as-e-odt-batch ()
    66. 

  66.   "Call the function `org-lparse-batch'.
    67. 

  67. This function can be used in batch processing as:
    68. 

  68. emacs   --batch
    69. 

  69.         --load=$HOME/lib/emacs/org.el
    70. 

  70.         --eval \"(setq org-export-headline-levels 2)\"
    71. 

  71.         --visit=MyFile --funcall org-export-as-e-odt-batch"
    72. 

  72.   (org-lparse-batch "odt"))
    73. 

  73. 

  74. ;;; org-export-as-e-odt
    75. 

  75. ;;;###autoload
    76. 

  76. (defun org-export-as-e-odt (arg &optional hidden ext-plist
    77. 

  77. 				to-buffer body-only pub-dir)
    78. 

  78.   "Export the outline as a OpenDocumentText file.
    79. 

  79. If there is an active region, export only the region.  The prefix
    80. 

  80. ARG specifies how many levels of the outline should become
    81. 

  81. headlines.  The default is 3.  Lower levels will become bulleted
    82. 

  82. lists.  HIDDEN is obsolete and does nothing.
    83. 

  83. EXT-PLIST is a property list with external parameters overriding
    84. 

  84. org-mode's default settings, but still inferior to file-local
    85. 

  85. settings.  When TO-BUFFER is non-nil, create a buffer with that
    86. 

  86. name and export to that buffer.  If TO-BUFFER is the symbol
    87. 

  87. `string', don't leave any buffer behind but just return the
    88. 

  88. resulting XML as a string.  When BODY-ONLY is set, don't produce
    89. 

  89. the file header and footer, simply return the content of
    90. 

  90. <body>...</body>, without even the body tags themselves.  When
    91. 

  91. PUB-DIR is set, use this as the publishing directory."
    92. 

  92.   (interactive "P")
    93. 

  93.   (org-lparse (or org-export-e-odt-preferred-output-format "odt")
    94. 

  94. 	      "odt" arg hidden ext-plist to-buffer body-only pub-dir))
    95. 

  95. 

  96. 

  97. 

  98. ;; Following variable is let bound when `org-do-lparse' is in
    99. 

  99. ;; progress. See org-html.el.
    100. 

  100. 

  101. (defun org-e-odt-format-preamble (info)
    102. 

  102.   (let* ((title (plist-get info :title))
    103. 

  103. 	 (author (plist-get info :author))
    104. 

  104. 	 (date (plist-get info :date))
    105. 

  105. 	 (iso-date (org-e-odt-format-date date))
    106. 

  106. 	 (date (org-e-odt-format-date date "%d %b %Y"))
    107. 

  107. 	 (email (plist-get info :email))
    108. 

  108. 	 ;; switch on or off above vars based on user settings
    109. 

  109. 	 (author (and (plist-get info :with-author) (or author email)))
    110. 

  110. 	 (email (and (plist-get info :with-email) email))
    111. 

  111. 	 ;; (date (and (plist-get info :time-stamp-file) date))
    112. 

  112. 	 )
    113. 

  113.     (concat
    114. 

  114.      ;; title
    115. 

  115.      (when title
    116. 

  116.        (concat
    117. 

  117. 	(org-e-odt-format-stylized-paragraph
    118. 

  118. 	 'title (format "\n<text:title>%s</text:title>" title))
    119. 

  119. 	;; separator
    120. 

  120. 	"\n<text:p text:style-name=\"OrgTitle\"/>"))
    121. 

  121.      (cond
    122. 

  122.       ((and author (not email))
    123. 

  123.        ;; author only
    124. 

  124.        (concat
    125. 

  125. 	(org-e-odt-format-stylized-paragraph
    126. 

  126. 	 'subtitle
    127. 

  127. 	 (format "<text:initial-creator>%s</text:initial-creator>" author))
    128. 

  128. 	;; separator
    129. 

  129. 	"\n<text:p text:style-name=\"OrgSubtitle\"/>"))
    130. 

  130.       ((and author email)
    131. 

  131.        ;; author and email
    132. 

  132.        (concat
    133. 

  133. 	(org-e-odt-format-stylized-paragraph
    134. 

  134. 	 'subtitle
    135. 

  135. 	 (org-e-odt-format-link
    136. 

  136. 	  (format "<text:initial-creator>%s</text:initial-creator>" author)
    137. 

  137. 	  (concat "mailto:" email)))
    138. 

  138. 	;; separator
    139. 

  139. 	"\n<text:p text:style-name=\"OrgSubtitle\"/>")))
    140. 

  140.      ;; date
    141. 

  141.      (when date
    142. 

  142.        (concat
    143. 

  143. 	(org-e-odt-format-stylized-paragraph
    144. 

  144. 	 'subtitle
    145. 

  145. 	 (org-odt-format-tags
    146. 

  146. 	  '("<text:date style:data-style-name=\"%s\" text:date-value=\"%s\">"
    147. 

  147. 	    . "</text:date>")
    148. 

  148. 	  date "N75" iso-date))
    149. 

  149. 	;; separator
    150. 

  150. 	"<text:p text:style-name=\"OrgSubtitle\"/>")))))
    151. 

  151. 

  152. (defun org-e-odt-begin-section (style &optional name)
    153. 

  153.   (let ((default-name (car (org-e-odt-add-automatic-style "Section"))))
    154. 

  154.     (format "<text:section text:style-name=\"%s\" text:name=\"%s\">"
    155. 

  155. 	    style (or name default-name))))
    156. 

  156. 

  157. (defun org-e-odt-end-section ()
    158. 

  158.   "</text:section>")
    159. 

  159. 

  160. (defun org-e-odt-begin-paragraph (&optional style)
    161. 

  161.   (format "<text:p%s>" (org-e-odt-get-extra-attrs-for-paragraph-style style)))
    162. 

  162. 

  163. (defun org-e-odt-end-paragraph ()
    164. 

  164.   "</text:p>")
    165. 

  165. 

  166. (defun org-e-odt-get-extra-attrs-for-paragraph-style (style)
    167. 

  167.   (let (style-name)
    168. 

  168.     (setq style-name
    169. 

  169. 	  (cond
    170. 

  170. 	   ((stringp style) style)
    171. 

  171. 	   ((symbolp style) (org-e-odt-get-style-name-for-entity
    172. 

  172. 			     'paragraph style))))
    173. 

  173.     (unless style-name
    174. 

  174.       (error "Don't know how to handle paragraph style %s" style))
    175. 

  175.     (format " text:style-name=\"%s\"" style-name)))
    176. 

  176. 

  177. (defun org-e-odt-format-stylized-paragraph (style text)
    178. 

  178.   (format "\n<text:p%s>%s</text:p>"
    179. 

  179. 	  (org-e-odt-get-extra-attrs-for-paragraph-style style)
    180. 

  180. 	  text))
    181. 

  181. 

  182. (defun org-e-odt-format-author (&optional author )
    183. 

  183.   (when (setq author (or author (plist-get org-lparse-opt-plist :author)))
    184. 

  184.     (format "<dc:creator>%s</dc:creator>" author)))
    185. 

  185. 

  186. (defun org-e-odt-format-date (&optional org-ts fmt)
    187. 

  187.   (save-match-data
    188. 

  188.     (let* ((time
    189. 

  189. 	    (and (stringp org-ts)
    190. 

  190. 		 (string-match org-ts-regexp0 org-ts)
    191. 

  191. 		 (apply 'encode-time
    192. 

  192. 			(org-fix-decoded-time
    193. 

  193. 			 (org-parse-time-string (match-string 0 org-ts) t)))))
    194. 

  194. 	   date)
    195. 

  195.       (cond
    196. 

  196.        (fmt (format-time-string fmt time))
    197. 

  197.        (t (setq date (format-time-string "%Y-%m-%dT%H:%M:%S%z" time))
    198. 

  198. 	  (format "%s:%s" (substring date 0 -2) (substring date -2)))))))
    199. 

  199. 

  200. (defun org-e-odt-begin-annotation (&optional author date)
    201. 

  201.   (org-lparse-insert-tag "<office:annotation>")
    202. 

  202.   (when (setq author (org-e-odt-format-author author))
    203. 

  203.     (insert author))
    204. 

  204.   (insert (org-e-odt-format-tags
    205. 

  205. 	   '("<dc:date>" . "</dc:date>")
    206. 

  206. 	   (org-e-odt-format-date
    207. 

  207. 	    (or date (plist-get org-lparse-opt-plist :date)))))
    208. 

  208.   (org-lparse-begin-paragraph))
    209. 

  209. 

  210. (defun org-e-odt-end-annotation ()
    211. 

  211.   (org-lparse-insert-tag  "</office:annotation>"))
    212. 

  212. 

  213. (defun org-e-odt-begin-environment (style env-options-plist)
    214. 

  214.   (case style
    215. 

  215.     (annotation
    216. 

  216.      (org-lparse-stash-save-paragraph-state)
    217. 

  217.      (org-e-odt-begin-annotation (plist-get env-options-plist 'author)
    218. 

  218. 				 (plist-get env-options-plist 'date)))
    219. 

  219.     ((blockquote verse center quote)
    220. 

  220.      (org-lparse-begin-paragraph style)
    221. 

  221.      (list))
    222. 

  222.     ((fixedwidth native)
    223. 

  223.      (org-lparse-end-paragraph)
    224. 

  224.      (list))
    225. 

  225.     (t (error "Unknown environment %s" style))))
    226. 

  226. 

  227. (defun org-e-odt-end-environment (style env-options-plist)
    228. 

  228.   (case style
    229. 

  229.     (annotation
    230. 

  230.      (org-lparse-end-paragraph)
    231. 

  231.      (org-e-odt-end-annotation)
    232. 

  232.      (org-lparse-stash-pop-paragraph-state))
    233. 

  233.     ((blockquote verse center quote)
    234. 

  234.      (org-lparse-end-paragraph)
    235. 

  235.      (list))
    236. 

  236.     ((fixedwidth native)
    237. 

  237.      (org-lparse-begin-paragraph)
    238. 

  238.      (list))
    239. 

  239.     (t (error "Unknown environment %s" style))))
    240. 

  240. 

  241. (defun org-e-odt-begin-plain-list (ltype)
    242. 

  242.   ;; (setq ltype (or (org-lparse-html-list-type-to-canonical-list-type ltype)
    243. 

  243.   ;; 		  ltype))
    244. 

  244.   (let* ((style-name (org-e-odt-get-style-name-for-entity 'list ltype))
    245. 

  245. 	 (extra (concat
    246. 

  246. 		 ;; (if (or org-lparse-list-table-p
    247. 

  247. 		 ;; 	 (and (= 1 (length org-lparse-list-stack))
    248. 

  248. 		 ;; 	      (null org-e-odt-list-stack-stashed)))
    249. 

  249. 		 ;;     " text:continue-numbering=\"false\""
    250. 

  250. 		 ;;   " text:continue-numbering=\"true\"")
    251. 

  251. 

  252. 		 " text:continue-numbering=\"true\""
    253. 

  253. 

  254. 		 (when style-name
    255. 

  255. 		   (format " text:style-name=\"%s\""  style-name)))))
    256. 

  256.     (case ltype
    257. 

  257.       ((ordered unordered descriptive)
    258. 

  258.        (concat
    259. 

  259. 	;; (org-e-odt-end-paragraph)
    260. 

  260. 	(format "<text:list%s>" extra)))
    261. 

  261.       (t (error "Unknown list type: %s"  ltype)))))
    262. 

  262. 

  263. (defun org-e-odt-end-plain-list (ltype)
    264. 

  264.   ;; (setq ltype (or (org-lparse-html-list-type-to-canonical-list-type ltype)
    265. 

  265.   ;; 		  ltype))
    266. 

  266.   (if ltype "</text:list>"
    267. 

  267.     (error "Unknown list type: %s" ltype)))
    268. 

  268. 

  269. (defun org-e-odt-begin-list-item (ltype &optional arg headline)
    270. 

  270.   (setq ltype (or (org-lparse-html-list-type-to-canonical-list-type ltype)
    271. 

  271. 		  ltype))
    272. 

  272.   (case ltype
    273. 

  273.     (ordered
    274. 

  274.      (assert (not headline) t)
    275. 

  275.      (let* ((counter arg) (extra ""))
    276. 

  276.        (concat "<text:list-item>" ;; (org-e-odt-begin-paragraph)
    277. 

  277. 	       )
    278. 

  278.        ;; (if (= (length org-lparse-list-stack)
    279. 

  279.        ;;        (length org-e-odt-list-stack-stashed))
    280. 

  280.        ;;     "<text:list-header>" "<text:list-item>")
    281. 

  281.        ))
    282. 

  282.     (unordered
    283. 

  283.      (let* ((id arg) (extra ""))
    284. 

  284.        (concat
    285. 

  285. 	"<text:list-item>"
    286. 

  286. 	;; (org-e-odt-begin-paragraph)
    287. 

  287. 	(if headline (org-e-odt-format-target headline id)
    288. 

  288. 	  (org-e-odt-format-bookmark "" id)))
    289. 

  289.        ;; (if (= (length org-lparse-list-stack)
    290. 

  290.        ;;        (length org-e-odt-list-stack-stashed))
    291. 

  291.        ;;     "<text:list-header>" "<text:list-item>")
    292. 

  292.        ))
    293. 

  293.     (descriptive
    294. 

  294.      (assert (not headline) t)
    295. 

  295.      (let ((term (or arg "(no term)")))
    296. 

  296.        (concat
    297. 

  297. 	(org-e-odt-format-tags
    298. 

  298.     	 '("<text:list-item>" . "</text:list-item>")
    299. 

  299.     	 (org-e-odt-format-stylized-paragraph 'definition-term term))
    300. 

  300. 	(org-e-odt-begin-list-item 'unordered)
    301. 

  301. 	(org-e-odt-begin-plain-list 'descriptive)
    302. 

  302. 	(org-e-odt-begin-list-item 'unordered))))
    303. 

  303.     (t (error "Unknown list type"))))
    304. 

  304. 

  305. (defun org-e-odt-end-list-item (ltype)
    306. 

  306.   ;; (setq ltype (or (org-lparse-html-list-type-to-canonical-list-type ltype)
    307. 

  307.   ;; 		  ltype))
    308. 

  308.   (case ltype
    309. 

  309.     ((ordered unordered)
    310. 

  310.      ;; (org-lparse-insert-tag
    311. 

  311.      ;; (if (= (length org-lparse-list-stack)
    312. 

  312.      ;; 	     (length org-e-odt-list-stack-stashed))
    313. 

  313.      ;; 	  (prog1 "</text:list-header>"
    314. 

  314.      ;; 	    (setq org-e-odt-list-stack-stashed nil))
    315. 

  315.      ;; 	"</text:list-item>")
    316. 

  316.      "</text:list-item>"
    317. 

  317.      ;; )
    318. 

  318.      )
    319. 

  319.     (descriptive
    320. 

  320.      (concat
    321. 

  321.       (org-e-odt-end-list-item 'unordered)
    322. 

  322.       (org-e-odt-end-plain-list 'descriptive)
    323. 

  323.       (org-e-odt-end-list-item 'unordered)
    324. 

  324.       ))
    325. 

  325.     (t (error "Unknown list type"))))
    326. 

  326. 

  327. (defun org-e-odt-discontinue-list ()
    328. 

  328.   (let ((stashed-stack org-lparse-list-stack))
    329. 

  329.     (loop for list-type in stashed-stack
    330. 

  330. 	  do (org-lparse-end-list-item-1 list-type)
    331. 

  331. 	  (org-lparse-end-list list-type))
    332. 

  332.     (setq org-e-odt-list-stack-stashed stashed-stack)))
    333. 

  333. 

  334. (defun org-e-odt-continue-list ()
    335. 

  335.   (setq org-e-odt-list-stack-stashed (nreverse org-e-odt-list-stack-stashed))
    336. 

  336.   (loop for list-type in org-e-odt-list-stack-stashed
    337. 

  337. 	do (org-lparse-begin-list list-type)
    338. 

  338. 	(org-lparse-begin-list-item list-type)))
    339. 

  339. 

  340. ;; Following variables are let bound when table emission is in
    341. 

  341. ;; progress. See org-lparse.el.
    342. 

  342. (defun org-e-odt-write-automatic-styles ()
    343. 

  343.   "Write automatic styles to \"content.xml\"."
    344. 

  344.   (with-current-buffer
    345. 

  345.       (find-file-noselect (expand-file-name "content.xml") t)
    346. 

  346.     ;; position the cursor
    347. 

  347.     (goto-char (point-min))
    348. 

  348.     (re-search-forward "  </office:automatic-styles>" nil t)
    349. 

  349.     (goto-char (match-beginning 0))
    350. 

  350.     ;; write automatic table styles
    351. 

  351.     (loop for (style-name props) in
    352. 

  352. 	  (plist-get org-e-odt-automatic-styles 'Table) do
    353. 

  353. 	  (when (setq props (or (plist-get props :rel-width) 96))
    354. 

  354. 	    (insert (format org-e-odt-table-style-format style-name props))))))
    355. 

  355. 

  356. (defun org-e-odt-add-automatic-style (object-type &optional object-props)
    357. 

  357.   "Create an automatic style of type OBJECT-TYPE with param OBJECT-PROPS.
    358. 

  358. OBJECT-PROPS is (typically) a plist created by passing
    359. 

  359. \"#+ATTR_ODT: \" option of the object in question to
    360. 

  360. `org-lparse-get-block-params'.
    361. 

  361. 

  362. Use `org-e-odt-object-counters' to generate an automatic
    363. 

  363. OBJECT-NAME and STYLE-NAME.  If OBJECT-PROPS is non-nil, add a
    364. 

  364. new entry in `org-e-odt-automatic-styles'.  Return (OBJECT-NAME
    365. 

  365. . STYLE-NAME)."
    366. 

  366.   (assert (stringp object-type))
    367. 

  367.   (let* ((object (intern object-type))
    368. 

  368. 	 (seqvar object)
    369. 

  369. 	 (seqno (1+ (or (plist-get org-e-odt-object-counters seqvar) 0)))
    370. 

  370. 	 (object-name (format "%s%d" object-type seqno)) style-name)
    371. 

  371.     (setq org-e-odt-object-counters
    372. 

  372. 	  (plist-put org-e-odt-object-counters seqvar seqno))
    373. 

  373.     (when object-props
    374. 

  374.       (setq style-name (format "Org%s" object-name))
    375. 

  375.       (setq org-e-odt-automatic-styles
    376. 

  376. 	    (plist-put org-e-odt-automatic-styles object
    377. 

  377. 		       (append (list (list style-name object-props))
    378. 

  378. 			       (plist-get org-e-odt-automatic-styles object)))))
    379. 

  379.     (cons object-name style-name)))
    380. 

  380. 

  381. (defun org-e-odt-format-table-columns ()
    382. 

  382.   (let* ((num-cols (length (plist-get table-info :alignment)))
    383. 

  383. 	 (col-nos (loop for i from 1 below num-cols collect i))
    384. 

  384. 	 (levels )
    385. 

  385. 	 (col-widths (plist-get table-info :width))
    386. 

  386. 	 (style (or (nth 1 org-e-odt-table-style-spec) "OrgTable")))
    387. 

  387.     (mapconcat
    388. 

  388.      (lambda (c)
    389. 

  389.        (let* ((width (or (and org-lparse-table-is-styled (aref col-widths c))
    390. 

  390. 			 0)))
    391. 

  391. 	 (org-e-odt-make-string
    392. 

  392. 	  (1+ width)
    393. 

  393. 	  (org-e-odt-format-tags
    394. 

  394. 	   "<table:table-column table:style-name=\"%sColumn\"/>" "" style))))
    395. 

  395.      col-nos "\n")))
    396. 

  396. 

  397. 

  398. (defun org-e-odt-begin-table (caption label attributes)
    399. 

  399.   ;; (setq org-e-odt-table-indentedp (not (null org-lparse-list-stack)))
    400. 

  400.   (setq org-e-odt-table-indentedp nil)	; FIXME
    401. 

  401.   (when org-e-odt-table-indentedp
    402. 

  402.     ;; Within the Org file, the table is appearing within a list item.
    403. 

  403.     ;; OpenDocument doesn't allow table to appear within list items.
    404. 

  404.     ;; Temporarily terminate the list, emit the table and then
    405. 

  405.     ;; re-continue the list.
    406. 

  406.     (org-e-odt-discontinue-list)
    407. 

  407.     ;; Put the Table in an indented section.
    408. 

  408.     (let ((level (length org-e-odt-list-stack-stashed)))
    409. 

  409.       (org-e-odt-begin-section (format "OrgIndentedSection-Level-%d" level))))
    410. 

  410.   (setq attributes (org-lparse-get-block-params attributes))
    411. 

  411.   (setq org-e-odt-table-style (plist-get attributes :style))
    412. 

  412.   (setq org-e-odt-table-style-spec
    413. 

  413. 	(assoc org-e-odt-table-style org-export-e-odt-table-styles))
    414. 

  414.   (concat
    415. 

  415.    (org-e-odt-format-stylized-paragraph
    416. 

  416.     'table (org-e-odt-format-entity-caption label caption "__Table__"))
    417. 

  417.    (let ((name-and-style (org-e-odt-add-automatic-style "Table" attributes)))
    418. 

  418.      (format
    419. 

  419.       "\n<table:table table:name=\"%s\" table:style-name=\"%s\">\n"
    420. 

  420.       (car name-and-style) (or (nth 1 org-e-odt-table-style-spec)
    421. 

  421. 			       (cdr name-and-style) "OrgTable")))
    422. 

  422.    (org-e-odt-format-table-columns) "\n")
    423. 

  423. 

  424.   ;; (org-e-html-pp  table-info)
    425. 

  425. 

  426.   ;; (setq org-lparse-table-begin-marker (point))
    427. 

  427.   )
    428. 

  428. 

  429. (defun org-e-odt-end-table ()
    430. 

  430.   ;; fill style attributes for table cells
    431. 

  431.   (when org-lparse-table-is-styled
    432. 

  432.     (while (re-search-forward "@@\\(table-cell:p\\|table-cell:style-name\\)@@\\([0-9]+\\)@@\\([0-9]+\\)@@" nil t)
    433. 

  433.       (let* (;; (spec (match-string 1))
    434. 

  434.   	     ;; (r (string-to-number (match-string 2)))
    435. 

  435.   	     ;; (c (string-to-number (match-string 3)))
    436. 

  436.   	     (cell-styles (org-e-odt-get-table-cell-styles
    437. 

  437.   			   r c org-e-odt-table-style-spec))
    438. 

  438.   	     (table-cell-style (car cell-styles))
    439. 

  439.   	     (table-cell-paragraph-style (cdr cell-styles)))
    440. 

  440.   	(cond
    441. 

  441.   	 ((equal spec "table-cell:p")
    442. 

  442.   	  (replace-match table-cell-paragraph-style t t))
    443. 

  443.   	 ((equal spec "table-cell:style-name")
    444. 

  444.   	  (replace-match table-cell-style t t))))))
    445. 

  445.   (goto-char (point-max))
    446. 

  446. 

  447.   (concat
    448. 

  448.    "</table:table>"
    449. 

  449.    ;; (when org-e-odt-table-indentedp
    450. 

  450.    ;;   (org-e-odt-end-section)
    451. 

  451.    ;;   (org-e-odt-continue-list))
    452. 

  452.    ))
    453. 

  453. 

  454. (defun org-e-odt-begin-table-rowgroup (&optional is-header-row)
    455. 

  455.   (prog1
    456. 

  456.       (concat (when org-e-odt-table-rowgrp-open
    457. 

  457. 		(org-e-odt-end-table-rowgroup))
    458. 

  458. 	      (if is-header-row "<table:table-header-rows>"
    459. 

  459. 		"<table:table-rows>"))
    460. 

  460.     (setq org-e-odt-table-rowgrp-open t)
    461. 

  461.     (setq org-e-odt-table-cur-rowgrp-is-hdr is-header-row)))
    462. 

  462. 

  463. (defun org-e-odt-end-table-rowgroup ()
    464. 

  464.   (when org-e-odt-table-rowgrp-open
    465. 

  465.     (setq org-e-odt-table-rowgrp-open nil)
    466. 

  466.     (if org-e-odt-table-cur-rowgrp-is-hdr
    467. 

  467. 	"</table:table-header-rows>" "</table:table-rows>")))
    468. 

  468. 

  469. (defun org-e-odt-format-table-row (row)
    470. 

  470.   (org-e-odt-format-tags
    471. 

  471.    '("<table:table-row>" . "</table:table-row>") row))
    472. 

  472. 

  473. (defun org-e-odt-get-column-alignment (c)
    474. 

  474.   (let ((colalign-vector (plist-get table-info :alignment)))
    475. 

  475.     ;; FIXME
    476. 

  476.     (assoc-default (aref colalign-vector c)
    477. 

  477. 		   '(("l" . "left")
    478. 

  478. 		     ("r" . "right")
    479. 

  479. 		     ("c" . "center")))))
    480. 

  480. 

  481. (defun org-e-odt-get-table-cell-styles (r c &optional style-spec)
    482. 

  482.   "Retrieve styles applicable to a table cell.
    483. 

  483. R and C are (zero-based) row and column numbers of the table
    484. 

  484. cell.  STYLE-SPEC is an entry in `org-export-e-odt-table-styles'
    485. 

  485. applicable to the current table.  It is `nil' if the table is not
    486. 

  486. associated with any style attributes.
    487. 

  487. 

  488. Return a cons of (TABLE-CELL-STYLE-NAME . PARAGRAPH-STYLE-NAME).
    489. 

  489. 

  490. When STYLE-SPEC is nil, style the table cell the conventional way
    491. 

  491. - choose cell borders based on row and column groupings and
    492. 

  492. choose paragraph alignment based on `org-col-cookies' text
    493. 

  493. property.  See also
    494. 

  494. `org-e-odt-get-paragraph-style-cookie-for-table-cell'.
    495. 

  495. 

  496. When STYLE-SPEC is non-nil, ignore the above cookie and return
    497. 

  497. styles congruent with the ODF-1.2 specification."
    498. 

  498.   (cond
    499. 

  499.    (style-spec
    500. 

  500. 

  501.     ;; LibreOffice - particularly the Writer - honors neither table
    502. 

  502.     ;; templates nor custom table-cell styles.  Inorder to retain
    503. 

  503.     ;; inter-operability with LibreOffice, only automatic styles are
    504. 

  504.     ;; used for styling of table-cells.  The current implementation is
    505. 

  505.     ;; congruent with ODF-1.2 specification and hence is
    506. 

  506.     ;; future-compatible.
    507. 

  507. 

  508.     ;; Additional Note: LibreOffice's AutoFormat facility for tables -
    509. 

  509.     ;; which recognizes as many as 16 different cell types - is much
    510. 

  510.     ;; richer. Unfortunately it is NOT amenable to easy configuration
    511. 

  511.     ;; by hand.
    512. 

  512. 

  513.     (let* ((template-name (nth 1 style-spec))
    514. 

  514. 	   (cell-style-selectors (nth 2 style-spec))
    515. 

  515. 	   (cell-type
    516. 

  516. 	    (cond
    517. 

  517. 	     ((and (cdr (assoc 'use-first-column-styles cell-style-selectors))
    518. 

  518. 		   (= c 0)) "FirstColumn")
    519. 

  519. 	     ((and (cdr (assoc 'use-last-column-styles cell-style-selectors))
    520. 

  520. 		   (= c (1- org-lparse-table-ncols))) "LastColumn")
    521. 

  521. 	     ((and (cdr (assoc 'use-first-row-styles cell-style-selectors))
    522. 

  522. 		   (= r 0)) "FirstRow")
    523. 

  523. 	     ((and (cdr (assoc 'use-last-row-styles cell-style-selectors))
    524. 

  524. 		   (= r org-e-odt-table-rownum))
    525. 

  525. 	      "LastRow")
    526. 

  526. 	     ((and (cdr (assoc 'use-banding-rows-styles cell-style-selectors))
    527. 

  527. 		   (= (% r 2) 1)) "EvenRow")
    528. 

  528. 	     ((and (cdr (assoc 'use-banding-rows-styles cell-style-selectors))
    529. 

  529. 		   (= (% r 2) 0)) "OddRow")
    530. 

  530. 	     ((and (cdr (assoc 'use-banding-columns-styles cell-style-selectors))
    531. 

  531. 		   (= (% c 2) 1)) "EvenColumn")
    532. 

  532. 	     ((and (cdr (assoc 'use-banding-columns-styles cell-style-selectors))
    533. 

  533. 		   (= (% c 2) 0)) "OddColumn")
    534. 

  534. 	     (t ""))))
    535. 

  535.       (cons
    536. 

  536.        (concat template-name cell-type "TableCell")
    537. 

  537.        (concat template-name cell-type "TableParagraph"))))
    538. 

  538.    (t
    539. 

  539.     (cons
    540. 

  540.      (concat
    541. 

  541.       "OrgTblCell"
    542. 

  542.       (cond
    543. 

  543.        ((= r 0) "T")
    544. 

  544.        ((eq (cdr (assoc r nil ;; org-lparse-table-rowgrp-info FIXME
    545. 

  545. 			))  :start) "T")
    546. 

  546.        (t ""))
    547. 

  547.       (when (= r org-e-odt-table-rownum) "B")
    548. 

  548.       (cond
    549. 

  549.        ((= c 0) "")
    550. 

  550.        ((or (memq (nth c org-table-colgroup-info) '(:start :startend))
    551. 

  551. 	    (memq (nth (1- c) org-table-colgroup-info) '(:end :startend))) "L")
    552. 

  552.        (t "")))
    553. 

  553.      (capitalize (org-e-odt-get-column-alignment c))))))
    554. 

  554. 

  555. (defun org-e-odt-get-paragraph-style-cookie-for-table-cell (r c)
    556. 

  556.   (concat
    557. 

  557.    (and (not org-e-odt-table-style-spec)
    558. 

  558. 	(cond
    559. 

  559. 	 (org-e-odt-table-cur-rowgrp-is-hdr "OrgTableHeading")
    560. 

  560. 	 ((and (= c 0) nil
    561. 

  561. 	       ;; (org-lparse-get 'TABLE-FIRST-COLUMN-AS-LABELS)
    562. 

  562. 	       )
    563. 

  563. 	  "OrgTableHeading")
    564. 

  564. 	 (t "OrgTableContents")))
    565. 

  565.    (and org-lparse-table-is-styled
    566. 

  566. 	(cdr (org-e-odt-get-table-cell-styles
    567. 

  567. 	      r c org-e-odt-table-style-spec)))))
    568. 

  568. 

  569. (defun org-e-odt-get-style-name-cookie-for-table-cell (r c)
    570. 

  570.   (when org-lparse-table-is-styled
    571. 

  571.     (let* ((cell-styles (org-e-odt-get-table-cell-styles
    572. 

  572. 			 r c org-e-odt-table-style-spec))
    573. 

  573. 	   (table-cell-style (car cell-styles)))
    574. 

  574.       table-cell-style)))
    575. 

  575. 

  576. (defun org-e-odt-format-table-cell (data r c horiz-span)
    577. 

  577.   (concat
    578. 

  578.    (let* ((paragraph-style-cookie
    579. 

  579. 	   (org-e-odt-get-paragraph-style-cookie-for-table-cell r c))
    580. 

  580. 	  (style-name-cookie
    581. 

  581. 	   (org-e-odt-get-style-name-cookie-for-table-cell r c))
    582. 

  582. 	  (extra (and style-name-cookie
    583. 

  583. 		      (format " table:style-name=\"%s\""  style-name-cookie)))
    584. 

  584. 	  (extra (concat extra
    585. 

  585. 			 (and (> horiz-span 0)
    586. 

  586. 			      (format " table:number-columns-spanned=\"%d\""
    587. 

  587. 				      (1+ horiz-span))))))
    588. 

  588.      (org-e-odt-format-tags
    589. 

  589.       '("<table:table-cell%s>" . "</table:table-cell>")
    590. 

  590.       (if org-lparse-list-table-p data
    591. 

  591. 	(org-e-odt-format-stylized-paragraph paragraph-style-cookie data)) extra))
    592. 

  592.    (let (s)
    593. 

  593.      (dotimes (i horiz-span)
    594. 

  594.        (setq s (concat s "\n<table:covered-table-cell/>"))) s)
    595. 

  595.    "\n"))
    596. 

  596. 

  597. (defun org-e-odt-begin-footnote-definition (n)
    598. 

  598.   (org-lparse-begin-paragraph 'footnote))
    599. 

  599. 

  600. (defun org-e-odt-end-footnote-definition (n)
    601. 

  601.   (org-lparse-end-paragraph))
    602. 

  602. 

  603. (defun org-e-odt-begin-toc (lang-specific-heading max-level)
    604. 

  604.   (concat
    605. 

  605.    (format "
    606. 

  606.     <text:table-of-content text:style-name=\"Sect2\" text:protected=\"true\" text:name=\"Table of Contents1\">
    607. 

  607.      <text:table-of-content-source text:outline-level=\"%d\">
    608. 

  608.       <text:index-title-template text:style-name=\"Contents_20_Heading\">%s</text:index-title-template>
    609. 

  609. " max-level lang-specific-heading)
    610. 

  610. 

  611.    (let ((entry-templates ""))
    612. 

  612.      (loop for level from 1 upto 10
    613. 

  613. 	   do (setq entry-templates
    614. 

  614. 		    (concat entry-templates
    615. 

  615. 			    (format
    616. 

  616. 			     "
    617. 

  617.       <text:table-of-content-entry-template text:outline-level=\"%d\" text:style-name=\"Contents_20_%d\">
    618. 

  618.        <text:index-entry-link-start text:style-name=\"Internet_20_link\"/>
    619. 

  619.        <text:index-entry-chapter/>
    620. 

  620.        <text:index-entry-text/>
    621. 

  621.        <text:index-entry-link-end/>
    622. 

  622.       </text:table-of-content-entry-template>
    623. 

  623. " level level))))
    624. 

  624.      entry-templates)
    625. 

  625. 

  626.    (format  "
    627. 

  627.      </text:table-of-content-source>
    628. 

  628. 

  629.      <text:index-body>
    630. 

  630.       <text:index-title text:style-name=\"Sect1\" text:name=\"Table of Contents1_Head\">
    631. 

  631.        <text:p text:style-name=\"Contents_20_Heading\">%s</text:p>
    632. 

  632.       </text:index-title>
    633. 

  633.  " lang-specific-heading)))
    634. 

  634. 

  635. (defun org-e-odt-end-toc ()
    636. 

  636.   (format "
    637. 

  637.      </text:index-body>
    638. 

  638.     </text:table-of-content>
    639. 

  639. "))
    640. 

  640. 

  641. (defun org-e-odt-format-toc-entry (snumber todo headline tags href)
    642. 

  642. 

  643.   ;; FIXME
    644. 

  644.   (setq headline (concat
    645. 

  645.   		  (and org-export-with-section-numbers
    646. 

  646.   		       (concat snumber ". "))
    647. 

  647.   		  headline
    648. 

  648.   		  (and tags
    649. 

  649.   		       (concat
    650. 

  650.   			(org-e-odt-format-spaces 3)
    651. 

  651.   			(org-e-odt-format-fontify tags "tag")))))
    652. 

  652.   (when todo
    653. 

  653.     (setq headline (org-e-odt-format-fontify headline "todo")))
    654. 

  654. 

  655.   (let ((org-e-odt-suppress-xref t))
    656. 

  656.     (org-e-odt-format-link headline (concat  "#" href))))
    657. 

  657. 

  658. (defun org-e-odt-format-toc-item (toc-entry level org-last-level)
    659. 

  659.   (let ((style (format "Contents_20_%d"
    660. 

  660. 		       (+ level (or ;; (org-lparse-get 'TOPLEVEL-HLEVEL)
    661. 

  661. 				 1
    662. 

  662. 				    1) -1))))
    663. 

  663.     (concat "\n" (org-e-odt-format-stylized-paragraph style toc-entry) "\n")))
    664. 

  664. 

  665. ;; Following variable is let bound during 'ORG-LINK callback. See
    666. 

  666. ;; org-html.el
    667. 

  667. 

  668. (defun org-e-odt-format-link (desc href &optional attr)
    669. 

  669.   (cond
    670. 

  670.    ((and (= (string-to-char href) ?#) (not org-e-odt-suppress-xref))
    671. 

  671.     (setq href (concat org-export-e-odt-bookmark-prefix (substring href 1)))
    672. 

  672.     (let ((xref-format "text"))
    673. 

  673.       (when (numberp desc)
    674. 

  674. 	(setq desc (format "%d" desc) xref-format "number"))
    675. 

  675.       (org-e-odt-format-tags
    676. 

  676.        '("<text:bookmark-ref text:reference-format=\"%s\" text:ref-name=\"%s\">" .
    677. 

  677. 	 "</text:bookmark-ref>")
    678. 

  678.        desc xref-format href)))
    679. 

  679.    (org-lparse-link-description-is-image
    680. 

  680.     (org-e-odt-format-tags
    681. 

  681.      '("<draw:a xlink:type=\"simple\" xlink:href=\"%s\" %s>" . "</draw:a>")
    682. 

  682.      desc href (or attr "")))
    683. 

  683.    (t
    684. 

  684.     (org-e-odt-format-tags
    685. 

  685.      '("<text:a xlink:type=\"simple\" xlink:href=\"%s\" %s>" . "</text:a>")
    686. 

  686.      desc href (or attr "")))))
    687. 

  687. 

  688. (defun org-e-odt-format-spaces (n)
    689. 

  689.   (cond
    690. 

  690.    ((= n 1) " ")
    691. 

  691.    ((> n 1) (concat
    692. 

  692. 	     " " (org-e-odt-format-tags "<text:s text:c=\"%d\"/>" "" (1- n))))
    693. 

  693.    (t "")))
    694. 

  694. 

  695. (defun org-e-odt-format-tabs (&optional n)
    696. 

  696.   (let ((tab "<text:tab/>")
    697. 

  697. 	(n (or n 1)))
    698. 

  698.     (insert tab)))
    699. 

  699. 

  700. (defun org-e-odt-format-line-break ()
    701. 

  701.   (org-e-odt-format-tags "<text:line-break/>" ""))
    702. 

  702. 

  703. (defun org-e-odt-format-horizontal-line ()
    704. 

  704.   (org-e-odt-format-stylized-paragraph 'horizontal-line ""))
    705. 

  705. 

  706. (defun org-e-odt-encode-plain-text (line &optional no-whitespace-filling)
    707. 

  707.   (setq line (org-e-html-encode-plain-text line))
    708. 

  708.   (if no-whitespace-filling line
    709. 

  709.     (org-e-odt-fill-tabs-and-spaces line)))
    710. 

  710. 

  711. (defun org-e-odt-format-line (line)
    712. 

  712.   (case org-lparse-dyn-current-environment
    713. 

  713.     (fixedwidth (concat
    714. 

  714. 		 (org-e-odt-format-stylized-paragraph
    715. 

  715. 		  'fixedwidth (org-e-odt-encode-plain-text line)) "\n"))
    716. 

  716.     (t (concat line "\n"))))
    717. 

  717. 

  718. (defun org-e-odt-format-comment (fmt &rest args)
    719. 

  719.   (let ((comment (apply 'format fmt args)))
    720. 

  720.     (format "\n<!-- %s  -->\n" comment)))
    721. 

  721. 

  722. (defun org-e-odt-format-org-entity (wd)
    723. 

  723.   (org-entity-get-representation wd 'utf8))
    724. 

  724. 

  725. (defun org-e-odt-fill-tabs-and-spaces (line)
    726. 

  726.   (replace-regexp-in-string
    727. 

  727.    "\\([\t]\\|\\([ ]+\\)\\)" (lambda (s)
    728. 

  728. 			       (cond
    729. 

  729. 				((string= s "\t") (org-e-odt-format-tabs))
    730. 

  730. 				(t (org-e-odt-format-spaces (length s))))) line))
    731. 

  731. 

  732. 

  733. (defun org-e-odt-format-source-line-with-line-number-and-label
    734. 

  734.   (line rpllbl num fontifier par-style)
    735. 

  735. 

  736.   (let ((keep-label (not (numberp rpllbl)))
    737. 

  737. 	(ref (org-find-text-property-in-string 'org-coderef line)))
    738. 

  738.     (setq line (concat line (and keep-label ref (format "(%s)" ref))))
    739. 

  739.     (setq line (funcall fontifier line))
    740. 

  740.     (when ref
    741. 

  741.       (setq line (org-e-odt-format-target line (concat "coderef-" ref))))
    742. 

  742.     (setq line (org-e-odt-format-stylized-paragraph par-style line))
    743. 

  743.     (if (not num) line
    744. 

  744.       (org-e-odt-format-tags '("<text:list-item>" . "</text:list-item>") line))))
    745. 

  745. 

  746. (defun org-e-odt-format-source-code-or-example-plain
    747. 

  747.   (lines lang caption textareap cols rows num cont rpllbl fmt)
    748. 

  748.   "Format source or example blocks much like fixedwidth blocks.
    749. 

  749. Use this when `org-export-e-odt-fontify-srcblocks' option is turned
    750. 

  750. off."
    751. 

  751.   (let* ((lines (org-split-string lines "[\r\n]"))
    752. 

  752. 	 (line-count (length lines))
    753. 

  753. 	 (i 0))
    754. 

  754.     (mapconcat
    755. 

  755.      (lambda (line)
    756. 

  756.        (incf i)
    757. 

  757.        (org-e-odt-format-source-line-with-line-number-and-label
    758. 

  758. 	line rpllbl num 'org-e-odt-encode-plain-text
    759. 

  759. 	(if (= i line-count) "OrgFixedWidthBlockLastLine"
    760. 

  760. 	  "OrgFixedWidthBlock")))
    761. 

  761.      lines "\n")))
    762. 

  762. 

  763. (defun org-e-odt-hfy-face-to-css (fn)
    764. 

  764.   "Create custom style for face FN.
    765. 

  765. When FN is the default face, use it's foreground and background
    766. 

  766. properties to create \"OrgSrcBlock\" paragraph style.  Otherwise
    767. 

  767. use it's color attribute to create a character style whose name
    768. 

  768. is obtained from FN.  Currently all attributes of FN other than
    769. 

  769. color are ignored.
    770. 

  770. 

  771. The style name for a face FN is derived using the following
    772. 

  772. operations on the face name in that order - de-dash, CamelCase
    773. 

  773. and prefix with \"OrgSrc\".  For example,
    774. 

  774. `font-lock-function-name-face' is associated with
    775. 

  775. \"OrgSrcFontLockFunctionNameFace\"."
    776. 

  776.   (let* ((css-list (hfy-face-to-style fn))
    777. 

  777. 	 (style-name ((lambda (fn)
    778. 

  778. 			(concat "OrgSrc"
    779. 

  779. 				(mapconcat
    780. 

  780. 				 'capitalize (split-string
    781. 

  781. 					      (hfy-face-or-def-to-name fn) "-")
    782. 

  782. 				 ""))) fn))
    783. 

  783. 	 (color-val (cdr (assoc "color" css-list)))
    784. 

  784. 	 (background-color-val (cdr (assoc "background" css-list)))
    785. 

  785. 	 (style (and org-export-e-odt-create-custom-styles-for-srcblocks
    786. 

  786. 		     (cond
    787. 

  787. 		      ((eq fn 'default)
    788. 

  788. 		       (format org-src-block-paragraph-format
    789. 

  789. 			       background-color-val color-val))
    790. 

  790. 		      (t
    791. 

  791. 		       (format
    792. 

  792. 			"
    793. 

  793. <style:style style:name=\"%s\" style:family=\"text\">
    794. 

  794.   <style:text-properties fo:color=\"%s\"/>
    795. 

  795.  </style:style>" style-name color-val))))))
    796. 

  796.     (cons style-name style)))
    797. 

  797. 

  798. (defun org-e-odt-insert-custom-styles-for-srcblocks (styles)
    799. 

  799.   "Save STYLES used for colorizing of source blocks.
    800. 

  800. Update styles.xml with styles that were collected as part of
    801. 

  801. `org-e-odt-hfy-face-to-css' callbacks."
    802. 

  802.   (when styles
    803. 

  803.     (with-current-buffer
    804. 

  804. 	(find-file-noselect (expand-file-name "styles.xml") t)
    805. 

  805.       (goto-char (point-min))
    806. 

  806.       (when (re-search-forward "</office:styles>" nil t)
    807. 

  807. 	(goto-char (match-beginning 0))
    808. 

  808. 	(insert "\n<!-- Org Htmlfontify Styles -->\n" styles "\n")))))
    809. 

  809. 

  810. (defun org-e-odt-format-source-code-or-example-colored
    811. 

  811.   (lines lang caption textareap cols rows num cont rpllbl fmt)
    812. 

  812.   "Format source or example blocks using `htmlfontify-string'.
    813. 

  813. Use this routine when `org-export-e-odt-fontify-srcblocks' option
    814. 

  814. is turned on."
    815. 

  815.   (let* ((lang-m (and lang (or (cdr (assoc lang org-src-lang-modes)) lang)))
    816. 

  816. 	 (mode (and lang-m (intern (concat (if (symbolp lang-m)
    817. 

  817. 					       (symbol-name lang-m)
    818. 

  818. 					     lang-m) "-mode"))))
    819. 

  819. 	 (org-inhibit-startup t)
    820. 

  820. 	 (org-startup-folded nil)
    821. 

  821. 	 (lines (with-temp-buffer
    822. 

  822. 		  (insert lines)
    823. 

  823. 		  (if (functionp mode) (funcall mode) (fundamental-mode))
    824. 

  824. 		  (font-lock-fontify-buffer)
    825. 

  825. 		  (buffer-string)))
    826. 

  826. 	 (hfy-html-quote-regex "\\([<\"&> 	]\\)")
    827. 

  827. 	 (hfy-html-quote-map '(("\"" "&quot;")
    828. 

  828. 			       ("<" "&lt;")
    829. 

  829. 			       ("&" "&amp;")
    830. 

  830. 			       (">" "&gt;")
    831. 

  831. 			       (" " "<text:s/>")
    832. 

  832. 			       ("	" "<text:tab/>")))
    833. 

  833. 	 (hfy-face-to-css 'org-e-odt-hfy-face-to-css)
    834. 

  834. 	 (hfy-optimisations-1 (copy-seq hfy-optimisations))
    835. 

  835. 	 (hfy-optimisations (add-to-list 'hfy-optimisations-1
    836. 

  836. 					 'body-text-only))
    837. 

  837. 	 (hfy-begin-span-handler
    838. 

  838. 	  (lambda (style text-block text-id text-begins-block-p)
    839. 

  839. 	    (insert (format "<text:span text:style-name=\"%s\">" style))))
    840. 

  840. 	 (hfy-end-span-handler (lambda nil (insert "</text:span>"))))
    841. 

  841.     (when (fboundp 'htmlfontify-string)
    842. 

  842.       (let* ((lines (org-split-string lines "[\r\n]"))
    843. 

  843. 	     (line-count (length lines))
    844. 

  844. 	     (i 0))
    845. 

  845. 	(mapconcat
    846. 

  846. 	 (lambda (line)
    847. 

  847. 	   (incf i)
    848. 

  848. 	   (org-e-odt-format-source-line-with-line-number-and-label
    849. 

  849. 	    line rpllbl num 'htmlfontify-string
    850. 

  850. 	    (if (= i line-count) "OrgSrcBlockLastLine" "OrgSrcBlock")))
    851. 

  851. 	 lines "\n")))))
    852. 

  852. 

  853. (defun org-e-odt-format-source-code-or-example (lines lang
    854. 

  854. 						      &optional
    855. 

  855. 						      caption textareap
    856. 

  856. 						      cols rows num cont
    857. 

  857. 						      rpllbl fmt)
    858. 

  858.   "Format source or example blocks for export.
    859. 

  859. Use `org-e-odt-format-source-code-or-example-plain' or
    860. 

  860. `org-e-odt-format-source-code-or-example-colored' depending on the
    861. 

  861. value of `org-export-e-odt-fontify-srcblocks."
    862. 

  862.   (setq ;; lines (org-export-number-lines
    863. 

  863. 	;;        lines 0 0 num cont rpllbl fmt 'preprocess) FIXME
    864. 

  864. 	lines (funcall
    865. 

  865. 	       (or (and org-export-e-odt-fontify-srcblocks
    866. 

  866. 			(or (featurep 'htmlfontify)
    867. 

  867. 			    ;; htmlfontify.el was introduced in Emacs 23.2
    868. 

  868. 			    ;; So load it with some caution
    869. 

  869. 			    (require 'htmlfontify nil t))
    870. 

  870. 			(fboundp 'htmlfontify-string)
    871. 

  871. 			'org-e-odt-format-source-code-or-example-colored)
    872. 

  872. 		   'org-e-odt-format-source-code-or-example-plain)
    873. 

  873. 	       lines lang caption textareap cols rows num cont rpllbl fmt))
    874. 

  874.   (if (not num) lines
    875. 

  875.     (let ((extra (format " text:continue-numbering=\"%s\""
    876. 

  876. 			 (if cont "true" "false"))))
    877. 

  877.       (org-e-odt-format-tags
    878. 

  878.        '("<text:list text:style-name=\"OrgSrcBlockNumberedLine\"%s>"
    879. 

  879. 	 . "</text:list>") lines extra))))
    880. 

  880. 

  881. (defun org-e-odt-remap-stylenames (style-name)
    882. 

  882.   (or
    883. 

  883.    (cdr (assoc style-name '(("timestamp-wrapper" . "OrgTimestampWrapper")
    884. 

  884. 			    ("timestamp" . "OrgTimestamp")
    885. 

  885. 			    ("timestamp-kwd" . "OrgTimestampKeyword")
    886. 

  886. 			    ("tag" . "OrgTag")
    887. 

  887. 			    ("todo" . "OrgTodo")
    888. 

  888. 			    ("done" . "OrgDone")
    889. 

  889. 			    ("target" . "OrgTarget"))))
    890. 

  890.    style-name))
    891. 

  891. 

  892. (defun org-e-odt-format-fontify (text style &optional id)
    893. 

  893.   (let* ((style-name
    894. 

  894. 	  (cond
    895. 

  895. 	   ((stringp style)
    896. 

  896. 	    (org-e-odt-remap-stylenames style))
    897. 

  897. 	   ((symbolp style)
    898. 

  898. 	    (org-e-odt-get-style-name-for-entity 'character style))
    899. 

  899. 	   ((listp style)
    900. 

  900. 	    (assert (< 1 (length style)))
    901. 

  901. 	    (let ((parent-style (pop style)))
    902. 

  902. 	      (mapconcat (lambda (s)
    903. 

  903. 			   ;; (assert (stringp s) t)
    904. 

  904. 			   (org-e-odt-remap-stylenames s)) style "")
    905. 

  905. 	      (org-e-odt-remap-stylenames parent-style)))
    906. 

  906. 	   (t (error "Don't how to handle style %s"  style)))))
    907. 

  907.     (org-e-odt-format-tags
    908. 

  908.      '("<text:span text:style-name=\"%s\">" . "</text:span>")
    909. 

  909.      text style-name)))
    910. 

  910. 

  911. (defun org-e-odt-relocate-relative-path (path dir)
    912. 

  912.   (if (file-name-absolute-p path) path
    913. 

  913.     (file-relative-name (expand-file-name path dir)
    914. 

  914. 			(expand-file-name "eyecandy" dir))))
    915. 

  915. 

  916. (defun org-e-odt-format-inline-image (thefile
    917. 

  917. 				      &optional caption label attrs ; FIXME - CLA
    918. 

  918. 				      )
    919. 

  919.   (let* ((thelink (if (file-name-absolute-p thefile) thefile
    920. 

  920. 		    (org-xml-format-href
    921. 

  921. 		     (org-e-odt-relocate-relative-path
    922. 

  922. 		      thefile org-current-export-file))))
    923. 

  923. 	 (href
    924. 

  924. 	  (org-e-odt-format-tags
    925. 

  925. 	   "<draw:image xlink:href=\"%s\" xlink:type=\"simple\" xlink:show=\"embed\" xlink:actuate=\"onLoad\"/>" ""
    926. 

  926. 	   (if org-export-e-odt-embed-images
    927. 

  927. 	       (org-e-odt-copy-image-file thefile) thelink))))
    928. 

  928.     (org-export-e-odt-format-image thefile href)))
    929. 

  929. 

  930. (defun org-export-e-odt-format-formula (src href)
    931. 

  931.   (save-match-data
    932. 

  932.     (let* ((caption (org-find-text-property-in-string 'org-caption src))
    933. 

  933. 	   (caption (and caption (org-xml-format-desc caption)))
    934. 

  934. 	   (label (org-find-text-property-in-string 'org-label src))
    935. 

  935. 	   (latex-frag (org-find-text-property-in-string 'org-latex-src src))
    936. 

  936. 	   (embed-as (or (and latex-frag
    937. 

  937. 			      (org-find-text-property-in-string
    938. 

  938. 			       'org-latex-src-embed-type src))
    939. 

  939. 			 (if (or caption label) 'paragraph 'character)))
    940. 

  940. 	   width height)
    941. 

  941.       (when latex-frag
    942. 

  942. 	(setq href (org-propertize href :title "LaTeX Fragment"
    943. 

  943. 				   :description latex-frag)))
    944. 

  944.       (cond
    945. 

  945.        ((eq embed-as 'character)
    946. 

  946. 	(org-e-odt-format-entity "InlineFormula" href width height))
    947. 

  947.        (t
    948. 

  948. 	(org-lparse-end-paragraph)
    949. 

  949. 	(org-lparse-insert-list-table
    950. 

  950. 	 `((,(org-e-odt-format-entity
    951. 

  951. 	      (if caption "CaptionedDisplayFormula" "DisplayFormula")
    952. 

  952. 	      href width height :caption caption :label nil)
    953. 

  953. 	    ,(if (not label) ""
    954. 

  954. 	       (org-e-odt-format-entity-caption label nil "__MathFormula__"))))
    955. 

  955. 	 nil nil nil ":style \"OrgEquation\"" nil '((1 "c" 8) (2 "c" 1)))
    956. 

  956. 	(throw 'nextline nil))))))
    957. 

  957. 

  958. (defun org-e-odt-copy-formula-file (path)
    959. 

  959.   "Returns the internal name of the file"
    960. 

  960.   (let* ((src-file (expand-file-name
    961. 

  961. 		    path (file-name-directory org-current-export-file)))
    962. 

  962. 	 (target-dir (format "Formula-%04d/"
    963. 

  963. 			     (incf org-e-odt-embedded-formulas-count)))
    964. 

  964. 	 (target-file (concat target-dir "content.xml")))
    965. 

  965.     (when (not org-lparse-to-buffer)
    966. 

  966.       (message "Embedding %s as %s ..."
    967. 

  967. 	       (substring-no-properties path) target-file)
    968. 

  968. 

  969.       (make-directory target-dir)
    970. 

  970.       (org-e-odt-create-manifest-file-entry
    971. 

  971.        "application/vnd.oasis.opendocument.formula" target-dir "1.2")
    972. 

  972. 

  973.       (case (org-e-odt-is-formula-link-p src-file)
    974. 

  974. 	(mathml
    975. 

  975. 	 (copy-file src-file target-file 'overwrite))
    976. 

  976. 	(odf
    977. 

  977. 	 (org-e-odt-zip-extract-one src-file "content.xml" target-dir))
    978. 

  978. 	(t
    979. 

  979. 	 (error "%s is not a formula file" src-file)))
    980. 

  980. 

  981.       (org-e-odt-create-manifest-file-entry "text/xml" target-file))
    982. 

  982.     target-file))
    983. 

  983. 

  984. (defun org-e-odt-format-inline-formula (thefile)
    985. 

  985.   (let* ((thelink (if (file-name-absolute-p thefile) thefile
    986. 

  986. 		    (org-xml-format-href
    987. 

  987. 		     (org-e-odt-relocate-relative-path
    988. 

  988. 		      thefile org-current-export-file))))
    989. 

  989. 	 (href
    990. 

  990. 	  (org-e-odt-format-tags
    991. 

  991. 	   "<draw:object xlink:href=\"%s\" xlink:type=\"simple\" xlink:show=\"embed\" xlink:actuate=\"onLoad\"/>" ""
    992. 

  992. 	   (file-name-directory (org-e-odt-copy-formula-file thefile)))))
    993. 

  993.     (org-export-e-odt-format-formula thefile href)))
    994. 

  994. 

  995. (defun org-e-odt-is-formula-link-p (file)
    996. 

  996.   (let ((case-fold-search nil))
    997. 

  997.     (cond
    998. 

  998.      ((string-match "\\.\\(mathml\\|mml\\)\\'" file)
    999. 

  999.       'mathml)
    1000. 

  1000.      ((string-match "\\.odf\\'" file)
    1001. 

  1001.       'odf))))
    1002. 

  1002. 

  1003. (defun org-e-odt-format-org-link (opt-plist type-1 path fragment desc attr
    1004. 

  1004. 					    descp)
    1005. 

  1005.   "Make a OpenDocument link.
    1006. 

  1006. OPT-PLIST is an options list.
    1007. 

  1007. TYPE-1 is the device-type of the link (THIS://foo.html).
    1008. 

  1008. PATH is the path of the link (http://THIS#location).
    1009. 

  1009. FRAGMENT is the fragment part of the link, if any (foo.html#THIS).
    1010. 

  1010. DESC is the link description, if any.
    1011. 

  1011. ATTR is a string of other attributes of the a element."
    1012. 

  1012.   (declare (special org-lparse-par-open))
    1013. 

  1013.   (save-match-data
    1014. 

  1014.     (let* ((may-inline-p
    1015. 

  1015. 	    (and (member type-1 '("http" "https" "file"))
    1016. 

  1016. 		 (org-lparse-should-inline-p path descp)
    1017. 

  1017. 		 (not fragment)))
    1018. 

  1018. 	   (type (if (equal type-1 "id") "file" type-1))
    1019. 

  1019. 	   (filename path)
    1020. 

  1020. 	   (thefile path))
    1021. 

  1021.       (cond
    1022. 

  1022.        ;; check for inlined images
    1023. 

  1023.        ((and (member type '("file"))
    1024. 

  1024. 	     (not fragment)
    1025. 

  1025. 	     (org-file-image-p
    1026. 

  1026. 	      filename org-export-e-odt-inline-image-extensions)
    1027. 

  1027. 	     (or (eq t org-export-e-odt-inline-images)
    1028. 

  1028. 		 (and org-export-e-odt-inline-images (not descp))))
    1029. 

  1029. 	(org-e-odt-format-inline-image thefile))
    1030. 

  1030.        ;; check for embedded formulas
    1031. 

  1031.        ((and (member type '("file"))
    1032. 

  1032. 	     (not fragment)
    1033. 

  1033. 	     (org-e-odt-is-formula-link-p filename)
    1034. 

  1034. 	     (or (not descp)))
    1035. 

  1035. 	(org-e-odt-format-inline-formula thefile))
    1036. 

  1036.        ((string= type "coderef")
    1037. 

  1037. 	(let* ((ref fragment)
    1038. 

  1038. 	       (lineno-or-ref (cdr (assoc ref org-export-code-refs)))
    1039. 

  1039. 	       (desc (and descp desc))
    1040. 

  1040. 	       (org-e-odt-suppress-xref nil)
    1041. 

  1041. 	       (href (org-xml-format-href (concat "#coderef-" ref))))
    1042. 

  1042. 	  (cond
    1043. 

  1043. 	   ((and (numberp lineno-or-ref) (not desc))
    1044. 

  1044. 	    (org-e-odt-format-link lineno-or-ref href))
    1045. 

  1045. 	   ((and (numberp lineno-or-ref) desc
    1046. 

  1046. 		 (string-match (regexp-quote (concat "(" ref ")")) desc))
    1047. 

  1047. 	    (format (replace-match "%s" t t desc)
    1048. 

  1048. 		    (org-e-odt-format-link lineno-or-ref href)))
    1049. 

  1049. 	   (t
    1050. 

  1050. 	    (setq desc (format
    1051. 

  1051. 			(if (and desc (string-match
    1052. 

  1052. 				       (regexp-quote (concat "(" ref ")"))
    1053. 

  1053. 				       desc))
    1054. 

  1054. 			    (replace-match "%s" t t desc)
    1055. 

  1055. 			  (or desc "%s"))
    1056. 

  1056. 			lineno-or-ref))
    1057. 

  1057. 	    (org-e-odt-format-link (org-xml-format-desc desc) href)))))
    1058. 

  1058.        (t
    1059. 

  1059. 	(when (string= type "file")
    1060. 

  1060. 	  (setq thefile
    1061. 

  1061. 		(cond
    1062. 

  1062. 		 ((file-name-absolute-p path)
    1063. 

  1063. 		  (concat "file://" (expand-file-name path)))
    1064. 

  1064. 		 (t (org-e-odt-relocate-relative-path
    1065. 

  1065. 		     thefile org-current-export-file)))))
    1066. 

  1066. 

  1067. 	(when (and (member type '("" "http" "https" "file")) fragment)
    1068. 

  1068. 	  (setq thefile (concat thefile "#" fragment)))
    1069. 

  1069. 

  1070. 	(setq thefile (org-xml-format-href thefile))
    1071. 

  1071. 

  1072. 	(when (not (member type '("" "file")))
    1073. 

  1073. 	  (setq thefile (concat type ":" thefile)))
    1074. 

  1074. 

  1075. 	(let ((org-e-odt-suppress-xref nil))
    1076. 

  1076. 	  (org-e-odt-format-link
    1077. 

  1077. 	   (org-xml-format-desc desc) thefile attr)))))))
    1078. 

  1078. 

  1079. (defun org-e-odt-format-heading (text level &optional id)
    1080. 

  1080.   (let* ((text (if id (org-e-odt-format-target text id) text)))
    1081. 

  1081.     (org-e-odt-format-tags
    1082. 

  1082.      '("<text:h text:style-name=\"Heading_20_%s\" text:outline-level=\"%s\">" .
    1083. 

  1083.        "</text:h>") text level level)))
    1084. 

  1084. 

  1085. (defun org-e-odt-format-headline (title extra-targets tags
    1086. 

  1086. 					&optional snumber level)
    1087. 

  1087.   (concat
    1088. 

  1088.    (org-e-odt-format-extra-targets extra-targets)
    1089. 

  1089. 

  1090.    ;; No need to generate section numbers. They are auto-generated by
    1091. 

  1091.    ;; the application
    1092. 

  1092. 

  1093.    ;; (concat (org-lparse-format 'SECTION-NUMBER snumber level) " ")
    1094. 

  1094.    title
    1095. 

  1095.    (and tags (concat (org-e-odt-format-spaces 3)
    1096. 

  1096. 		     (org-e-odt-format-org-tags tags)))))
    1097. 

  1097. 

  1098. (defun org-e-odt-format-anchor (text name &optional class)
    1099. 

  1099.   (org-e-odt-format-target text name))
    1100. 

  1100. 

  1101. (defun org-e-odt-format-bookmark (text id)
    1102. 

  1102.   (if id
    1103. 

  1103.       (org-e-odt-format-tags "<text:bookmark text:name=\"%s\"/>" text id)
    1104. 

  1104.     text))
    1105. 

  1105. 

  1106. (defun org-e-odt-format-target (text id)
    1107. 

  1107.   (let ((name (concat org-export-e-odt-bookmark-prefix id)))
    1108. 

  1108.     (concat
    1109. 

  1109.      (and id (org-e-odt-format-tags
    1110. 

  1110. 	      "<text:bookmark-start text:name=\"%s\"/>" "" name))
    1111. 

  1111.      (org-e-odt-format-bookmark text id)
    1112. 

  1112.      (and id (org-e-odt-format-tags
    1113. 

  1113. 	      "<text:bookmark-end text:name=\"%s\"/>" "" name)))))
    1114. 

  1114. 

  1115. (defun org-e-odt-format-footnote (n def)
    1116. 

  1116.   (setq n (format "%d" n))
    1117. 

  1117.   (let ((id (concat  "fn" n))
    1118. 

  1118. 	(note-class "footnote")
    1119. 

  1119. 	(par-style "Footnote"))
    1120. 

  1120.     (org-e-odt-format-tags
    1121. 

  1121.      '("<text:note text:id=\"%s\" text:note-class=\"%s\">" .
    1122. 

  1122.        "</text:note>")
    1123. 

  1123.      (concat
    1124. 

  1124.       (org-e-odt-format-tags
    1125. 

  1125.        '("<text:note-citation>" . "</text:note-citation>")
    1126. 

  1126.        n)
    1127. 

  1127.       (org-e-odt-format-tags
    1128. 

  1128.        '("<text:note-body>" . "</text:note-body>")
    1129. 

  1129.        def))
    1130. 

  1130.      id note-class)))
    1131. 

  1131. 

  1132. (defun org-e-odt-format-footnote-reference (n def refcnt)
    1133. 

  1133.   (if (= refcnt 1)
    1134. 

  1134.       (org-e-odt-format-footnote n def)
    1135. 

  1135.     (org-e-odt-format-footnote-ref n)))
    1136. 

  1136. 

  1137. (defun org-e-odt-format-footnote-ref (n)
    1138. 

  1138.   (setq n (format "%d" n))
    1139. 

  1139.   (let ((note-class "footnote")
    1140. 

  1140. 	(ref-format "text")
    1141. 

  1141. 	(ref-name (concat "fn" n)))
    1142. 

  1142.     (org-e-odt-format-tags
    1143. 

  1143.      '("<text:span text:style-name=\"%s\">" . "</text:span>")
    1144. 

  1144.      (org-e-odt-format-tags
    1145. 

  1145.       '("<text:note-ref text:note-class=\"%s\" text:reference-format=\"%s\" text:ref-name=\"%s\">" . "</text:note-ref>")
    1146. 

  1146.       n note-class ref-format ref-name)
    1147. 

  1147.      "OrgSuperscript")))
    1148. 

  1148. 

  1149. (defun org-e-odt-get-image-name (file-name)
    1150. 

  1150.   (require 'sha1)
    1151. 

  1151.   (file-relative-name
    1152. 

  1152.    (expand-file-name
    1153. 

  1153.     (concat (sha1 file-name) "." (file-name-extension file-name)) "Pictures")))
    1154. 

  1154. 

  1155. (defun org-export-e-odt-format-image (src href)
    1156. 

  1156.   "Create image tag with source and attributes."
    1157. 

  1157.   (save-match-data
    1158. 

  1158.     (let* ((caption (org-find-text-property-in-string 'org-caption src))
    1159. 

  1159. 	   (caption (and caption (org-xml-format-desc caption)))
    1160. 

  1160. 	   (attr (org-find-text-property-in-string 'org-attributes src))
    1161. 

  1161. 	   (label (org-find-text-property-in-string 'org-label src))
    1162. 

  1162. 	   (latex-frag (org-find-text-property-in-string
    1163. 

  1163. 			'org-latex-src src))
    1164. 

  1164. 	   (category (and latex-frag "__DvipngImage__"))
    1165. 

  1165. 	   (attr-plist (org-lparse-get-block-params attr))
    1166. 

  1166. 	   (user-frame-anchor
    1167. 

  1167. 	    (car (assoc-string (plist-get attr-plist :anchor)
    1168. 

  1168. 			       '(("as-char") ("paragraph") ("page")) t)))
    1169. 

  1169. 	   (user-frame-style
    1170. 

  1170. 	    (and user-frame-anchor (plist-get attr-plist :style)))
    1171. 

  1171. 	   (user-frame-attrs
    1172. 

  1172. 	    (and user-frame-anchor (plist-get attr-plist :attributes)))
    1173. 

  1173. 	   (user-frame-params
    1174. 

  1174. 	    (list user-frame-style user-frame-attrs user-frame-anchor))
    1175. 

  1175. 	   (embed-as (cond
    1176. 

  1176. 		      (latex-frag
    1177. 

  1177. 		       (symbol-name
    1178. 

  1178. 			(case (org-find-text-property-in-string
    1179. 

  1179. 			       'org-latex-src-embed-type src)
    1180. 

  1180. 			  (paragraph 'paragraph)
    1181. 

  1181. 			  (t 'as-char))))
    1182. 

  1182. 		      (user-frame-anchor)
    1183. 

  1183. 		      (t "paragraph")))
    1184. 

  1184. 	   (size (org-e-odt-image-size-from-file
    1185. 

  1185. 		  src (plist-get attr-plist :width)
    1186. 

  1186. 		  (plist-get attr-plist :height)
    1187. 

  1187. 		  (plist-get attr-plist :scale) nil embed-as))
    1188. 

  1188. 	   (width (car size)) (height (cdr size)))
    1189. 

  1189.       (when latex-frag
    1190. 

  1190. 	(setq href (org-propertize href :title "LaTeX Fragment"
    1191. 

  1191. 				   :description latex-frag)))
    1192. 

  1192.       (let ((frame-style-handle (concat (and (or caption label) "Captioned")
    1193. 

  1193. 					embed-as "Image")))
    1194. 

  1194. 	(org-e-odt-format-entity
    1195. 

  1195. 	 frame-style-handle href width height
    1196. 

  1196. 	 :caption caption :label label :category category
    1197. 

  1197. 	 :user-frame-params user-frame-params)))))
    1198. 

  1198. 

  1199. (defun org-e-odt-format-object-description (title description)
    1200. 

  1200.   (concat (and title (org-e-odt-format-tags
    1201. 

  1201. 		      '("<svg:title>" . "</svg:title>")
    1202. 

  1202. 		      (org-e-odt-encode-plain-text title t)))
    1203. 

  1203. 	  (and description (org-e-odt-format-tags
    1204. 

  1204. 			    '("<svg:desc>" . "</svg:desc>")
    1205. 

  1205. 			    (org-e-odt-encode-plain-text description t)))))
    1206. 

  1206. 

  1207. (defun org-e-odt-format-frame (text width height style &optional
    1208. 

  1208. 				    extra anchor-type)
    1209. 

  1209.   (let ((frame-attrs
    1210. 

  1210. 	 (concat
    1211. 

  1211. 	  (if width (format " svg:width=\"%0.2fcm\"" width) "")
    1212. 

  1212. 	  (if height (format " svg:height=\"%0.2fcm\"" height) "")
    1213. 

  1213. 	  extra
    1214. 

  1214. 	  (format " text:anchor-type=\"%s\"" (or anchor-type "paragraph")))))
    1215. 

  1215.     (org-e-odt-format-tags
    1216. 

  1216.      '("<draw:frame draw:style-name=\"%s\"%s>" . "</draw:frame>")
    1217. 

  1217.      (concat text (org-e-odt-format-object-description
    1218. 

  1218. 		   (get-text-property 0 :title text)
    1219. 

  1219. 		   (get-text-property 0 :description text)))
    1220. 

  1220.      style frame-attrs)))
    1221. 

  1221. 

  1222. (defun org-e-odt-format-textbox (text width height style &optional
    1223. 

  1223. 				      extra anchor-type)
    1224. 

  1224.   (org-e-odt-format-frame
    1225. 

  1225.    (org-e-odt-format-tags
    1226. 

  1226.     '("<draw:text-box %s>" . "</draw:text-box>")
    1227. 

  1227.     text (concat (format " fo:min-height=\"%0.2fcm\"" (or height .2))
    1228. 

  1228. 		 (unless width
    1229. 

  1229. 		   (format " fo:min-width=\"%0.2fcm\"" (or width .2)))))
    1230. 

  1230.    width nil style extra anchor-type))
    1231. 

  1231. 

  1232. (defun org-e-odt-format-inlinetask (heading content
    1233. 

  1233. 					    &optional todo priority tags)
    1234. 

  1234.   (org-e-odt-format-stylized-paragraph
    1235. 

  1235.    nil (org-e-odt-format-textbox
    1236. 

  1236. 	(concat (org-e-odt-format-stylized-paragraph
    1237. 

  1237. 		 "OrgInlineTaskHeading"
    1238. 

  1238. 		 (org-lparse-format
    1239. 

  1239. 		  'HEADLINE (concat (org-lparse-format-todo todo) " " heading)
    1240. 

  1240. 		  nil tags))
    1241. 

  1241. 		content) nil nil "OrgInlineTaskFrame" " style:rel-width=\"100%\"")))
    1242. 

  1242. 

  1243. 

  1244. (defun org-e-odt-merge-frame-params(default-frame-params user-frame-params)
    1245. 

  1245.   (if (not user-frame-params) default-frame-params
    1246. 

  1246.     (assert (= (length default-frame-params) 3))
    1247. 

  1247.     (assert (= (length user-frame-params) 3))
    1248. 

  1248.     (loop for user-frame-param in user-frame-params
    1249. 

  1249. 	  for default-frame-param in default-frame-params
    1250. 

  1250. 	  collect (or user-frame-param default-frame-param))))
    1251. 

  1251. 

  1252. (defun* org-e-odt-format-entity (entity href width height
    1253. 

  1253. 					&key caption label category
    1254. 

  1254. 					user-frame-params)
    1255. 

  1255.   (let* ((entity-style (assoc-string entity org-e-odt-entity-frame-styles t))
    1256. 

  1256. 	 default-frame-params frame-params)
    1257. 

  1257.     (cond
    1258. 

  1258.      ((not (or caption label))
    1259. 

  1259.       (setq default-frame-params (nth 2 entity-style))
    1260. 

  1260.       (setq frame-params (org-e-odt-merge-frame-params
    1261. 

  1261. 			  default-frame-params user-frame-params))
    1262. 

  1262.       (apply 'org-e-odt-format-frame href width height frame-params))
    1263. 

  1263.      (t
    1264. 

  1264.       (setq default-frame-params (nth 3 entity-style))
    1265. 

  1265.       (setq frame-params (org-e-odt-merge-frame-params
    1266. 

  1266. 			  default-frame-params user-frame-params))
    1267. 

  1267.       (apply 'org-e-odt-format-textbox
    1268. 

  1268. 	     (org-e-odt-format-stylized-paragraph
    1269. 

  1269. 	      'illustration
    1270. 

  1270. 	      (concat
    1271. 

  1271. 	       (apply 'org-e-odt-format-frame href width height
    1272. 

  1272. 		      (nth 2 entity-style))
    1273. 

  1273. 	       (org-e-odt-format-entity-caption
    1274. 

  1274. 		label caption (or category (nth 1 entity-style)))))
    1275. 

  1275. 	     width height frame-params)))))
    1276. 

  1276. 

  1277. 

  1278. (defun org-e-odt-copy-image-file (path)
    1279. 

  1279.   "Returns the internal name of the file"
    1280. 

  1280.   (let* ((image-type (file-name-extension path))
    1281. 

  1281. 	 (media-type (format "image/%s" image-type))
    1282. 

  1282. 	 (src-file (expand-file-name
    1283. 

  1283. 		    path (file-name-directory org-current-export-file)))
    1284. 

  1284. 	 (target-dir "Images/")
    1285. 

  1285. 	 (target-file
    1286. 

  1286. 	  (format "%s%04d.%s" target-dir
    1287. 

  1287. 		  (incf org-e-odt-embedded-images-count) image-type)))
    1288. 

  1288.     (when (not org-lparse-to-buffer)
    1289. 

  1289.       (message "Embedding %s as %s ..."
    1290. 

  1290. 	       (substring-no-properties path) target-file)
    1291. 

  1291. 

  1292.       (when (= 1 org-e-odt-embedded-images-count)
    1293. 

  1293. 	(make-directory target-dir)
    1294. 

  1294. 	(org-e-odt-create-manifest-file-entry "" target-dir))
    1295. 

  1295. 

  1296.       (copy-file src-file target-file 'overwrite)
    1297. 

  1297.       (org-e-odt-create-manifest-file-entry media-type target-file))
    1298. 

  1298.     target-file))
    1299. 

  1299. 

  1300. (defun org-e-odt-do-image-size (probe-method file &optional dpi anchor-type)
    1301. 

  1301.   (setq dpi (or dpi org-export-e-odt-pixels-per-inch))
    1302. 

  1302.   (setq anchor-type (or anchor-type "paragraph"))
    1303. 

  1303.   (flet ((size-in-cms (size-in-pixels)
    1304. 

  1304. 		      (flet ((pixels-to-cms (pixels)
    1305. 

  1305. 					    (let* ((cms-per-inch 2.54)
    1306. 

  1306. 						   (inches (/ pixels dpi)))
    1307. 

  1307. 					      (* cms-per-inch inches))))
    1308. 

  1308. 			(and size-in-pixels
    1309. 

  1309. 			     (cons (pixels-to-cms (car size-in-pixels))
    1310. 

  1310. 				   (pixels-to-cms (cdr size-in-pixels)))))))
    1311. 

  1311.     (case probe-method
    1312. 

  1312.       (emacs
    1313. 

  1313.        (size-in-cms (ignore-errors	; Emacs could be in batch mode
    1314. 

  1314. 		      (clear-image-cache)
    1315. 

  1315. 		      (image-size (create-image file) 'pixels))))
    1316. 

  1316.       (imagemagick
    1317. 

  1317.        (size-in-cms
    1318. 

  1318. 	(let ((dim (shell-command-to-string
    1319. 

  1319. 		    (format "identify -format \"%%w:%%h\" \"%s\"" file))))
    1320. 

  1320. 	  (when (string-match "\\([0-9]+\\):\\([0-9]+\\)" dim)
    1321. 

  1321. 	    (cons (string-to-number (match-string 1 dim))
    1322. 

  1322. 		  (string-to-number (match-string 2 dim)))))))
    1323. 

  1323.       (t
    1324. 

  1324.        (cdr (assoc-string anchor-type
    1325. 

  1325. 			  org-export-e-odt-default-image-sizes-alist))))))
    1326. 

  1326. 

  1327. (defun org-e-odt-image-size-from-file (file &optional user-width
    1328. 

  1328. 					    user-height scale dpi embed-as)
    1329. 

  1329.   (unless (file-name-absolute-p file)
    1330. 

  1330.     (setq file (expand-file-name
    1331. 

  1331. 		file (file-name-directory org-current-export-file))))
    1332. 

  1332.   (let* (size width height)
    1333. 

  1333.     (unless (and user-height user-width)
    1334. 

  1334.       (loop for probe-method in org-export-e-odt-image-size-probe-method
    1335. 

  1335. 	    until size
    1336. 

  1336. 	    do (setq size (org-e-odt-do-image-size
    1337. 

  1337. 			   probe-method file dpi embed-as)))
    1338. 

  1338.       (or size (error "Cannot determine Image size. Aborting ..."))
    1339. 

  1339.       (setq width (car size) height (cdr size)))
    1340. 

  1340.     (cond
    1341. 

  1341.      (scale
    1342. 

  1342.       (setq width (* width scale) height (* height scale)))
    1343. 

  1343.      ((and user-height user-width)
    1344. 

  1344.       (setq width user-width height user-height))
    1345. 

  1345.      (user-height
    1346. 

  1346.       (setq width (* user-height (/ width height)) height user-height))
    1347. 

  1347.      (user-width
    1348. 

  1348.       (setq height (* user-width (/ height width)) width user-width))
    1349. 

  1349.      (t (ignore)))
    1350. 

  1350.     ;; ensure that an embedded image fits comfortably within a page
    1351. 

  1351.     (let ((max-width (car org-export-e-odt-max-image-size))
    1352. 

  1352. 	  (max-height (cdr org-export-e-odt-max-image-size)))
    1353. 

  1353.       (when (or (> width max-width) (> height max-height))
    1354. 

  1354. 	(let* ((scale1 (/ max-width width))
    1355. 

  1355. 	       (scale2 (/ max-height height))
    1356. 

  1356. 	       (scale (min scale1 scale2)))
    1357. 

  1357. 	  (setq width (* scale width) height (* scale height)))))
    1358. 

  1358.     (cons width height)))
    1359. 

  1359. 

  1360. (defun org-e-odt-get-label-category-and-style (label default-category)
    1361. 

  1361.   "See `org-export-e-odt-get-category-from-label'."
    1362. 

  1362.   (let ((default-category-map
    1363. 

  1363. 	  (assoc default-category org-e-odt-category-map-alist))
    1364. 

  1364. 	user-category user-category-map category)
    1365. 

  1365.     (cond
    1366. 

  1366.      ((not org-export-e-odt-get-category-from-label)
    1367. 

  1367.       default-category-map)
    1368. 

  1368.      ((not (setq user-category
    1369. 

  1369. 		 (save-match-data
    1370. 

  1370. 		   (and (string-match "\\`\\(.*\\):.+" label)
    1371. 

  1371. 			(match-string 1 label)))))
    1372. 

  1372.       default-category-map)
    1373. 

  1373.      (t
    1374. 

  1374.       (setq user-category-map
    1375. 

  1375. 	    (or (assoc user-category org-e-odt-category-map-alist)
    1376. 

  1376. 		(list nil user-category "category-and-value"))
    1377. 

  1377. 	    category (nth 1 user-category-map))
    1378. 

  1378.       (if (member category org-export-e-odt-user-categories)
    1379. 

  1379. 	  user-category-map
    1380. 

  1380. 	default-category-map)))))
    1381. 

  1381. 

  1382. (defun org-e-odt-add-label-definition (label default-category)
    1383. 

  1383.   "Create an entry in `org-e-odt-entity-labels-alist' and return it."
    1384. 

  1384.   (setq label (substring-no-properties label))
    1385. 

  1385.   (let* ((label-props (org-e-odt-get-label-category-and-style
    1386. 

  1386. 		       label default-category))
    1387. 

  1387. 	 (category (nth 1 label-props))
    1388. 

  1388. 	 (counter category)
    1389. 

  1389. 	 (label-style (nth 2 label-props))
    1390. 

  1390. 	 (sequence-var (intern (mapconcat
    1391. 

  1391. 				'downcase
    1392. 

  1392. 				(org-split-string counter) "-")))
    1393. 

  1393. 	 (seqno (1+ (or (plist-get org-e-odt-entity-counts-plist sequence-var)
    1394. 

  1394. 			0)))
    1395. 

  1395. 	 (label-props (list label category seqno label-style)))
    1396. 

  1396.     (setq org-e-odt-entity-counts-plist
    1397. 

  1397. 	  (plist-put org-e-odt-entity-counts-plist sequence-var seqno))
    1398. 

  1398.     (push label-props org-e-odt-entity-labels-alist)
    1399. 

  1399.     label-props))
    1400. 

  1400. 

  1401. (defun org-e-odt-format-label-definition (caption label category seqno label-style)
    1402. 

  1402.   (assert label)
    1403. 

  1403.   (format-spec
    1404. 

  1404.    (cadr (assoc-string label-style org-e-odt-label-styles t))
    1405. 

  1405.    `((?e . ,category)
    1406. 

  1406.      (?n . ,(org-e-odt-format-tags
    1407. 

  1407. 	     '("<text:sequence text:ref-name=\"%s\" text:name=\"%s\" text:formula=\"ooow:%s+1\" style:num-format=\"1\">" . "</text:sequence>")
    1408. 

  1408. 	     (format "%d" seqno) label category category))
    1409. 

  1409.      (?c . ,(or (and caption (concat ": " caption)) "")))))
    1410. 

  1410. 

  1411. (defun org-e-odt-format-label-reference (label category seqno label-style)
    1412. 

  1412.   (assert label)
    1413. 

  1413.   (save-match-data
    1414. 

  1414.     (let* ((fmt (cddr (assoc-string label-style org-e-odt-label-styles t)))
    1415. 

  1415. 	   (fmt1 (car fmt))
    1416. 

  1416. 	   (fmt2 (cadr fmt)))
    1417. 

  1417.       (org-e-odt-format-tags
    1418. 

  1418.        '("<text:sequence-ref text:reference-format=\"%s\" text:ref-name=\"%s\">"
    1419. 

  1419. 	 . "</text:sequence-ref>")
    1420. 

  1420.        (format-spec fmt2 `((?e . ,category)
    1421. 

  1421. 			   (?n . ,(format "%d" seqno)))) fmt1 label))))
    1422. 

  1422. 

  1423. (defun org-e-odt-fixup-label-references ()
    1424. 

  1424.   (goto-char (point-min))
    1425. 

  1425.   (while (re-search-forward
    1426. 

  1426. 	  "<text:sequence-ref text:ref-name=\"\\([^\"]+\\)\">[ \t\n]*</text:sequence-ref>"
    1427. 

  1427. 	  nil t)
    1428. 

  1428.     (let* ((label (match-string 1))
    1429. 

  1429. 	   (label-def (assoc label org-e-odt-entity-labels-alist))
    1430. 

  1430. 	   (rpl (and label-def
    1431. 

  1431. 		     (apply 'org-e-odt-format-label-reference label-def))))
    1432. 

  1432.       (if rpl (replace-match rpl t t)
    1433. 

  1433. 	(org-lparse-warn
    1434. 

  1434. 	 (format "Unable to resolve reference to label \"%s\"" label))))))
    1435. 

  1435. 

  1436. (defun org-e-odt-format-entity-caption (label caption category)
    1437. 

  1437.   (or (and label
    1438. 

  1438. 	   (apply 'org-e-odt-format-label-definition
    1439. 

  1439. 		  caption (org-e-odt-add-label-definition label category)))
    1440. 

  1440.       caption ""))
    1441. 

  1441. 

  1442. (defun org-e-odt-format-tags-1 (tag text prefix suffix &rest args)
    1443. 

  1443.   (cond
    1444. 

  1444.    ((consp tag)
    1445. 

  1445.     (concat prefix (apply 'format (car tag) args) text suffix
    1446. 

  1446. 	    (format (cdr tag))))
    1447. 

  1447.    ((stringp tag)			; singleton tag
    1448. 

  1448.     (concat prefix (apply 'format tag args) text))))
    1449. 

  1449. 

  1450. (defun org-e-odt-format-tags (tag text &rest args)
    1451. 

  1451.   (apply 'org-e-odt-format-tags-1 tag text "\n" "\n" args))
    1452. 

  1452. 

  1453. (defun org-e-odt-init-outfile ()
    1454. 

  1454.   (unless (executable-find "zip")
    1455. 

  1455.     ;; Not at all OSes ship with zip by default
    1456. 

  1456.     (error "Executable \"zip\" needed for creating OpenDocument files"))
    1457. 

  1457. 

  1458.   (let* ((outdir (make-temp-file
    1459. 

  1459. 		  (format org-export-e-odt-tmpdir-prefix org-lparse-backend) t))
    1460. 

  1460. 	 (content-file (expand-file-name "content.xml" outdir)))
    1461. 

  1461. 

  1462.     ;; reset variables
    1463. 

  1463.     (setq org-e-odt-manifest-file-entries nil
    1464. 

  1464. 	  org-e-odt-embedded-images-count 0
    1465. 

  1465. 	  org-e-odt-embedded-formulas-count 0
    1466. 

  1466. 	  org-e-odt-section-count 0
    1467. 

  1467. 	  org-e-odt-entity-labels-alist nil
    1468. 

  1468. 	  org-e-odt-list-stack-stashed nil
    1469. 

  1469. 	  org-e-odt-automatic-styles nil
    1470. 

  1470. 	  org-e-odt-object-counters nil
    1471. 

  1471. 	  org-e-odt-entity-counts-plist nil)
    1472. 

  1472. 

  1473.     ;; init conten.xml
    1474. 

  1474.     (with-current-buffer
    1475. 

  1475. 	(find-file-noselect content-file t)
    1476. 

  1476.       (current-buffer))))
    1477. 

  1477. 

  1478. 

  1479. 

  1480. (defun org-e-odt-save-as-outfile (target opt-plist)
    1481. 

  1481.   ;; write automatic styles
    1482. 

  1482.   (org-e-odt-write-automatic-styles)
    1483. 

  1483. 

  1484.   ;; write styles file
    1485. 

  1485.   ;; (when (equal org-lparse-backend 'odt) FIXME
    1486. 

  1486.   ;;   )
    1487. 

  1487. 

  1488.   (org-e-odt-update-styles-file opt-plist)
    1489. 

  1489. 

  1490.   ;; create mimetype file
    1491. 

  1491.   (let ((mimetype (org-e-odt-write-mimetype-file ;; org-lparse-backend FIXME
    1492. 

  1492. 		   'odt)))
    1493. 

  1493.     (org-e-odt-create-manifest-file-entry mimetype "/" "1.2"))
    1494. 

  1494. 

  1495.   ;; create a manifest entry for content.xml
    1496. 

  1496.   (org-e-odt-create-manifest-file-entry "text/xml" "content.xml")
    1497. 

  1497. 

  1498.   ;; write out the manifest entries before zipping
    1499. 

  1499.   (org-e-odt-write-manifest-file)
    1500. 

  1500. 

  1501.   (let ((xml-files '("mimetype" "META-INF/manifest.xml" "content.xml"
    1502. 

  1502. 		     "meta.xml"))
    1503. 

  1503. 	(zipdir default-directory))
    1504. 

  1504.     (when (equal org-lparse-backend 'odt)
    1505. 

  1505.       (push "styles.xml" xml-files))
    1506. 

  1506.     (message "Switching to directory %s" (expand-file-name zipdir))
    1507. 

  1507. 

  1508.     ;; save all xml files
    1509. 

  1509.     (mapc (lambda (file)
    1510. 

  1510. 	    (with-current-buffer
    1511. 

  1511. 		(find-file-noselect (expand-file-name file) t)
    1512. 

  1512. 	      ;; prettify output if needed
    1513. 

  1513. 	      (when org-export-e-odt-prettify-xml
    1514. 

  1514. 		(indent-region (point-min) (point-max)))
    1515. 

  1515. 	      (save-buffer 0)))
    1516. 

  1516. 	  xml-files)
    1517. 

  1517. 

  1518.     (let* ((target-name (file-name-nondirectory target))
    1519. 

  1519. 	   (target-dir (file-name-directory target))
    1520. 

  1520. 	   (cmds `(("zip" "-mX0" ,target-name "mimetype")
    1521. 

  1521. 		   ("zip" "-rmTq" ,target-name "."))))
    1522. 

  1522.       (when (file-exists-p target)
    1523. 

  1523. 	;; FIXME: If the file is locked this throws a cryptic error
    1524. 

  1524. 	(delete-file target))
    1525. 

  1525. 

  1526.       (let ((coding-system-for-write 'no-conversion) exitcode err-string)
    1527. 

  1527. 	(message "Creating odt file...")
    1528. 

  1528. 	(mapc
    1529. 

  1529. 	 (lambda (cmd)
    1530. 

  1530. 	   (message "Running %s" (mapconcat 'identity cmd " "))
    1531. 

  1531. 	   (setq err-string
    1532. 

  1532. 		 (with-output-to-string
    1533. 

  1533. 		   (setq exitcode
    1534. 

  1534. 			 (apply 'call-process (car cmd)
    1535. 

  1535. 				nil standard-output nil (cdr cmd)))))
    1536. 

  1536. 	   (or (zerop exitcode)
    1537. 

  1537. 	       (ignore (message "%s" err-string))
    1538. 

  1538. 	       (error "Unable to create odt file (%S)" exitcode)))
    1539. 

  1539. 	 cmds))
    1540. 

  1540. 

  1541.       ;; move the file from outdir to target-dir
    1542. 

  1542.       (rename-file target-name target-dir)
    1543. 

  1543. 

  1544.       ;; kill all xml buffers
    1545. 

  1545.       (mapc (lambda (file)
    1546. 

  1546. 	      (kill-buffer
    1547. 

  1547. 	       (find-file-noselect (expand-file-name file zipdir) t)))
    1548. 

  1548. 	    xml-files)
    1549. 

  1549. 

  1550.       (delete-directory zipdir)))
    1551. 

  1551.   (message "Created %s" target)
    1552. 

  1552.   (set-buffer (find-file-noselect target t)))
    1553. 

  1553. 

  1554. 

  1555. (defun org-e-odt-create-manifest-file-entry (&rest args)
    1556. 

  1556.   (push args org-e-odt-manifest-file-entries))
    1557. 

  1557. 

  1558. (defun org-e-odt-write-manifest-file ()
    1559. 

  1559.   (make-directory "META-INF")
    1560. 

  1560.   (let ((manifest-file (expand-file-name "META-INF/manifest.xml")))
    1561. 

  1561.     (with-current-buffer
    1562. 

  1562. 	(find-file-noselect manifest-file t)
    1563. 

  1563.       (insert
    1564. 

  1564.        "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
    1565. 

  1565.      <manifest:manifest xmlns:manifest=\"urn:oasis:names:tc:opendocument:xmlns:manifest:1.0\" manifest:version=\"1.2\">\n")
    1566. 

  1566.       (mapc
    1567. 

  1567.        (lambda (file-entry)
    1568. 

  1568. 	 (let* ((version (nth 2 file-entry))
    1569. 

  1569. 		(extra (if version
    1570. 

  1570. 			   (format  " manifest:version=\"%s\"" version)
    1571. 

  1571. 			 "")))
    1572. 

  1572. 	   (insert
    1573. 

  1573. 	    (format org-e-odt-manifest-file-entry-tag
    1574. 

  1574. 		    (nth 0 file-entry) (nth 1 file-entry) extra))))
    1575. 

  1575.        org-e-odt-manifest-file-entries)
    1576. 

  1576.       (insert "\n</manifest:manifest>"))))
    1577. 

  1577. 

  1578. (defun org-e-odt-update-meta-file (info) ; FIXME opt-plist
    1579. 

  1579.   (let ((date (org-e-odt-format-date (plist-get info :date)))
    1580. 

  1580. 	(author (or (plist-get info :author) ""))
    1581. 

  1581. 	(email (plist-get info :email))
    1582. 

  1582. 	(keywords (plist-get info :keywords))
    1583. 

  1583. 	(description (plist-get info :description))
    1584. 

  1584. 	(title (plist-get info :title)))
    1585. 

  1585.     (write-region
    1586. 

  1586.      (concat
    1587. 

  1587.       "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
    1588. 

  1588.      <office:document-meta
    1589. 

  1589.          xmlns:office=\"urn:oasis:names:tc:opendocument:xmlns:office:1.0\"
    1590. 

  1590.          xmlns:xlink=\"http://www.w3.org/1999/xlink\"
    1591. 

  1591.          xmlns:dc=\"http://purl.org/dc/elements/1.1/\"
    1592. 

  1592.          xmlns:meta=\"urn:oasis:names:tc:opendocument:xmlns:meta:1.0\"
    1593. 

  1593.          xmlns:ooo=\"http://openoffice.org/2004/office\"
    1594. 

  1594.          office:version=\"1.2\">
    1595. 

  1595.        <office:meta>\n"
    1596. 

  1596.       (org-e-odt-format-author author) "\n"
    1597. 

  1597.       (format "<meta:initial-creator>%s</meta:initial-creator>\n" author)
    1598. 

  1598.       (format "<dc:date>%s</dc:date>\n" date)
    1599. 

  1599.       (format "<meta:creation-date>%s</meta:creation-date>\n" date)
    1600. 

  1600.       (format "<meta:generator>%s</meta:generator>\n"
    1601. 

  1601. 	      (when org-export-creator-info
    1602. 

  1602. 		(format "Org-%s/Emacs-%s"
    1603. 

  1603. 			org-version emacs-version)))
    1604. 

  1604.       (format "<meta:keyword>%s</meta:keyword>\n" keywords)
    1605. 

  1605.       (format "<dc:subject>%s</dc:subject>\n" description)
    1606. 

  1606.       (format "<dc:title>%s</dc:title>\n" title)
    1607. 

  1607.       "\n"
    1608. 

  1608.       "  </office:meta>\n" "</office:document-meta>")
    1609. 

  1609.   nil (expand-file-name "meta.xml")))
    1610. 

  1610. 

  1611.   ;; create a manifest entry for meta.xml
    1612. 

  1612.   (org-e-odt-create-manifest-file-entry "text/xml" "meta.xml"))
    1613. 

  1613. 

  1614. (defun org-e-odt-update-styles-file (opt-plist)
    1615. 

  1615.   ;; write styles file
    1616. 

  1616.   (let ((styles-file (plist-get opt-plist :odt-styles-file)))
    1617. 

  1617.     (org-e-odt-copy-styles-file (and styles-file
    1618. 

  1618. 				     (read (org-trim styles-file)))))
    1619. 

  1619. 

  1620.   ;; Update styles.xml - take care of outline numbering
    1621. 

  1621.   (with-current-buffer
    1622. 

  1622.       (find-file-noselect (expand-file-name "styles.xml") t)
    1623. 

  1623.     ;; Don't make automatic backup of styles.xml file. This setting
    1624. 

  1624.     ;; prevents the backed-up styles.xml file from being zipped in to
    1625. 

  1625.     ;; odt file. This is more of a hackish fix. Better alternative
    1626. 

  1626.     ;; would be to fix the zip command so that the output odt file
    1627. 

  1627.     ;; includes only the needed files and excludes any auto-generated
    1628. 

  1628.     ;; extra files like backups and auto-saves etc etc. Note that
    1629. 

  1629.     ;; currently the zip command zips up the entire temp directory so
    1630. 

  1630.     ;; that any auto-generated files created under the hood ends up in
    1631. 

  1631.     ;; the resulting odt file.
    1632. 

  1632.     (set (make-local-variable 'backup-inhibited) t)
    1633. 

  1633. 

  1634.     ;; Import local setting of `org-export-with-section-numbers'
    1635. 

  1635.     (org-lparse-bind-local-variables opt-plist)
    1636. 

  1636.     (org-e-odt-configure-outline-numbering
    1637. 

  1637.      (if org-export-with-section-numbers org-export-headline-levels 0)))
    1638. 

  1638. 

  1639.   ;; Write custom styles for source blocks
    1640. 

  1640.   ;; (org-e-odt-insert-custom-styles-for-srcblocks FIXME
    1641. 

  1641.   ;;  (mapconcat
    1642. 

  1642.   ;;   (lambda (style)
    1643. 

  1643.   ;;     (format " %s\n" (cddr style)))
    1644. 

  1644.   ;;   hfy-user-sheet-assoc ""))
    1645. 

  1645.   )
    1646. 

  1646. 

  1647. (defun org-e-odt-write-mimetype-file (format)
    1648. 

  1648.   ;; create mimetype file
    1649. 

  1649.   (let ((mimetype
    1650. 

  1650. 	 (case format
    1651. 

  1651. 	   (odt "application/vnd.oasis.opendocument.text")
    1652. 

  1652. 	   (odf "application/vnd.oasis.opendocument.formula")
    1653. 

  1653. 	   (t (error "Unknown OpenDocument backend %S" org-lparse-backend)))))
    1654. 

  1654.     (write-region mimetype nil (expand-file-name "mimetype"))
    1655. 

  1655.     mimetype))
    1656. 

  1656. 

  1657. (defun org-e-odt-finalize-outfile ()
    1658. 

  1658.   (org-e-odt-delete-empty-paragraphs))
    1659. 

  1659. 

  1660. (defun org-e-odt-delete-empty-paragraphs ()
    1661. 

  1661.   (goto-char (point-min))
    1662. 

  1662.   (let ((open "<text:p[^>]*>")
    1663. 

  1663. 	(close "</text:p>"))
    1664. 

  1664.     (while (re-search-forward (format "%s[ \r\n\t]*%s" open close) nil t)
    1665. 

  1665.       (replace-match ""))))
    1666. 

  1666. 

  1667. (declare-function org-create-math-formula "org"
    1668. 

  1668. 		  (latex-frag &optional mathml-file))
    1669. 

  1669. 

  1670. ;;;###autoload
    1671. 

  1671. (defun org-export-e-odt-convert (&optional in-file out-fmt prefix-arg)
    1672. 

  1672.   "Convert IN-FILE to format OUT-FMT using a command line converter.
    1673. 

  1673. IN-FILE is the file to be converted.  If unspecified, it defaults
    1674. 

  1674. to variable `buffer-file-name'.  OUT-FMT is the desired output
    1675. 

  1675. format.  Use `org-export-e-odt-convert-process' as the converter.
    1676. 

  1676. If PREFIX-ARG is non-nil then the newly converted file is opened
    1677. 

  1677. using `org-open-file'."
    1678. 

  1678.   (interactive
    1679. 

  1679.    (append (org-lparse-convert-read-params) current-prefix-arg))
    1680. 

  1680.   (org-lparse-do-convert in-file out-fmt prefix-arg))
    1681. 

  1681. 

  1682. (defun org-e-odt-get (what &optional opt-plist)
    1683. 

  1683.   (case what
    1684. 

  1684.     (BACKEND 'odt)
    1685. 

  1685.     (EXPORT-DIR (org-export-directory :html opt-plist))
    1686. 

  1686.     (FILE-NAME-EXTENSION "odt")
    1687. 

  1687.     (EXPORT-BUFFER-NAME "*Org ODT Export*")
    1688. 

  1688.     (ENTITY-CONTROL org-e-odt-entity-control-callbacks-alist)
    1689. 

  1689.     (ENTITY-FORMAT org-e-odt-entity-format-callbacks-alist)
    1690. 

  1690.     (INIT-METHOD 'org-e-odt-init-outfile)
    1691. 

  1691.     (FINAL-METHOD 'org-e-odt-finalize-outfile)
    1692. 

  1692.     (SAVE-METHOD 'org-e-odt-save-as-outfile)
    1693. 

  1693.     (CONVERT-METHOD
    1694. 

  1694.      (and org-export-e-odt-convert-process
    1695. 

  1695. 	  (cadr (assoc-string org-export-e-odt-convert-process
    1696. 

  1696. 			      org-export-e-odt-convert-processes t))))
    1697. 

  1697.     (CONVERT-CAPABILITIES
    1698. 

  1698.      (and org-export-e-odt-convert-process
    1699. 

  1699. 	  (cadr (assoc-string org-export-e-odt-convert-process
    1700. 

  1700. 			      org-export-e-odt-convert-processes t))
    1701. 

  1701. 	  org-export-e-odt-convert-capabilities))
    1702. 

  1702.     (TOPLEVEL-HLEVEL 1)
    1703. 

  1703.     (SPECIAL-STRING-REGEXPS org-export-e-odt-special-string-regexps)
    1704. 

  1704.     (INLINE-IMAGES 'maybe)
    1705. 

  1705.     (INLINE-IMAGE-EXTENSIONS '("png" "jpeg" "jpg" "gif" "svg"))
    1706. 

  1706.     (PLAIN-TEXT-MAP '(("&" . "&amp;") ("<" . "&lt;") (">" . "&gt;")))
    1707. 

  1707.     (TABLE-FIRST-COLUMN-AS-LABELS nil)
    1708. 

  1708.     (FOOTNOTE-SEPARATOR )
    1709. 

  1709.     (CODING-SYSTEM-FOR-WRITE 'utf-8)
    1710. 

  1710.     (CODING-SYSTEM-FOR-SAVE 'utf-8)
    1711. 

  1711.     (t (error "Unknown property: %s"  what))))
    1712. 

  1712. 

  1713. (defun org-export-e-odt-do-preprocess-latex-fragments ()
    1714. 

  1714.   "Convert LaTeX fragments to images."
    1715. 

  1715.   (let* ((latex-frag-opt (plist-get org-lparse-opt-plist :LaTeX-fragments))
    1716. 

  1716. 	 (latex-frag-opt		;  massage the options
    1717. 

  1717. 	  (or (and (member latex-frag-opt '(mathjax t))
    1718. 

  1718. 		   (not (and (fboundp 'org-format-latex-mathml-available-p)
    1719. 

  1719. 			     (org-format-latex-mathml-available-p)))
    1720. 

  1720. 		   (prog1 org-lparse-latex-fragment-fallback
    1721. 

  1721. 		     (org-lparse-warn
    1722. 

  1722. 		      (concat
    1723. 

  1723. 		       "LaTeX to MathML converter not available. "
    1724. 

  1724. 		       (format "Using %S instead."
    1725. 

  1725. 			       org-lparse-latex-fragment-fallback)))))
    1726. 

  1726. 	      latex-frag-opt))
    1727. 

  1727. 	 cache-dir display-msg)
    1728. 

  1728.     (cond
    1729. 

  1729.      ((eq latex-frag-opt 'dvipng)
    1730. 

  1730.       (setq cache-dir "ltxpng/")
    1731. 

  1731.       (setq display-msg "Creating LaTeX image %s"))
    1732. 

  1732.      ((member latex-frag-opt '(mathjax t))
    1733. 

  1733.       (setq latex-frag-opt 'mathml)
    1734. 

  1734.       (setq cache-dir "ltxmathml/")
    1735. 

  1735.       (setq display-msg "Creating MathML formula %s")))
    1736. 

  1736.     (when (and org-current-export-file)
    1737. 

  1737.       (org-format-latex
    1738. 

  1738.        (concat cache-dir (file-name-sans-extension
    1739. 

  1739. 			  (file-name-nondirectory org-current-export-file)))
    1740. 

  1740.        org-current-export-dir nil display-msg
    1741. 

  1741.        nil nil latex-frag-opt))))
    1742. 

  1742. 

  1743. (defadvice org-format-latex-as-mathml
    1744. 

  1744.   (after org-e-odt-protect-latex-fragment activate)
    1745. 

  1745.   "Encode LaTeX fragment as XML.
    1746. 

  1746. Do this when translation to MathML fails."
    1747. 

  1747.   (when (or (not (> (length ad-return-value) 0))
    1748. 

  1748. 	    (get-text-property 0 'org-protected ad-return-value))
    1749. 

  1749.     (setq ad-return-value
    1750. 

  1750. 	  (org-propertize (org-e-odt-encode-plain-text (ad-get-arg 0))
    1751. 

  1751. 			  'org-protected t))))
    1752. 

  1752. 

  1753. (defun org-export-e-odt-preprocess-latex-fragments ()
    1754. 

  1754.   (when (equal org-export-current-backend 'odt)
    1755. 

  1755.     (org-export-e-odt-do-preprocess-latex-fragments)))
    1756. 

  1756. 

  1757. (defun org-export-e-odt-preprocess-label-references ()
    1758. 

  1758.   (goto-char (point-min))
    1759. 

  1759.   (let (label label-components category value pretty-label)
    1760. 

  1760.     (while (re-search-forward "\\\\ref{\\([^{}\n]+\\)}" nil t)
    1761. 

  1761.       (org-if-unprotected-at (match-beginning 1)
    1762. 

  1762. 	(replace-match
    1763. 

  1763. 	 (let ((org-lparse-encode-pending t)
    1764. 

  1764. 	       (label (match-string 1)))
    1765. 

  1765. 	   ;; markup generated below is mostly an eye-candy.  At
    1766. 

  1766. 	   ;; pre-processing stage, there is no information on which
    1767. 

  1767. 	   ;; entity a label reference points to.  The actual markup
    1768. 

  1768. 	   ;; is generated as part of `org-e-odt-fixup-label-references'
    1769. 

  1769. 	   ;; which gets called at the fag end of export.  By this
    1770. 

  1770. 	   ;; time we would have seen and collected all the label
    1771. 

  1771. 	   ;; definitions in `org-e-odt-entity-labels-alist'.
    1772. 

  1772. 	   (org-e-odt-format-tags
    1773. 

  1773. 	    '("<text:sequence-ref text:ref-name=\"%s\">" .
    1774. 

  1774. 	      "</text:sequence-ref>")
    1775. 

  1775. 	    "" (org-add-props label '(org-protected t)))) t t)))))
    1776. 

  1776. 

  1777. ;; process latex fragments as part of
    1778. 

  1778. ;; `org-export-preprocess-after-blockquote-hook'. Note that this hook
    1779. 

  1779. ;; is the one that is closest and well before the call to
    1780. 

  1780. ;; `org-export-attach-captions-and-attributes' in
    1781. 

  1781. ;; `org-export-preprocess-string'.  The above arrangement permits
    1782. 

  1782. ;; captions, labels and attributes to be attached to png images
    1783. 

  1783. ;; generated out of latex equations.
    1784. 

  1784. (add-hook 'org-export-preprocess-after-blockquote-hook
    1785. 

  1785. 	  'org-export-e-odt-preprocess-latex-fragments)
    1786. 

  1786. 

  1787. (defun org-export-e-odt-preprocess (parameters)
    1788. 

  1788.   (org-export-e-odt-preprocess-label-references))
    1789. 

  1789. 

  1790. 

  1791. (defun org-e-odt-zip-extract-one (archive member &optional target)
    1792. 

  1792.   (require 'arc-mode)
    1793. 

  1793.   (let* ((target (or target default-directory))
    1794. 

  1794. 	 (archive (expand-file-name archive))
    1795. 

  1795. 	 (archive-zip-extract
    1796. 

  1796. 	  (list "unzip" "-qq" "-o" "-d" target))
    1797. 

  1797. 	 exit-code command-output)
    1798. 

  1798.     (setq command-output
    1799. 

  1799. 	  (with-temp-buffer
    1800. 

  1800. 	    (setq exit-code (archive-zip-extract archive member))
    1801. 

  1801. 	    (buffer-string)))
    1802. 

  1802.     (unless (zerop exit-code)
    1803. 

  1803.       (message command-output)
    1804. 

  1804.       (error "Extraction failed"))))
    1805. 

  1805. 

  1806. (defun org-e-odt-zip-extract (archive members &optional target)
    1807. 

  1807.   (when (atom members) (setq members (list members)))
    1808. 

  1808.   (mapc (lambda (member)
    1809. 

  1809. 	  (org-e-odt-zip-extract-one archive member target))
    1810. 

  1810. 	members))
    1811. 

  1811. 

  1812. (defun org-e-odt-copy-styles-file (&optional styles-file)
    1813. 

  1813.   ;; Non-availability of styles.xml is not a critical error. For now
    1814. 

  1814.   ;; throw an error purely for aesthetic reasons.
    1815. 

  1815.   (setq styles-file (or styles-file
    1816. 

  1816. 			org-export-e-odt-styles-file
    1817. 

  1817. 			(expand-file-name "OrgOdtStyles.xml"
    1818. 

  1818. 					  org-e-odt-styles-dir)
    1819. 

  1819. 			(error "org-e-odt: Missing styles file?")))
    1820. 

  1820.   (cond
    1821. 

  1821.    ((listp styles-file)
    1822. 

  1822.     (let ((archive (nth 0 styles-file))
    1823. 

  1823. 	  (members (nth 1 styles-file)))
    1824. 

  1824.       (org-e-odt-zip-extract archive members)
    1825. 

  1825.       (mapc
    1826. 

  1826.        (lambda (member)
    1827. 

  1827. 	 (when (org-file-image-p member)
    1828. 

  1828. 	   (let* ((image-type (file-name-extension member))
    1829. 

  1829. 		  (media-type (format "image/%s" image-type)))
    1830. 

  1830. 	     (org-e-odt-create-manifest-file-entry media-type member))))
    1831. 

  1831.        members)))
    1832. 

  1832.    ((and (stringp styles-file) (file-exists-p styles-file))
    1833. 

  1833.     (let ((styles-file-type (file-name-extension styles-file)))
    1834. 

  1834.       (cond
    1835. 

  1835.        ((string= styles-file-type "xml")
    1836. 

  1836. 	(copy-file styles-file "styles.xml" t))
    1837. 

  1837.        ((member styles-file-type '("odt" "ott"))
    1838. 

  1838. 	(org-e-odt-zip-extract styles-file "styles.xml")))))
    1839. 

  1839.    (t
    1840. 

  1840.     (error (format "Invalid specification of styles.xml file: %S"
    1841. 

  1841. 		   org-export-e-odt-styles-file))))
    1842. 

  1842. 

  1843.   ;; create a manifest entry for styles.xml
    1844. 

  1844.   (org-e-odt-create-manifest-file-entry "text/xml" "styles.xml"))
    1845. 

  1845. 

  1846. (defun org-e-odt-configure-outline-numbering (level)
    1847. 

  1847.   "Outline numbering is retained only upto LEVEL.
    1848. 

  1848. To disable outline numbering pass a LEVEL of 0."
    1849. 

  1849.   (goto-char (point-min))
    1850. 

  1850.   (let ((regex
    1851. 

  1851. 	 "<text:outline-level-style\\([^>]*\\)text:level=\"\\([^\"]*\\)\"\\([^>]*\\)>")
    1852. 

  1852. 	(replacement
    1853. 

  1853. 	 "<text:outline-level-style\\1text:level=\"\\2\" style:num-format=\"\">"))
    1854. 

  1854.     (while (re-search-forward regex nil t)
    1855. 

  1855.       (when (> (string-to-number (match-string 2)) level)
    1856. 

  1856. 	(replace-match replacement t nil))))
    1857. 

  1857.   (save-buffer 0))
    1858. 

  1858. 

  1859. ;;;###autoload
    1860. 

  1860. (defun org-export-as-odf (latex-frag &optional odf-file)
    1861. 

  1861.   "Export LATEX-FRAG as OpenDocument formula file ODF-FILE.
    1862. 

  1862. Use `org-create-math-formula' to convert LATEX-FRAG first to
    1863. 

  1863. MathML.  When invoked as an interactive command, use
    1864. 

  1864. `org-latex-regexps' to infer LATEX-FRAG from currently active
    1865. 

  1865. region.  If no LaTeX fragments are found, prompt for it.  Push
    1866. 

  1866. MathML source to kill ring, if `org-export-copy-to-kill-ring' is
    1867. 

  1867. non-nil."
    1868. 

  1868.   (interactive
    1869. 

  1869.    `(,(let (frag)
    1870. 

  1870. 	(setq frag (and (setq frag (and (region-active-p)
    1871. 

  1871. 					(buffer-substring (region-beginning)
    1872. 

  1872. 							  (region-end))))
    1873. 

  1873. 			(loop for e in org-latex-regexps
    1874. 

  1874. 			      thereis (when (string-match (nth 1 e) frag)
    1875. 

  1875. 					(match-string (nth 2 e) frag)))))
    1876. 

  1876. 	(read-string "LaTeX Fragment: " frag nil frag))
    1877. 

  1877.      ,(let ((odf-filename (expand-file-name
    1878. 

  1878. 			   (concat
    1879. 

  1879. 			    (file-name-sans-extension
    1880. 

  1880. 			     (or (file-name-nondirectory buffer-file-name)))
    1881. 

  1881. 			    "." "odf")
    1882. 

  1882. 			   (file-name-directory buffer-file-name))))
    1883. 

  1883. 	(read-file-name "ODF filename: " nil odf-filename nil
    1884. 

  1884. 			(file-name-nondirectory odf-filename)))))
    1885. 

  1885.   (let* ((org-lparse-backend 'odf)
    1886. 

  1886. 	 org-lparse-opt-plist
    1887. 

  1887. 	 (filename (or odf-file
    1888. 

  1888. 		       (expand-file-name
    1889. 

  1889. 			(concat
    1890. 

  1890. 			 (file-name-sans-extension
    1891. 

  1891. 			  (or (file-name-nondirectory buffer-file-name)))
    1892. 

  1892. 			 "." "odf")
    1893. 

  1893. 			(file-name-directory buffer-file-name))))
    1894. 

  1894. 	 (buffer (find-file-noselect (org-e-odt-init-outfile filename)))
    1895. 

  1895. 	 (coding-system-for-write 'utf-8)
    1896. 

  1896. 	 (save-buffer-coding-system 'utf-8))
    1897. 

  1897.     (set-buffer buffer)
    1898. 

  1898.     (set-buffer-file-coding-system coding-system-for-write)
    1899. 

  1899.     (let ((mathml (org-create-math-formula latex-frag)))
    1900. 

  1900.       (unless mathml (error "No Math formula created"))
    1901. 

  1901.       (insert mathml)
    1902. 

  1902.       (or (org-export-push-to-kill-ring
    1903. 

  1903. 	   (upcase (symbol-name org-lparse-backend)))
    1904. 

  1904. 	  (message "Exporting... done")))
    1905. 

  1905.     (org-e-odt-save-as-outfile filename nil ; FIXME
    1906. 

  1906. 			       )))
    1907. 

  1907. 

  1908. ;;;###autoload
    1909. 

  1909. (defun org-export-as-odf-and-open ()
    1910. 

  1910.   "Export LaTeX fragment as OpenDocument formula and immediately open it.
    1911. 

  1911. Use `org-export-as-odf' to read LaTeX fragment and OpenDocument
    1912. 

  1912. formula file."
    1913. 

  1913.   (interactive)
    1914. 

  1914.   (org-lparse-and-open
    1915. 

  1915.    nil nil nil (call-interactively 'org-export-as-odf)))
    1916. 

  1916. 

  1917. 

  1918. 
    1919. 

  1919. 

  1920. ;;; Driver Starts here
    1921. 

  1921. ;;; Dependencies
    1922. 

  1922. 

  1923. (require 'format-spec)
    1924. 

  1924. (eval-when-compile (require 'cl) (require 'table))
    1925. 

  1925. 

  1926. 

  1927. 
    1928. 

  1928. ;;; Hooks
    1929. 

  1929. 

  1930. (defvar org-e-odt-after-blockquotes-hook nil
    1931. 

  1931.   "Hook run during HTML export, after blockquote, verse, center are done.")
    1932. 

  1932. 

  1933. (defvar org-e-odt-final-hook nil
    1934. 

  1934.   "Hook run at the end of HTML export, in the new buffer.")
    1935. 

  1935. 

  1936. ;; FIXME: it already exists in org-e-odt.el
    1937. 

  1937. ;;; Function Declarations
    1938. 

  1938. 

  1939. (declare-function org-element-property "org-element" (property element))
    1940. 

  1940. (declare-function org-element-normalize-string "org-element" (s))
    1941. 

  1941. (declare-function org-element-parse-secondary-string
    1942. 

  1942. 		  "org-element" (string restriction &optional buffer))
    1943. 

  1943. (defvar org-element-string-restrictions)
    1944. 

  1944. 

  1945. (declare-function org-export-clean-table "org-export" (table specialp))
    1946. 

  1946. (declare-function org-export-data "org-export" (data backend info))
    1947. 

  1947. (declare-function org-export-directory "org-export" (type plist))
    1948. 

  1948. (declare-function org-export-expand-macro "org-export" (macro info))
    1949. 

  1949. (declare-function org-export-first-sibling-p "org-export" (headline info))
    1950. 

  1950. (declare-function org-export-footnote-first-reference-p "org-export"
    1951. 

  1951. 		  (footnote-reference info))
    1952. 

  1952. (declare-function org-export-get-coderef-format "org-export" (path desc))
    1953. 

  1953. (declare-function org-export-get-footnote-definition "org-export"
    1954. 

  1954. 		  (footnote-reference info))
    1955. 

  1955. (declare-function org-export-get-footnote-number "org-export" (footnote info))
    1956. 

  1956. (declare-function org-export-get-previous-element "org-export" (blob info))
    1957. 

  1957. (declare-function org-export-get-relative-level "org-export" (headline info))
    1958. 

  1958. (declare-function org-export-handle-code
    1959. 

  1959. 		  "org-export" (element info &optional num-fmt ref-fmt delayed))
    1960. 

  1960. (declare-function org-export-included-file "org-export" (keyword backend info))
    1961. 

  1961. (declare-function org-export-inline-image-p "org-export"
    1962. 

  1962. 		  (link &optional extensions))
    1963. 

  1963. (declare-function org-export-last-sibling-p "org-export" (headline info))
    1964. 

  1964. (declare-function org-export-low-level-p "org-export" (headline info))
    1965. 

  1965. (declare-function org-export-output-file-name
    1966. 

  1966. 		  "org-export" (extension &optional subtreep pub-dir))
    1967. 

  1967. (declare-function org-export-resolve-coderef "org-export" (ref info))
    1968. 

  1968. (declare-function org-export-resolve-fuzzy-link "org-export" (link info))
    1969. 

  1969. (declare-function org-export-secondary-string "org-export"
    1970. 

  1970. 		  (secondary backend info))
    1971. 

  1971. (declare-function org-export-solidify-link-text "org-export" (s))
    1972. 

  1972. (declare-function org-export-table-format-info "org-export" (table))
    1973. 

  1973. (declare-function
    1974. 

  1974.  org-export-to-buffer "org-export"
    1975. 

  1975.  (backend buffer &optional subtreep visible-only body-only ext-plist))
    1976. 

  1976. (declare-function
    1977. 

  1977.  org-export-to-file "org-export"
    1978. 

  1978.  (backend file &optional subtreep visible-only body-only ext-plist))
    1979. 

  1979. 

  1980. (declare-function org-id-find-id-file "org-id" (id))
    1981. 

  1981. (declare-function htmlize-region "ext:htmlize" (beg end))
    1982. 

  1982. (declare-function org-pop-to-buffer-same-window
    1983. 

  1983. 		  "org-compat" (&optional buffer-or-name norecord label))
    1984. 

  1984. 

  1985. 

  1986. 

  1987. 
    1988. 

  1988. 

  1989. (declare-function hfy-face-to-style "htmlfontify" (fn))
    1990. 

  1990. (declare-function hfy-face-or-def-to-name "htmlfontify" (fn))
    1991. 

  1991. (declare-function archive-zip-extract "arc-mode.el" (archive name))
    1992. 

  1992. 

  1993. ;;; Internal Variables
    1994. 

  1994. 

  1995. ;;;; ODT Internal Variables
    1996. 

  1996. 

  1997. (defconst org-e-odt-lib-dir
    1998. 

  1998.   (file-name-directory load-file-name)
    1999. 

  1999.   "Location of ODT exporter.
    2000. 

  2000. Use this to infer values of `org-e-odt-styles-dir' and
    2001. 

  2001. `org-export-e-odt-schema-dir'.")
    2002. 

  2002. 

  2003. (defvar org-e-odt-data-dir
    2004. 

  2004.   (expand-file-name "../etc/" org-e-odt-lib-dir)
    2005. 

  2005.   "Data directory for ODT exporter.
    2006. 

  2006. Use this to infer values of `org-e-odt-styles-dir' and
    2007. 

  2007. `org-export-e-odt-schema-dir'.")
    2008. 

  2008. 

  2009. 

  2010. 

  2011. 

  2012. (defconst org-export-e-odt-special-string-regexps
    2013. 

  2013.   '(("\\\\-" . "&#x00ad;\\1")		; shy
    2014. 

  2014.     ("---\\([^-]\\)" . "&#x2014;\\1")	; mdash
    2015. 

  2015.     ("--\\([^-]\\)" . "&#x2013;\\1")	; ndash
    2016. 

  2016.     ("\\.\\.\\." . "&#x2026;"))		; hellip
    2017. 

  2017.   "Regular expressions for special string conversion.")
    2018. 

  2018. 

  2019. (defconst org-e-odt-schema-dir-list
    2020. 

  2020.   (list
    2021. 

  2021.    (and org-e-odt-data-dir
    2022. 

  2022. 	(expand-file-name "./schema/" org-e-odt-data-dir)) ; bail out
    2023. 

  2023.    (eval-when-compile
    2024. 

  2024.      (and (boundp 'org-e-odt-data-dir) org-e-odt-data-dir ; see make install
    2025. 

  2025. 	  (expand-file-name "./schema/" org-e-odt-data-dir)))
    2026. 

  2026.    (expand-file-name "../contrib/odt/etc/schema/" org-e-odt-lib-dir) ; git
    2027. 

  2027.    )
    2028. 

  2028.   "List of directories to search for OpenDocument schema files.
    2029. 

  2029. Use this list to set the default value of
    2030. 

  2030. `org-export-e-odt-schema-dir'.  The entries in this list are
    2031. 

  2031. populated heuristically based on the values of `org-e-odt-lib-dir'
    2032. 

  2032. and `org-e-odt-data-dir'.")
    2033. 

  2033. 

  2034. 

  2035. (defconst org-e-odt-styles-dir-list
    2036. 

  2036.   (list
    2037. 

  2037.    (and org-e-odt-data-dir
    2038. 

  2038. 	(expand-file-name "./styles/" org-e-odt-data-dir)) ; bail out
    2039. 

  2039.    (eval-when-compile
    2040. 

  2040.      (and (boundp 'org-e-odt-data-dir) org-e-odt-data-dir ; see make install
    2041. 

  2041. 	  (expand-file-name "./styles/" org-e-odt-data-dir)))
    2042. 

  2042.    (expand-file-name "../etc/styles/" org-e-odt-lib-dir) ; git
    2043. 

  2043.    (expand-file-name "./etc/styles/" org-e-odt-lib-dir)  ; elpa
    2044. 

  2044.    (expand-file-name "./org/" data-directory)	       ; system
    2045. 

  2045.    )
    2046. 

  2046.   "List of directories to search for OpenDocument styles files.
    2047. 

  2047. See `org-e-odt-styles-dir'.  The entries in this list are populated
    2048. 

  2048. heuristically based on the values of `org-e-odt-lib-dir' and
    2049. 

  2049. `org-e-odt-data-dir'.")
    2050. 

  2050. 

  2051. (defconst org-e-odt-styles-dir
    2052. 

  2052.   (let* ((styles-dir
    2053. 

  2053. 	  (catch 'styles-dir
    2054. 

  2054. 	    (message "Debug (org-e-odt): Searching for OpenDocument styles files...")
    2055. 

  2055. 	    (mapc (lambda (styles-dir)
    2056. 

  2056. 		    (when styles-dir
    2057. 

  2057. 		      (message "Debug (org-e-odt): Trying %s..." styles-dir)
    2058. 

  2058. 		      (when (and (file-readable-p
    2059. 

  2059. 				  (expand-file-name
    2060. 

  2060. 				   "OrgOdtContentTemplate.xml" styles-dir))
    2061. 

  2061. 				 (file-readable-p
    2062. 

  2062. 				  (expand-file-name
    2063. 

  2063. 				   "OrgOdtStyles.xml" styles-dir)))
    2064. 

  2064. 			(message "Debug (org-e-odt): Using styles under %s"
    2065. 

  2065. 				 styles-dir)
    2066. 

  2066. 			(throw 'styles-dir styles-dir))))
    2067. 

  2067. 		  org-e-odt-styles-dir-list)
    2068. 

  2068. 	    nil)))
    2069. 

  2069.     (unless styles-dir
    2070. 

  2070.       (error "Error (org-e-odt): Cannot find factory styles files. Aborting."))
    2071. 

  2071.     styles-dir)
    2072. 

  2072.   "Directory that holds auxiliary XML files used by the ODT exporter.
    2073. 

  2073. 

  2074. This directory contains the following XML files -
    2075. 

  2075.  \"OrgOdtStyles.xml\" and \"OrgOdtContentTemplate.xml\".  These
    2076. 

  2076.  XML files are used as the default values of
    2077. 

  2077.  `org-export-e-odt-styles-file' and
    2078. 

  2078.  `org-export-e-odt-content-template-file'.
    2079. 

  2079. 

  2080. The default value of this variable varies depending on the
    2081. 

  2081. version of org in use and is initialized from
    2082. 

  2082. `org-e-odt-styles-dir-list'.  Note that the user could be using org
    2083. 

  2083. from one of: org's own private git repository, GNU ELPA tar or
    2084. 

  2084. standard Emacs.")
    2085. 

  2085. 

  2086. (defconst org-export-e-odt-tmpdir-prefix "%s-")
    2087. 

  2087. (defconst org-export-e-odt-bookmark-prefix "OrgXref.")
    2088. 

  2088. 

  2089. (defconst org-e-odt-manifest-file-entry-tag
    2090. 

  2090.   "
    2091. 

  2091. <manifest:file-entry manifest:media-type=\"%s\" manifest:full-path=\"%s\"%s/>")
    2092. 

  2092. 

  2093. 

  2094. 

  2095. (defvar org-lparse-dyn-first-heading-pos) ; let bound during org-do-lparse
    2096. 

  2096. 

  2097. (defvar org-e-odt-suppress-xref nil)
    2098. 

  2098. (defvar org-e-odt-file-extensions
    2099. 

  2099.   '(("odt" . "OpenDocument Text")
    2100. 

  2100.     ("ott" . "OpenDocument Text Template")
    2101. 

  2101.     ("odm" . "OpenDocument Master Document")
    2102. 

  2102.     ("ods" . "OpenDocument Spreadsheet")
    2103. 

  2103.     ("ots" . "OpenDocument Spreadsheet Template")
    2104. 

  2104.     ("odg" . "OpenDocument Drawing (Graphics)")
    2105. 

  2105.     ("otg" . "OpenDocument Drawing Template")
    2106. 

  2106.     ("odp" . "OpenDocument Presentation")
    2107. 

  2107.     ("otp" . "OpenDocument Presentation Template")
    2108. 

  2108.     ("odi" . "OpenDocument Image")
    2109. 

  2109.     ("odf" . "OpenDocument Formula")
    2110. 

  2110.     ("odc" . "OpenDocument Chart")))
    2111. 

  2111. 

  2112. (defvar org-export-e-odt-embed-images t
    2113. 

  2113.   "Should the images be copied in to the odt file or just linked?")
    2114. 

  2114. 

  2115. (defvar org-export-e-odt-inline-images 'maybe)
    2116. 

  2116. (defvar org-export-e-odt-default-org-styles-alist
    2117. 

  2117.   '((paragraph . ((default . "Text_20_body")
    2118. 

  2118. 		  (fixedwidth . "OrgFixedWidthBlock")
    2119. 

  2119. 		  (verse . "OrgVerse")
    2120. 

  2120. 		  (quote . "Quotations")
    2121. 

  2121. 		  (blockquote . "Quotations")
    2122. 

  2122. 		  (center . "OrgCenter")
    2123. 

  2123. 		  (left . "OrgLeft")
    2124. 

  2124. 		  (right . "OrgRight")
    2125. 

  2125. 		  (title . "OrgTitle")
    2126. 

  2126. 		  (subtitle . "OrgSubtitle")
    2127. 

  2127. 		  (footnote . "Footnote")
    2128. 

  2128. 		  (src . "OrgSrcBlock")
    2129. 

  2129. 		  (illustration . "Illustration")
    2130. 

  2130. 		  (table . "Table")
    2131. 

  2131. 		  (definition-term . "Text_20_body_20_bold")
    2132. 

  2132. 		  (horizontal-line . "Horizontal_20_Line")))
    2133. 

  2133.     (character . ((bold . "Bold")
    2134. 

  2134. 		  (emphasis . "Emphasis")
    2135. 

  2135. 		  (code . "OrgCode")
    2136. 

  2136. 		  (verbatim . "OrgCode")
    2137. 

  2137. 		  (strike . "Strikethrough")
    2138. 

  2138. 		  (underline . "Underline")
    2139. 

  2139. 		  (subscript . "OrgSubscript")
    2140. 

  2140. 		  (superscript . "OrgSuperscript")))
    2141. 

  2141.     (list . ((ordered . "OrgNumberedList")
    2142. 

  2142. 	     (unordered . "OrgBulletedList")
    2143. 

  2143. 	     (descriptive . "OrgDescriptionList"))))
    2144. 

  2144.   "Default styles for various entities.")
    2145. 

  2145. 

  2146. (defvar org-export-e-odt-org-styles-alist org-export-e-odt-default-org-styles-alist)
    2147. 

  2147. 

  2148. (defvar org-e-odt-entity-control-callbacks-alist
    2149. 

  2149.   `((EXPORT
    2150. 

  2150.      . (org-e-odt-begin-export org-e-odt-end-export))
    2151. 

  2151.     (DOCUMENT-CONTENT
    2152. 

  2152.      . (org-e-odt-begin-document-content org-e-odt-end-document-content))
    2153. 

  2153.     (DOCUMENT-BODY
    2154. 

  2154.      . (org-e-odt-begin-document-body org-e-odt-end-document-body))
    2155. 

  2155.     (TOC
    2156. 

  2156.      . (org-e-odt-begin-toc org-e-odt-end-toc))
    2157. 

  2157.     (ENVIRONMENT
    2158. 

  2158.      . (org-e-odt-begin-environment org-e-odt-end-environment))
    2159. 

  2159.     (FOOTNOTE-DEFINITION
    2160. 

  2160.      . (org-e-odt-begin-footnote-definition org-e-odt-end-footnote-definition))
    2161. 

  2161.     (TABLE
    2162. 

  2162.      . (org-e-odt-begin-table org-e-odt-end-table))
    2163. 

  2163.     (TABLE-ROWGROUP
    2164. 

  2164.      . (org-e-odt-begin-table-rowgroup org-e-odt-end-table-rowgroup))
    2165. 

  2165.     (LIST
    2166. 

  2166.      . (org-e-odt-begin-list org-e-odt-end-list))
    2167. 

  2167.     (LIST-ITEM
    2168. 

  2168.      . (org-e-odt-begin-list-item org-e-odt-end-list-item))
    2169. 

  2169.     (OUTLINE
    2170. 

  2170.      . (org-e-odt-begin-outline org-e-odt-end-outline))
    2171. 

  2171.     (OUTLINE-TEXT
    2172. 

  2172.      . (org-e-odt-begin-outline-text org-e-odt-end-outline-text))
    2173. 

  2173.     (PARAGRAPH
    2174. 

  2174.      . (org-e-odt-begin-paragraph org-e-odt-end-paragraph)))
    2175. 

  2175.   "")
    2176. 

  2176. 

  2177. (defvar org-e-odt-entity-format-callbacks-alist
    2178. 

  2178.   `((EXTRA-TARGETS . org-lparse-format-extra-targets)
    2179. 

  2179.     (ORG-TAGS . org-lparse-format-org-tags)
    2180. 

  2180.     (SECTION-NUMBER . org-lparse-format-section-number)
    2181. 

  2181.     (HEADLINE . org-e-odt-format-headline)
    2182. 

  2182.     (TOC-ENTRY . org-e-odt-format-toc-entry)
    2183. 

  2183.     (TOC-ITEM . org-e-odt-format-toc-item)
    2184. 

  2184.     (TAGS . org-e-odt-format-tags)
    2185. 

  2185.     (SPACES . org-e-odt-format-spaces)
    2186. 

  2186.     (TABS . org-e-odt-format-tabs)
    2187. 

  2187.     (LINE-BREAK . org-e-odt-format-line-break)
    2188. 

  2188.     (FONTIFY . org-e-odt-format-fontify)
    2189. 

  2189.     (TODO . org-lparse-format-todo)
    2190. 

  2190.     (LINK . org-e-odt-format-link)
    2191. 

  2191.     (INLINE-IMAGE . org-e-odt-format-inline-image)
    2192. 

  2192.     (ORG-LINK . org-e-odt-format-org-link)
    2193. 

  2193.     (HEADING . org-e-odt-format-heading)
    2194. 

  2194.     (ANCHOR . org-e-odt-format-anchor)
    2195. 

  2195.     (TABLE . org-lparse-format-table)
    2196. 

  2196.     (TABLE-ROW . org-e-odt-format-table-row)
    2197. 

  2197.     (TABLE-CELL . org-e-odt-format-table-cell)
    2198. 

  2198.     (FOOTNOTES-SECTION . ignore)
    2199. 

  2199.     (FOOTNOTE-REFERENCE . org-e-odt-format-footnote-reference)
    2200. 

  2200.     (HORIZONTAL-LINE . org-e-odt-format-horizontal-line)
    2201. 

  2201.     (COMMENT . org-e-odt-format-comment)
    2202. 

  2202.     (LINE . org-e-odt-format-line)
    2203. 

  2203.     (ORG-ENTITY . org-e-odt-format-org-entity))
    2204. 

  2204.   "")
    2205. 

  2205. 

  2206. ;;;_. callbacks
    2207. 

  2207. ;;;_. control callbacks
    2208. 

  2208. ;;;_ , document body
    2209. 

  2209. 

  2210. (defvar org-lparse-toc)
    2211. 

  2211. (defvar org-lparse-body-only)		; let bound during org-do-lparse
    2212. 

  2212. (defvar org-lparse-to-buffer)		; let bound during org-do-lparse
    2213. 

  2213. (defvar org-lparse-opt-plist)		    ; bound during org-do-lparse
    2214. 

  2214. (defvar org-lparse-list-stack) ; dynamically bound in org-do-lparse
    2215. 

  2215. (defvar org-e-odt-list-stack-stashed)
    2216. 

  2216. (defvar org-lparse-table-begin-marker)
    2217. 

  2217. (defvar org-lparse-table-ncols)
    2218. 

  2218. (defvar org-e-odt-table-rowgrp-open)
    2219. 

  2219. (defvar org-e-odt-table-rownum)
    2220. 

  2220. (defvar org-e-odt-table-cur-rowgrp-is-hdr)
    2221. 

  2221. (defvar org-lparse-table-is-styled)
    2222. 

  2222. (defvar org-lparse-table-rowgrp-info)
    2223. 

  2223. (defvar org-lparse-table-colalign-vector)
    2224. 

  2224. 

  2225. (defvar org-e-odt-table-style nil
    2226. 

  2226.   "Table style specified by \"#+ATTR_ODT: <style-name>\" line.
    2227. 

  2227. This is set during `org-e-odt-begin-table'.")
    2228. 

  2228. 

  2229. (defvar org-e-odt-table-style-spec nil
    2230. 

  2230.   "Entry for `org-e-odt-table-style' in `org-export-e-odt-table-styles'.")
    2231. 

  2231. 

  2232. 

  2233. (defvar org-e-odt-table-style-format
    2234. 

  2234.   "
    2235. 

  2235. <style:style style:name=\"%s\" style:family=\"table\">
    2236. 

  2236.   <style:table-properties style:rel-width=\"%d%%\" fo:margin-top=\"0cm\" fo:margin-bottom=\"0.20cm\" table:align=\"center\"/>
    2237. 

  2237. </style:style>
    2238. 

  2238. "
    2239. 

  2239.   "Template for auto-generated Table styles.")
    2240. 

  2240. 

  2241. (defvar org-e-odt-automatic-styles '()
    2242. 

  2242.   "Registry of automatic styles for various OBJECT-TYPEs.
    2243. 

  2243. The variable has the following form:
    2244. 

  2244. \(\(OBJECT-TYPE-A
    2245. 

  2245.   \(\(OBJECT-NAME-A.1 OBJECT-PROPS-A.1\)
    2246. 

  2246.    \(OBJECT-NAME-A.2 OBJECT-PROPS-A.2\) ...\)\)
    2247. 

  2247.  \(OBJECT-TYPE-B
    2248. 

  2248.   \(\(OBJECT-NAME-B.1 OBJECT-PROPS-B.1\)
    2249. 

  2249.    \(OBJECT-NAME-B.2 OBJECT-PROPS-B.2\) ...\)\)
    2250. 

  2250.  ...\).
    2251. 

  2251. 

  2252. OBJECT-TYPEs could be \"Section\", \"Table\", \"Figure\" etc.
    2253. 

  2253. OBJECT-PROPS is (typically) a plist created by passing
    2254. 

  2254. \"#+ATTR_ODT: \" option to `org-lparse-get-block-params'.
    2255. 

  2255. 

  2256. Use `org-e-odt-add-automatic-style' to add update this variable.'")
    2257. 

  2257. 

  2258. (defvar org-e-odt-object-counters nil
    2259. 

  2259.   "Running counters for various OBJECT-TYPEs.
    2260. 

  2260. Use this to generate automatic names and style-names. See
    2261. 

  2261. `org-e-odt-add-automatic-style'.")
    2262. 

  2262. 

  2263. (defvar org-e-odt-table-indentedp nil)
    2264. 

  2264. (defvar org-lparse-table-colalign-info)
    2265. 

  2265. (defvar org-lparse-link-description-is-image nil)
    2266. 

  2266. 

  2267. 

  2268. (defvar org-src-block-paragraph-format
    2269. 

  2269.   "<style:style style:name=\"OrgSrcBlock\" style:family=\"paragraph\" style:parent-style-name=\"Preformatted_20_Text\">
    2270. 

  2270.    <style:paragraph-properties fo:background-color=\"%s\" fo:padding=\"0.049cm\" fo:border=\"0.51pt solid #000000\" style:shadow=\"none\">
    2271. 

  2271.     <style:background-image/>
    2272. 

  2272.    </style:paragraph-properties>
    2273. 

  2273.    <style:text-properties fo:color=\"%s\"/>
    2274. 

  2274.   </style:style>"
    2275. 

  2275.   "Custom paragraph style for colorized source and example blocks.
    2276. 

  2276. This style is much the same as that of \"OrgFixedWidthBlock\"
    2277. 

  2277. except that the foreground and background colors are set
    2278. 

  2278. according to the default face identified by the `htmlfontify'.")
    2279. 

  2279. 

  2280. (defvar hfy-optimisations)
    2281. 

  2281. (defvar org-e-odt-embedded-formulas-count 0)
    2282. 

  2282. (defvar org-e-odt-entity-frame-styles
    2283. 

  2283.   '(("As-CharImage" "__Figure__" ("OrgInlineImage" nil "as-char"))
    2284. 

  2284.     ("ParagraphImage" "__Figure__" ("OrgDisplayImage" nil "paragraph"))
    2285. 

  2285.     ("PageImage" "__Figure__" ("OrgPageImage" nil "page"))
    2286. 

  2286.     ("CaptionedAs-CharImage" "__Figure__"
    2287. 

  2287.      ("OrgCaptionedImage"
    2288. 

  2288.       " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph")
    2289. 

  2289.      ("OrgInlineImage" nil "as-char"))
    2290. 

  2290.     ("CaptionedParagraphImage" "__Figure__"
    2291. 

  2291.      ("OrgCaptionedImage"
    2292. 

  2292.       " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph")
    2293. 

  2293.      ("OrgImageCaptionFrame" nil "paragraph"))
    2294. 

  2294.     ("CaptionedPageImage" "__Figure__"
    2295. 

  2295.      ("OrgCaptionedImage"
    2296. 

  2296.       " style:rel-width=\"100%\" style:rel-height=\"scale\"" "paragraph")
    2297. 

  2297.      ("OrgPageImageCaptionFrame" nil "page"))
    2298. 

  2298.     ("InlineFormula" "__MathFormula__" ("OrgInlineFormula" nil "as-char"))
    2299. 

  2299.     ("DisplayFormula" "__MathFormula__" ("OrgDisplayFormula" nil "as-char"))
    2300. 

  2300.     ("CaptionedDisplayFormula" "__MathFormula__"
    2301. 

  2301.      ("OrgCaptionedFormula" nil "paragraph")
    2302. 

  2302.      ("OrgFormulaCaptionFrame" nil "as-char"))))
    2303. 

  2303. 

  2304. (defvar org-e-odt-embedded-images-count 0)
    2305. 

  2305. 

  2306. (defvar org-export-e-odt-image-size-probe-method
    2307. 

  2307.   (append (and (executable-find "identify") '(imagemagick)) ; See Bug#10675
    2308. 

  2308. 	  '(emacs fixed))
    2309. 

  2309.   "Ordered list of methods for determining image sizes.")
    2310. 

  2310. 

  2311. (defvar org-export-e-odt-default-image-sizes-alist
    2312. 

  2312.   '(("as-char" . (5 . 0.4))
    2313. 

  2313.     ("paragraph" . (5 . 5)))
    2314. 

  2314.   "Hardcoded image dimensions one for each of the anchor
    2315. 

  2315.   methods.")
    2316. 

  2316. 

  2317. ;; A4 page size is 21.0 by 29.7 cms
    2318. 

  2318. ;; The default page settings has 2cm margin on each of the sides. So
    2319. 

  2319. ;; the effective text area is 17.0 by 25.7 cm
    2320. 

  2320. (defvar org-export-e-odt-max-image-size '(17.0 . 20.0)
    2321. 

  2321.   "Limiting dimensions for an embedded image.")
    2322. 

  2322. 

  2323. (defvar org-e-odt-entity-labels-alist nil
    2324. 

  2324.   "Associate Labels with the Labeled entities.
    2325. 

  2325. Each element of the alist is of the form (LABEL-NAME
    2326. 

  2326. CATEGORY-NAME SEQNO LABEL-STYLE-NAME).  LABEL-NAME is same as
    2327. 

  2327. that specified by \"#+LABEL: ...\" line.  CATEGORY-NAME is the
    2328. 

  2328. type of the entity that LABEL-NAME is attached to.  CATEGORY-NAME
    2329. 

  2329. can be one of \"Table\", \"Figure\" or \"Equation\".  SEQNO is
    2330. 

  2330. the unique number assigned to the referenced entity on a
    2331. 

  2331. per-CATEGORY basis.  It is generated sequentially and is 1-based.
    2332. 

  2332. LABEL-STYLE-NAME is a key `org-e-odt-label-styles'.
    2333. 

  2333. 

  2334. See `org-e-odt-add-label-definition' and
    2335. 

  2335. `org-e-odt-fixup-label-references'.")
    2336. 

  2336. 

  2337. (defvar org-e-odt-entity-counts-plist nil
    2338. 

  2338.   "Plist of running counters of SEQNOs for each of the CATEGORY-NAMEs.
    2339. 

  2339. See `org-e-odt-entity-labels-alist' for known CATEGORY-NAMEs.")
    2340. 

  2340. 

  2341. (defvar org-e-odt-label-styles
    2342. 

  2342.   '(("text" "(%n)" "text" "(%n)")
    2343. 

  2343.     ("category-and-value" "%e %n%c" "category-and-value" "%e %n")
    2344. 

  2344.     ("value" "%e %n%c" "value" "%n"))
    2345. 

  2345.   "Specify how labels are applied and referenced.
    2346. 

  2346. This is an alist where each element is of the
    2347. 

  2347. form (LABEL-STYLE-NAME LABEL-ATTACH-FMT LABEL-REF-MODE
    2348. 

  2348. LABEL-REF-FMT).
    2349. 

  2349. 

  2350. LABEL-ATTACH-FMT controls how labels and captions are attached to
    2351. 

  2351. an entity.  It may contain following specifiers - %e, %n and %c.
    2352. 

  2352. %e is replaced with the CATEGORY-NAME.  %n is replaced with
    2353. 

  2353. \"<text:sequence ...> SEQNO </text:sequence>\".  %c is replaced
    2354. 

  2354. with CAPTION. See `org-e-odt-format-label-definition'.
    2355. 

  2355. 

  2356. LABEL-REF-MODE and LABEL-REF-FMT controls how label references
    2357. 

  2357. are generated.  The following XML is generated for a label
    2358. 

  2358. reference - \"<text:sequence-ref
    2359. 

  2359. text:reference-format=\"LABEL-REF-MODE\" ...> LABEL-REF-FMT
    2360. 

  2360. </text:sequence-ref>\".  LABEL-REF-FMT may contain following
    2361. 

  2361. specifiers - %e and %n.  %e is replaced with the CATEGORY-NAME.
    2362. 

  2362. %n is replaced with SEQNO. See
    2363. 

  2363. `org-e-odt-format-label-reference'.")
    2364. 

  2364. 

  2365. (defvar org-e-odt-category-map-alist
    2366. 

  2366.   '(("__Table__" "Table" "value")
    2367. 

  2367.     ("__Figure__" "Figure" "value")
    2368. 

  2368.     ("__MathFormula__" "Equation" "text")
    2369. 

  2369.     ("__DvipngImage__" "Equation" "value")
    2370. 

  2370.     ;; ("__Table__" "Table" "category-and-value")
    2371. 

  2371.     ;; ("__Figure__" "Figure" "category-and-value")
    2372. 

  2372.     ;; ("__DvipngImage__" "Equation" "category-and-value")
    2373. 

  2373.     )
    2374. 

  2374.   "Map a CATEGORY-HANDLE to CATEGORY-NAME and LABEL-STYLE.
    2375. 

  2375. This is an alist where each element is of the form
    2376. 

  2376. \\(CATEGORY-HANDLE CATEGORY-NAME LABEL-STYLE\\).  CATEGORY_HANDLE
    2377. 

  2377. could either be one of the internal handles (as seen above) or be
    2378. 

  2378. derived from the \"#+LABEL:<label-name>\" specification.  See
    2379. 

  2379. `org-export-e-odt-get-category-from-label'.  CATEGORY-NAME and
    2380. 

  2380. LABEL-STYLE are used for generating ODT labels.  See
    2381. 

  2381. `org-e-odt-label-styles'.")
    2382. 

  2382. 

  2383. (defvar org-export-e-odt-user-categories
    2384. 

  2384.   '("Illustration" "Table" "Text" "Drawing" "Equation" "Figure"))
    2385. 

  2385. 

  2386. (defvar org-export-e-odt-get-category-from-label nil
    2387. 

  2387.   "Should category of label be inferred from label itself.
    2388. 

  2388. When this option is non-nil, a label is parsed in to two
    2389. 

  2389. component parts delimited by a \":\" (colon) as shown here -
    2390. 

  2390. #+LABEL:[CATEGORY-HANDLE:]EXTRA.  The CATEGORY-HANDLE is mapped
    2391. 

  2391. to a CATEGORY-NAME and LABEL-STYLE using
    2392. 

  2392. `org-e-odt-category-map-alist'.  (If no such map is provided and
    2393. 

  2393. CATEGORY-NAME is set to CATEGORY-HANDLE and LABEL-STYLE is set to
    2394. 

  2394. \"category-and-value\").  If CATEGORY-NAME so obtained is listed
    2395. 

  2395. under `org-export-e-odt-user-categories' then the user specified
    2396. 

  2396. styles are used.  Otherwise styles as determined by the internal
    2397. 

  2397. CATEGORY-HANDLE is used.  See
    2398. 

  2398. `org-e-odt-get-label-category-and-style' for details.")
    2399. 

  2399. 

  2400. (defvar org-e-odt-manifest-file-entries nil)
    2401. 

  2401. (defvar hfy-user-sheet-assoc)		; bound during org-do-lparse
    2402. 

  2402. (defvar org-lparse-latex-fragment-fallback) ; set by org-do-lparse
    2403. 

  2403. 

  2404. 

  2405. ;;;; HTML Internal Variables
    2406. 

  2406. 

  2407. (defvar org-e-odt-option-alist
    2408. 

  2408.   '(
    2409. 

  2409.     ;; (:agenda-style nil nil org-agenda-export-html-style)
    2410. 

  2410.     ;; (:convert-org-links nil nil org-e-odt-link-org-files-as-html)
    2411. 

  2411.     ;; ;; FIXME Use (org-xml-encode-org-text-skip-links s) ??
    2412. 

  2412.     ;; ;; (:expand-quoted-html nil "@" org-e-odt-expand)
    2413. 

  2413.     ;; (:inline-images nil nil org-e-odt-inline-images)
    2414. 

  2414.     ;; ;; (:link-home nil nil org-e-odt-link-home) FIXME
    2415. 

  2415.     ;; ;; (:link-up nil nil org-e-odt-link-up) FIXME
    2416. 

  2416.     ;; (:style nil nil org-e-odt-style)
    2417. 

  2417.     ;; (:style-extra nil nil org-e-odt-style-extra)
    2418. 

  2418.     ;; (:style-include-default nil nil org-e-odt-style-include-default)
    2419. 

  2419.     ;; (:style-include-scripts nil nil org-e-odt-style-include-scripts)
    2420. 

  2420.     ;; ;; (:timestamp nil nil org-e-odt-with-timestamp)
    2421. 

  2421.     ;; (:html-extension nil nil org-e-odt-extension)
    2422. 

  2422.     ;; (:html-postamble nil nil org-e-odt-postamble)
    2423. 

  2423.     ;; (:html-preamble nil nil org-e-odt-preamble)
    2424. 

  2424.     ;; (:html-table-tag nil nil org-e-odt-table-tag)
    2425. 

  2425.     ;; (:xml-declaration nil nil org-e-odt-xml-declaration)
    2426. 

  2426.     (:LaTeX-fragments nil "LaTeX" org-export-with-LaTeX-fragments))
    2427. 

  2427.   "Alist between export properties and ways to set them.
    2428. 

  2428. 

  2429. The car of the alist is the property name, and the cdr is a list
    2430. 

  2430. like \(KEYWORD OPTION DEFAULT BEHAVIOUR\) where:
    2431. 

  2431. 

  2432. KEYWORD is a string representing a buffer keyword, or nil.
    2433. 

  2433. OPTION is a string that could be found in an #+OPTIONS: line.
    2434. 

  2434. DEFAULT is the default value for the property.
    2435. 

  2435. BEHAVIOUR determine how Org should handle multiple keywords for
    2436. 

  2436. the same property.  It is a symbol among:
    2437. 

  2437.   nil       Keep old value and discard the new one.
    2438. 

  2438.   t         Replace old value with the new one.
    2439. 

  2439.   `space'   Concatenate the values, separating them with a space.
    2440. 

  2440.   `newline' Concatenate the values, separating them with
    2441. 

  2441.             a newline.
    2442. 

  2442.   `split'   Split values at white spaces, and cons them to the
    2443. 

  2443.             previous list.
    2444. 

  2444. 

  2445. KEYWORD and OPTION have precedence over DEFAULT.
    2446. 

  2446. 

  2447. All these properties should be back-end agnostic.  For back-end
    2448. 

  2448. specific properties, define a similar variable named
    2449. 

  2449. `org-BACKEND-option-alist', replacing BACKEND with the name of
    2450. 

  2450. the appropriate back-end.  You can also redefine properties
    2451. 

  2451. there, as they have precedence over these.")
    2452. 

  2452. 

  2453. (defvar html-table-tag nil) ; dynamically scoped into this.
    2454. 

  2454. 

  2455. ;; FIXME: it already exists in org-e-odt.el
    2456. 

  2456. (defconst org-e-odt-cvt-link-fn
    2457. 

  2457.    nil
    2458. 

  2458.    "Function to convert link URLs to exportable URLs.
    2459. 

  2459. Takes two arguments, TYPE and PATH.
    2460. 

  2460. Returns exportable url as (TYPE PATH), or nil to signal that it
    2461. 

  2461. didn't handle this case.
    2462. 

  2462. Intended to be locally bound around a call to `org-export-as-html'." )
    2463. 

  2463. 

  2464. 

  2465. 
    2466. 

  2466. 

  2467. (defvar org-e-odt-format-table-no-css)
    2468. 

  2468. (defvar htmlize-buffer-places)  ; from htmlize.el
    2469. 

  2469. (defvar body-only) ; dynamically scoped into this.
    2470. 

  2470. 

  2471. (defvar org-e-odt-table-rowgrp-open)
    2472. 

  2472. (defvar org-e-odt-table-rownum)
    2473. 

  2473. (defvar org-e-odt-table-cur-rowgrp-is-hdr)
    2474. 

  2474. (defvar org-lparse-table-is-styled)
    2475. 

  2475. 

  2476. 
    2477. 

  2477. (defvar org-e-odt-headline-formatter
    2478. 

  2478.   (lambda (level snumber todo todo-type priority
    2479. 

  2479. 		 title tags target extra-targets extra-class)
    2480. 

  2480.     (concat snumber " " title)))
    2481. 

  2481. 

  2482. 

  2483. 
    2484. 

  2484. ;;; User Configuration Variables
    2485. 

  2485. 

  2486. (defgroup org-export-e-odt nil
    2487. 

  2487.   "Options for exporting Org mode files to HTML."
    2488. 

  2488.   :tag "Org Export HTML"
    2489. 

  2489.   :group 'org-export)
    2490. 

  2490. 

  2491. (defcustom org-e-odt-protect-char-alist
    2492. 

  2492.   '(("&" . "&amp;")
    2493. 

  2493.     ("<" . "&lt;")
    2494. 

  2494.     (">" . "&gt;"))
    2495. 

  2495.   "Alist of characters to be converted by `org-e-html-protect'."
    2496. 

  2496.   :group 'org-export-e-html
    2497. 

  2497.   :type '(repeat (cons (string :tag "Character")
    2498. 

  2498. 		       (string :tag "ODT equivalent"))))
    2499. 

  2499. (defcustom org-export-e-odt-schema-dir
    2500. 

  2500.   (let* ((schema-dir
    2501. 

  2501. 	  (catch 'schema-dir
    2502. 

  2502. 	    (message "Debug (org-e-odt): Searching for OpenDocument schema files...")
    2503. 

  2503. 	    (mapc
    2504. 

  2504. 	     (lambda (schema-dir)
    2505. 

  2505. 	       (when schema-dir
    2506. 

  2506. 		 (message "Debug (org-e-odt): Trying %s..." schema-dir)
    2507. 

  2507. 		 (when (and (file-readable-p
    2508. 

  2508. 			     (expand-file-name "od-manifest-schema-v1.2-cs01.rnc"
    2509. 

  2509. 					       schema-dir))
    2510. 

  2510. 			    (file-readable-p
    2511. 

  2511. 			     (expand-file-name "od-schema-v1.2-cs01.rnc"
    2512. 

  2512. 					       schema-dir))
    2513. 

  2513. 			    (file-readable-p
    2514. 

  2514. 			     (expand-file-name "schemas.xml" schema-dir)))
    2515. 

  2515. 		   (message "Debug (org-e-odt): Using schema files under %s"
    2516. 

  2516. 			    schema-dir)
    2517. 

  2517. 		   (throw 'schema-dir schema-dir))))
    2518. 

  2518. 	     org-e-odt-schema-dir-list)
    2519. 

  2519. 	    (message "Debug (org-e-odt): No OpenDocument schema files installed")
    2520. 

  2520. 	    nil)))
    2521. 

  2521.     schema-dir)
    2522. 

  2522.   "Directory that contains OpenDocument schema files.
    2523. 

  2523. 

  2524. This directory contains:
    2525. 

  2525. 1. rnc files for OpenDocument schema
    2526. 

  2526. 2. a \"schemas.xml\" file that specifies locating rules needed
    2527. 

  2527.    for auto validation of OpenDocument XML files.
    2528. 

  2528. 

  2529. Use the customize interface to set this variable.  This ensures
    2530. 

  2530. that `rng-schema-locating-files' is updated and auto-validation
    2531. 

  2531. of OpenDocument XML takes place based on the value
    2532. 

  2532. `rng-nxml-auto-validate-flag'.
    2533. 

  2533. 

  2534. The default value of this variable varies depending on the
    2535. 

  2535. version of org in use and is initialized from
    2536. 

  2536. `org-e-odt-schema-dir-list'.  The OASIS schema files are available
    2537. 

  2537. only in the org's private git repository.  It is *not* bundled
    2538. 

  2538. with GNU ELPA tar or standard Emacs distribution."
    2539. 

  2539.   :type '(choice
    2540. 

  2540. 	  (const :tag "Not set" nil)
    2541. 

  2541. 	  (directory :tag "Schema directory"))
    2542. 

  2542.   :group 'org-export-e-odt
    2543. 

  2543.   :version "24.1"
    2544. 

  2544.   :set
    2545. 

  2545.   (lambda (var value)
    2546. 

  2546.     "Set `org-export-e-odt-schema-dir'.
    2547. 

  2547. Also add it to `rng-schema-locating-files'."
    2548. 

  2548.     (let ((schema-dir value))
    2549. 

  2549.       (set var
    2550. 

  2550. 	   (if (and
    2551. 

  2551. 		(file-readable-p
    2552. 

  2552. 		 (expand-file-name "od-manifest-schema-v1.2-cs01.rnc" schema-dir))
    2553. 

  2553. 		(file-readable-p
    2554. 

  2554. 		 (expand-file-name "od-schema-v1.2-cs01.rnc" schema-dir))
    2555. 

  2555. 		(file-readable-p
    2556. 

  2556. 		 (expand-file-name "schemas.xml" schema-dir)))
    2557. 

  2557. 	       schema-dir
    2558. 

  2558. 	     (when value
    2559. 

  2559. 	       (message "Error (org-e-odt): %s has no OpenDocument schema files"
    2560. 

  2560. 			value))
    2561. 

  2561. 	     nil)))
    2562. 

  2562.     (when org-export-e-odt-schema-dir
    2563. 

  2563.       (eval-after-load 'rng-loc
    2564. 

  2564. 	'(add-to-list 'rng-schema-locating-files
    2565. 

  2565. 		      (expand-file-name "schemas.xml"
    2566. 

  2566. 					org-export-e-odt-schema-dir))))))
    2567. 

  2567. 

  2568. (defcustom org-export-e-odt-content-template-file nil
    2569. 

  2569.   "Template file for \"content.xml\".
    2570. 

  2570. The exporter embeds the exported content just before
    2571. 

  2571. \"</office:text>\" element.
    2572. 

  2572. 

  2573. If unspecified, the file named \"OrgOdtContentTemplate.xml\"
    2574. 

  2574. under `org-e-odt-styles-dir' is used."
    2575. 

  2575.   :type 'file
    2576. 

  2576.   :group 'org-export-e-odt
    2577. 

  2577.   :version "24.1")
    2578. 

  2578. 

  2579. (defcustom org-export-e-odt-styles-file nil
    2580. 

  2580.   "Default styles file for use with ODT export.
    2581. 

  2581. Valid values are one of:
    2582. 

  2582. 1. nil
    2583. 

  2583. 2. path to a styles.xml file
    2584. 

  2584. 3. path to a *.odt or a *.ott file
    2585. 

  2585. 4. list of the form (ODT-OR-OTT-FILE (FILE-MEMBER-1 FILE-MEMBER-2
    2586. 

  2586. ...))
    2587. 

  2587. 

  2588. In case of option 1, an in-built styles.xml is used. See
    2589. 

  2589. `org-e-odt-styles-dir' for more information.
    2590. 

  2590. 

  2591. In case of option 3, the specified file is unzipped and the
    2592. 

  2592. styles.xml embedded therein is used.
    2593. 

  2593. 

  2594. In case of option 4, the specified ODT-OR-OTT-FILE is unzipped
    2595. 

  2595. and FILE-MEMBER-1, FILE-MEMBER-2 etc are copied in to the
    2596. 

  2596. generated odt file.  Use relative path for specifying the
    2597. 

  2597. FILE-MEMBERS.  styles.xml must be specified as one of the
    2598. 

  2598. FILE-MEMBERS.
    2599. 

  2599. 

  2600. Use options 1, 2 or 3 only if styles.xml alone suffices for
    2601. 

  2601. achieving the desired formatting.  Use option 4, if the styles.xml
    2602. 

  2602. references additional files like header and footer images for
    2603. 

  2603. achieving the desired formatting.
    2604. 

  2604. 

  2605. Use \"#+ODT_STYLES_FILE: ...\" directive to set this variable on
    2606. 

  2606. a per-file basis.  For example,
    2607. 

  2607. 

  2608. #+ODT_STYLES_FILE: \"/path/to/styles.xml\" or
    2609. 

  2609. #+ODT_STYLES_FILE: (\"/path/to/file.ott\" (\"styles.xml\" \"image/hdr.png\"))."
    2610. 

  2610.   :group 'org-export-e-odt
    2611. 

  2611.   :version "24.1"
    2612. 

  2612.   :type
    2613. 

  2613.   '(choice
    2614. 

  2614.     (const :tag "Factory settings" nil)
    2615. 

  2615.     (file :must-match t :tag "styles.xml")
    2616. 

  2616.     (file :must-match t :tag "ODT or OTT file")
    2617. 

  2617.     (list :tag "ODT or OTT file + Members"
    2618. 

  2618. 	  (file :must-match t :tag "ODF Text or Text Template file")
    2619. 

  2619. 	  (cons :tag "Members"
    2620. 

  2620. 		(file :tag "	Member" "styles.xml")
    2621. 

  2621. 		(repeat (file :tag "Member"))))))
    2622. 

  2622. 

  2623. 

  2624. (defcustom org-export-e-odt-inline-image-extensions
    2625. 

  2625.   '("png" "jpeg" "jpg" "gif")
    2626. 

  2626.   "Extensions of image files that can be inlined into HTML."
    2627. 

  2627.   :type '(repeat (string :tag "Extension"))
    2628. 

  2628.   :group 'org-export-e-odt
    2629. 

  2629.   :version "24.1")
    2630. 

  2630. 

  2631. (defcustom org-export-e-odt-pixels-per-inch display-pixels-per-inch
    2632. 

  2632.   "Scaling factor for converting images pixels to inches.
    2633. 

  2633. Use this for sizing of embedded images.  See Info node `(org)
    2634. 

  2634. Images in ODT export' for more information."
    2635. 

  2635.   :type 'float
    2636. 

  2636.   :group 'org-export-e-odt
    2637. 

  2637.   :version "24.1")
    2638. 

  2638. 

  2639. (defcustom org-export-e-odt-create-custom-styles-for-srcblocks t
    2640. 

  2640.   "Whether custom styles for colorized source blocks be automatically created.
    2641. 

  2641. When this option is turned on, the exporter creates custom styles
    2642. 

  2642. for source blocks based on the advice of `htmlfontify'.  Creation
    2643. 

  2643. of custom styles happen as part of `org-e-odt-hfy-face-to-css'.
    2644. 

  2644. 

  2645. When this option is turned off exporter does not create such
    2646. 

  2646. styles.
    2647. 

  2647. 

  2648. Use the latter option if you do not want the custom styles to be
    2649. 

  2649. based on your current display settings.  It is necessary that the
    2650. 

  2650. styles.xml already contains needed styles for colorizing to work.
    2651. 

  2651. 

  2652. This variable is effective only if
    2653. 

  2653. `org-export-e-odt-fontify-srcblocks' is turned on."
    2654. 

  2654.   :group 'org-export-e-odt
    2655. 

  2655.   :version "24.1"
    2656. 

  2656.   :type 'boolean)
    2657. 

  2657. 

  2658. (defcustom org-export-e-odt-preferred-output-format nil
    2659. 

  2659.   "Automatically post-process to this format after exporting to \"odt\".
    2660. 

  2660. Interactive commands `org-export-as-e-odt' and
    2661. 

  2661. `org-export-as-e-odt-and-open' export first to \"odt\" format and
    2662. 

  2662. then use `org-export-e-odt-convert-process' to convert the
    2663. 

  2663. resulting document to this format.  During customization of this
    2664. 

  2664. variable, the list of valid values are populated based on
    2665. 

  2665. `org-export-e-odt-convert-capabilities'."
    2666. 

  2666.   :group 'org-export-e-odt
    2667. 

  2667.   :version "24.1"
    2668. 

  2668.   :type '(choice :convert-widget
    2669. 

  2669. 		 (lambda (w)
    2670. 

  2670. 		   (apply 'widget-convert (widget-type w)
    2671. 

  2671. 			  (eval (car (widget-get w :args)))))
    2672. 

  2672. 		 `((const :tag "None" nil)
    2673. 

  2673. 		   ,@(mapcar (lambda (c)
    2674. 

  2674. 			       `(const :tag ,c ,c))
    2675. 

  2675. 			     (org-lparse-reachable-formats "odt")))))
    2676. 

  2676. 

  2677. (defcustom org-export-e-odt-table-styles
    2678. 

  2678.   '(("OrgEquation" "OrgEquation"
    2679. 

  2679.      ((use-first-column-styles . t)
    2680. 

  2680.       (use-last-column-styles . t))))
    2681. 

  2681.   "Specify how Table Styles should be derived from a Table Template.
    2682. 

  2682. This is a list where each element is of the
    2683. 

  2683. form (TABLE-STYLE-NAME TABLE-TEMPLATE-NAME TABLE-CELL-OPTIONS).
    2684. 

  2684. 

  2685. TABLE-STYLE-NAME is the style associated with the table through
    2686. 

  2686. `org-e-odt-table-style'.
    2687. 

  2687. 

  2688. TABLE-TEMPLATE-NAME is a set of - upto 9 - automatic
    2689. 

  2689. TABLE-CELL-STYLE-NAMEs and PARAGRAPH-STYLE-NAMEs (as defined
    2690. 

  2690. below) that is included in
    2691. 

  2691. `org-export-e-odt-content-template-file'.
    2692. 

  2692. 

  2693. TABLE-CELL-STYLE-NAME := TABLE-TEMPLATE-NAME + TABLE-CELL-TYPE +
    2694. 

  2694.                          \"TableCell\"
    2695. 

  2695. PARAGRAPH-STYLE-NAME  := TABLE-TEMPLATE-NAME + TABLE-CELL-TYPE +
    2696. 

  2696.                          \"TableParagraph\"
    2697. 

  2697. TABLE-CELL-TYPE       := \"FirstRow\"   | \"LastColumn\" |
    2698. 

  2698.                          \"FirstRow\"   | \"LastRow\"    |
    2699. 

  2699.                          \"EvenRow\"    | \"OddRow\"     |
    2700. 

  2700.                          \"EvenColumn\" | \"OddColumn\"  | \"\"
    2701. 

  2701. where \"+\" above denotes string concatenation.
    2702. 

  2702. 

  2703. TABLE-CELL-OPTIONS is an alist where each element is of the
    2704. 

  2704. form (TABLE-CELL-STYLE-SELECTOR . ON-OR-OFF).
    2705. 

  2705. TABLE-CELL-STYLE-SELECTOR := `use-first-row-styles'       |
    2706. 

  2706.                              `use-last-row-styles'        |
    2707. 

  2707.                              `use-first-column-styles'    |
    2708. 

  2708.                              `use-last-column-styles'     |
    2709. 

  2709.                              `use-banding-rows-styles'    |
    2710. 

  2710.                              `use-banding-columns-styles' |
    2711. 

  2711.                              `use-first-row-styles'
    2712. 

  2712. ON-OR-OFF                 := `t' | `nil'
    2713. 

  2713. 

  2714. For example, with the following configuration
    2715. 

  2715. 

  2716. \(setq org-export-e-odt-table-styles
    2717. 

  2717.       '\(\(\"TableWithHeaderRowsAndColumns\" \"Custom\"
    2718. 

  2718.          \(\(use-first-row-styles . t\)
    2719. 

  2719.           \(use-first-column-styles . t\)\)\)
    2720. 

  2720.         \(\"TableWithHeaderColumns\" \"Custom\"
    2721. 

  2721.          \(\(use-first-column-styles . t\)\)\)\)\)
    2722. 

  2722. 

  2723. 1. A table associated with \"TableWithHeaderRowsAndColumns\"
    2724. 

  2724.    style will use the following table-cell styles -
    2725. 

  2725.    \"CustomFirstRowTableCell\", \"CustomFirstColumnTableCell\",
    2726. 

  2726.    \"CustomTableCell\" and the following paragraph styles
    2727. 

  2727.    \"CustomFirstRowTableParagraph\",
    2728. 

  2728.    \"CustomFirstColumnTableParagraph\", \"CustomTableParagraph\"
    2729. 

  2729.    as appropriate.
    2730. 

  2730. 

  2731. 2. A table associated with \"TableWithHeaderColumns\" style will
    2732. 

  2732.    use the following table-cell styles -
    2733. 

  2733.    \"CustomFirstColumnTableCell\", \"CustomTableCell\" and the
    2734. 

  2734.    following paragraph styles
    2735. 

  2735.    \"CustomFirstColumnTableParagraph\", \"CustomTableParagraph\"
    2736. 

  2736.    as appropriate..
    2737. 

  2737. 

  2738. Note that TABLE-TEMPLATE-NAME corresponds to the
    2739. 

  2739. \"<table:table-template>\" elements contained within
    2740. 

  2740. \"<office:styles>\".  The entries (TABLE-STYLE-NAME
    2741. 

  2741. TABLE-TEMPLATE-NAME TABLE-CELL-OPTIONS) correspond to
    2742. 

  2742. \"table:template-name\" and \"table:use-first-row-styles\" etc
    2743. 

  2743. attributes of \"<table:table>\" element.  Refer ODF-1.2
    2744. 

  2744. specification for more information.  Also consult the
    2745. 

  2745. implementation filed under `org-e-odt-get-table-cell-styles'.
    2746. 

  2746. 

  2747. The TABLE-STYLE-NAME \"OrgEquation\" is used internally for
    2748. 

  2748. formatting of numbered display equations.  Do not delete this
    2749. 

  2749. style from the list."
    2750. 

  2750.   :group 'org-export-e-odt
    2751. 

  2751.   :version "24.1"
    2752. 

  2752.   :type '(choice
    2753. 

  2753.           (const :tag "None" nil)
    2754. 

  2754.           (repeat :tag "Table Styles"
    2755. 

  2755.                   (list :tag "Table Style Specification"
    2756. 

  2756. 			(string :tag "Table Style Name")
    2757. 

  2757. 			(string  :tag "Table Template Name")
    2758. 

  2758. 			(alist :options (use-first-row-styles
    2759. 

  2759. 					 use-last-row-styles
    2760. 

  2760. 					 use-first-column-styles
    2761. 

  2761. 					 use-last-column-styles
    2762. 

  2762. 					 use-banding-rows-styles
    2763. 

  2763. 					 use-banding-columns-styles)
    2764. 

  2764. 			       :key-type symbol
    2765. 

  2765. 			       :value-type (const :tag "True" t))))))
    2766. 

  2766. (defcustom org-export-e-odt-fontify-srcblocks t
    2767. 

  2767.   "Specify whether or not source blocks need to be fontified.
    2768. 

  2768. Turn this option on if you want to colorize the source code
    2769. 

  2769. blocks in the exported file.  For colorization to work, you need
    2770. 

  2770. to make available an enhanced version of `htmlfontify' library."
    2771. 

  2771.   :type 'boolean
    2772. 

  2772.   :group 'org-export-e-odt
    2773. 

  2773.   :version "24.1")
    2774. 

  2774. 

  2775. (defcustom org-export-e-odt-prettify-xml t ; FIXME
    2776. 

  2776.   "Specify whether or not the xml output should be prettified.
    2777. 

  2777. When this option is turned on, `indent-region' is run on all
    2778. 

  2778. component xml buffers before they are saved.  Turn this off for
    2779. 

  2779. regular use.  Turn this on if you need to examine the xml
    2780. 

  2780. visually."
    2781. 

  2781.   :group 'org-export-e-odt
    2782. 

  2782.   :version "24.1"
    2783. 

  2783.   :type 'boolean)
    2784. 

  2784. 

  2785. (defcustom org-export-e-odt-convert-processes
    2786. 

  2786.   '(("LibreOffice"
    2787. 

  2787.      "soffice --headless --convert-to %f%x --outdir %d %i")
    2788. 

  2788.     ("unoconv"
    2789. 

  2789.      "unoconv -f %f -o %d %i"))
    2790. 

  2790.   "Specify a list of document converters and their usage.
    2791. 

  2791. The converters in this list are offered as choices while
    2792. 

  2792. customizing `org-export-e-odt-convert-process'.
    2793. 

  2793. 

  2794. This variable is a list where each element is of the
    2795. 

  2795. form (CONVERTER-NAME CONVERTER-CMD).  CONVERTER-NAME is the name
    2796. 

  2796. of the converter.  CONVERTER-CMD is the shell command for the
    2797. 

  2797. converter and can contain format specifiers.  These format
    2798. 

  2798. specifiers are interpreted as below:
    2799. 

  2799. 

  2800. %i input file name in full
    2801. 

  2801. %I input file name as a URL
    2802. 

  2802. %f format of the output file
    2803. 

  2803. %o output file name in full
    2804. 

  2804. %O output file name as a URL
    2805. 

  2805. %d output dir in full
    2806. 

  2806. %D output dir as a URL.
    2807. 

  2807. %x extra options as set in `org-export-e-odt-convert-capabilities'."
    2808. 

  2808.   :group 'org-export-e-odt
    2809. 

  2809.   :version "24.1"
    2810. 

  2810.   :type
    2811. 

  2811.   '(choice
    2812. 

  2812.     (const :tag "None" nil)
    2813. 

  2813.     (alist :tag "Converters"
    2814. 

  2814. 	   :key-type (string :tag "Converter Name")
    2815. 

  2815. 	   :value-type (group (string :tag "Command line")))))
    2816. 

  2816. 

  2817. (defcustom org-export-e-odt-convert-process "LibreOffice"
    2818. 

  2818.   "Use this converter to convert from \"odt\" format to other formats.
    2819. 

  2819. During customization, the list of converter names are populated
    2820. 

  2820. from `org-export-e-odt-convert-processes'."
    2821. 

  2821.   :group 'org-export-e-odt
    2822. 

  2822.   :version "24.1"
    2823. 

  2823.   :type '(choice :convert-widget
    2824. 

  2824. 		 (lambda (w)
    2825. 

  2825. 		   (apply 'widget-convert (widget-type w)
    2826. 

  2826. 			  (eval (car (widget-get w :args)))))
    2827. 

  2827. 		 `((const :tag "None" nil)
    2828. 

  2828. 		   ,@(mapcar (lambda (c)
    2829. 

  2829. 			       `(const :tag ,(car c) ,(car c)))
    2830. 

  2830. 			     org-export-e-odt-convert-processes))))
    2831. 

  2831. 

  2832. (defcustom org-export-e-odt-convert-capabilities
    2833. 

  2833.   '(("Text"
    2834. 

  2834.      ("odt" "ott" "doc" "rtf" "docx")
    2835. 

  2835.      (("pdf" "pdf") ("odt" "odt") ("rtf" "rtf") ("ott" "ott")
    2836. 

  2836.       ("doc" "doc" ":\"MS Word 97\"") ("docx" "docx") ("html" "html")))
    2837. 

  2837.     ("Web"
    2838. 

  2838.      ("html")
    2839. 

  2839.      (("pdf" "pdf") ("odt" "odt") ("html" "html")))
    2840. 

  2840.     ("Spreadsheet"
    2841. 

  2841.      ("ods" "ots" "xls" "csv" "xlsx")
    2842. 

  2842.      (("pdf" "pdf") ("ots" "ots") ("html" "html") ("csv" "csv") ("ods" "ods")
    2843. 

  2843.       ("xls" "xls") ("xlsx" "xlsx")))
    2844. 

  2844.     ("Presentation"
    2845. 

  2845.      ("odp" "otp" "ppt" "pptx")
    2846. 

  2846.      (("pdf" "pdf") ("swf" "swf") ("odp" "odp") ("otp" "otp") ("ppt" "ppt")
    2847. 

  2847.       ("pptx" "pptx") ("odg" "odg"))))
    2848. 

  2848.   "Specify input and output formats of `org-export-e-odt-convert-process'.
    2849. 

  2849. More correctly, specify the set of input and output formats that
    2850. 

  2850. the user is actually interested in.
    2851. 

  2851. 

  2852. This variable is an alist where each element is of the
    2853. 

  2853. form (DOCUMENT-CLASS INPUT-FMT-LIST OUTPUT-FMT-ALIST).
    2854. 

  2854. INPUT-FMT-LIST is a list of INPUT-FMTs.  OUTPUT-FMT-ALIST is an
    2855. 

  2855. alist where each element is of the form (OUTPUT-FMT
    2856. 

  2856. OUTPUT-FILE-EXTENSION EXTRA-OPTIONS).
    2857. 

  2857. 

  2858. The variable is interpreted as follows:
    2859. 

  2859. `org-export-e-odt-convert-process' can take any document that is in
    2860. 

  2860. INPUT-FMT-LIST and produce any document that is in the
    2861. 

  2861. OUTPUT-FMT-LIST.  A document converted to OUTPUT-FMT will have
    2862. 

  2862. OUTPUT-FILE-EXTENSION as the file name extension.  OUTPUT-FMT
    2863. 

  2863. serves dual purposes:
    2864. 

  2864. - It is used for populating completion candidates during
    2865. 

  2865.   `org-export-e-odt-convert' commands.
    2866. 

  2866. - It is used as the value of \"%f\" specifier in
    2867. 

  2867.   `org-export-e-odt-convert-process'.
    2868. 

  2868. 

  2869. EXTRA-OPTIONS is used as the value of \"%x\" specifier in
    2870. 

  2870. `org-export-e-odt-convert-process'.
    2871. 

  2871. 

  2872. DOCUMENT-CLASS is used to group a set of file formats in
    2873. 

  2873. INPUT-FMT-LIST in to a single class.
    2874. 

  2874. 

  2875. Note that this variable inherently captures how LibreOffice based
    2876. 

  2876. converters work.  LibreOffice maps documents of various formats
    2877. 

  2877. to classes like Text, Web, Spreadsheet, Presentation etc and
    2878. 

  2878. allow document of a given class (irrespective of it's source
    2879. 

  2879. format) to be converted to any of the export formats associated
    2880. 

  2880. with that class.
    2881. 

  2881. 

  2882. See default setting of this variable for an typical
    2883. 

  2883. configuration."
    2884. 

  2884.   :group 'org-export-e-odt
    2885. 

  2885.   :version "24.1"
    2886. 

  2886.   :type
    2887. 

  2887.   '(choice
    2888. 

  2888.     (const :tag "None" nil)
    2889. 

  2889.     (alist :tag "Capabilities"
    2890. 

  2890. 	   :key-type (string :tag "Document Class")
    2891. 

  2891. 	   :value-type
    2892. 

  2892. 	   (group (repeat :tag "Input formats" (string :tag "Input format"))
    2893. 

  2893. 		  (alist :tag "Output formats"
    2894. 

  2894. 			 :key-type (string :tag "Output format")
    2895. 

  2895. 			 :value-type
    2896. 

  2896. 			 (group (string :tag "Output file extension")
    2897. 

  2897. 				(choice
    2898. 

  2898. 				 (const :tag "None" nil)
    2899. 

  2899. 				 (string :tag "Extra options"))))))))
    2900. 

  2900. 

  2901. ;;;; Debugging
    2902. 

  2902. 

  2903. 

  2904. ;;;; Document
    2905. 

  2905. 

  2906. ;;;; Document Header (Styles)
    2907. 

  2907. 

  2908. ;;;; Document Header (Scripts)
    2909. 

  2909. 

  2910. ;;;; Document Header (Mathjax)
    2911. 

  2911. 

  2912. ;;;; Preamble
    2913. 

  2913. 

  2914. ;;;; Postamble
    2915. 

  2915. 

  2916. ;;;; Emphasis
    2917. 

  2917. 

  2918. ;;;; Todos
    2919. 

  2919. 

  2920. ;;;; Tags
    2921. 

  2921. 

  2922. ;;;; Time-stamps
    2923. 

  2923. ;;;; Statistics Cookie
    2924. 

  2924. ;;;; Subscript
    2925. 

  2925. ;;;; Superscript
    2926. 

  2926. 

  2927. ;;;; Inline images
    2928. 

  2928. 

  2929. ;;;; Block
    2930. 

  2930. ;;;; Comment
    2931. 

  2931. ;;;; Comment Block
    2932. 

  2932. ;;;; Drawer
    2933. 

  2933. ;;;; Dynamic Block
    2934. 

  2934. ;;;; Emphasis
    2935. 

  2935. ;;;; Entity
    2936. 

  2936. ;;;; Example Block
    2937. 

  2937. ;;;; Export Snippet
    2938. 

  2938. ;;;; Export Block
    2939. 

  2939. ;;;; Fixed Width
    2940. 

  2940. ;;;; Footnotes
    2941. 

  2941. 

  2942. ;;;; Headline
    2943. 

  2943. ;;;; Horizontal Rule
    2944. 

  2944. ;;;; Inline Babel Call
    2945. 

  2945. ;;;; Inline Src Block
    2946. 

  2946. ;;;; Inlinetask
    2947. 

  2947. ;;;; Item
    2948. 

  2948. ;;;; Keyword
    2949. 

  2949. ;;;; Latex Environment
    2950. 

  2950. ;;;; Latex Fragment
    2951. 

  2951. ;;;; Line Break
    2952. 

  2952. ;;;; Link
    2953. 

  2953. ;;;; Babel Call
    2954. 

  2954. ;;;; Macro
    2955. 

  2955. ;;;; Paragraph
    2956. 

  2956. ;;;; Plain List
    2957. 

  2957. ;;;; Plain Text
    2958. 

  2958. ;;;; Property Drawer
    2959. 

  2959. ;;;; Quote Block
    2960. 

  2960. ;;;; Quote Section
    2961. 

  2961. ;;;; Section
    2962. 

  2962. ;;;; Radio Target
    2963. 

  2963. ;;;; Special Block
    2964. 

  2964. ;;;; Src Block
    2965. 

  2965. 

  2966. ;;;; Table
    2967. 

  2967. 

  2968. ;;;; Target
    2969. 

  2969. ;;;; Time-stamp
    2970. 

  2970. 

  2971. ;;;; Verbatim
    2972. 

  2972. ;;;; Verse Block
    2973. 

  2973. ;;;; Headline
    2974. 

  2974. 

  2975. ;;;; Links
    2976. 

  2976. ;;;; Drawers
    2977. 

  2977. ;;;; Inlinetasks
    2978. 

  2978. ;;;; Publishing
    2979. 

  2979. 

  2980. ;;;; Compilation
    2981. 

  2981. 

  2982. 

  2983. 
    2984. 

  2984. ;;; User Configurable Variables (MAYBE)
    2985. 

  2985. 

  2986. ;;;; Preamble
    2987. 

  2987. 

  2988. ;;;; Headline
    2989. 

  2989. 

  2990. ;;;; Emphasis
    2991. 

  2991. 

  2992. (defcustom org-e-odt-format-headline-function nil
    2993. 

  2993.   "Function to format headline text.
    2994. 

  2994. 

  2995. This function will be called with 5 arguments:
    2996. 

  2996. TODO      the todo keyword \(string or nil\).
    2997. 

  2997. TODO-TYPE the type of todo \(symbol: `todo', `done', nil\)
    2998. 

  2998. PRIORITY  the priority of the headline \(integer or nil\)
    2999. 

  2999. TEXT      the main headline text \(string\).
    3000. 

  3000. TAGS      the tags string, separated with colons \(string or nil\).
    3001. 

  3001. 

  3002. The function result will be used in the section format string.
    3003. 

  3003. 

  3004. As an example, one could set the variable to the following, in
    3005. 

  3005. order to reproduce the default set-up:
    3006. 

  3006. 

  3007. \(defun org-e-odt-format-headline \(todo todo-type priority text tags\)
    3008. 

  3008.   \"Default format function for an headline.\"
    3009. 

  3009.   \(concat \(when todo
    3010. 

  3010.             \(format \"\\\\textbf{\\\\textsc{\\\\textsf{%s}}} \" todo\)\)
    3011. 

  3011. 	  \(when priority
    3012. 

  3012.             \(format \"\\\\framebox{\\\\#%c} \" priority\)\)
    3013. 

  3013. 	  text
    3014. 

  3014. 	  \(when tags \(format \"\\\\hfill{}\\\\textsc{%s}\" tags\)\)\)\)"
    3015. 

  3015.   :group 'org-export-e-odt
    3016. 

  3016.   :type 'function)
    3017. 

  3017. 

  3018. ;;;; Footnotes
    3019. 

  3019. 

  3020. ;;;; Time-stamps
    3021. 

  3021. 

  3022. (defcustom org-e-odt-active-timestamp-format "\\textit{%s}"
    3023. 

  3023.   "A printf format string to be applied to active time-stamps."
    3024. 

  3024.   :group 'org-export-e-odt
    3025. 

  3025.   :type 'string)
    3026. 

  3026. 

  3027. (defcustom org-e-odt-inactive-timestamp-format "\\textit{%s}"
    3028. 

  3028.   "A printf format string to be applied to inactive time-stamps."
    3029. 

  3029.   :group 'org-export-e-odt
    3030. 

  3030.   :type 'string)
    3031. 

  3031. 

  3032. (defcustom org-e-odt-diary-timestamp-format "\\textit{%s}"
    3033. 

  3033.   "A printf format string to be applied to diary time-stamps."
    3034. 

  3034.   :group 'org-export-e-odt
    3035. 

  3035.   :type 'string)
    3036. 

  3036. 

  3037. 

  3038. ;;;; Links
    3039. 

  3039. 

  3040. (defcustom org-e-odt-image-default-option "width=.9\\linewidth"
    3041. 

  3041.   "Default option for images."
    3042. 

  3042.   :group 'org-export-e-odt
    3043. 

  3043.   :type 'string)
    3044. 

  3044. 

  3045. (defcustom org-e-odt-default-figure-position "htb"
    3046. 

  3046.   "Default position for latex figures."
    3047. 

  3047.   :group 'org-export-e-odt
    3048. 

  3048.   :type 'string)
    3049. 

  3049. 

  3050. (defcustom org-e-odt-inline-image-rules
    3051. 

  3051.   '(("file" . "\\.\\(pdf\\|jpeg\\|jpg\\|png\\|ps\\|eps\\)\\'"))
    3052. 

  3052.   "Rules characterizing image files that can be inlined into HTML.
    3053. 

  3053. 

  3054. A rule consists in an association whose key is the type of link
    3055. 

  3055. to consider, and value is a regexp that will be matched against
    3056. 

  3056. link's path.
    3057. 

  3057. 

  3058. Note that, by default, the image extension *actually* allowed
    3059. 

  3059. depend on the way the HTML file is processed.  When used with
    3060. 

  3060. pdflatex, pdf, jpg and png images are OK.  When processing
    3061. 

  3061. through dvi to Postscript, only ps and eps are allowed.  The
    3062. 

  3062. default we use here encompasses both."
    3063. 

  3063.   :group 'org-export-e-odt
    3064. 

  3064.   :type '(alist :key-type (string :tag "Type")
    3065. 

  3065. 		:value-type (regexp :tag "Path")))
    3066. 

  3066. 

  3067. ;;;; Tables
    3068. 

  3068. 

  3069. (defcustom org-e-odt-table-caption-above t
    3070. 

  3070.   "When non-nil, place caption string at the beginning of the table.
    3071. 

  3071. Otherwise, place it near the end."
    3072. 

  3072.   :group 'org-export-e-odt
    3073. 

  3073.   :type 'boolean)
    3074. 

  3074. 

  3075. ;;;; Drawers
    3076. 

  3076. 

  3077. (defcustom org-e-odt-format-drawer-function nil
    3078. 

  3078.   "Function called to format a drawer in HTML code.
    3079. 

  3079. 

  3080. The function must accept two parameters:
    3081. 

  3081.   NAME      the drawer name, like \"LOGBOOK\"
    3082. 

  3082.   CONTENTS  the contents of the drawer.
    3083. 

  3083. 

  3084. The function should return the string to be exported.
    3085. 

  3085. 

  3086. For example, the variable could be set to the following function
    3087. 

  3087. in order to mimic default behaviour:
    3088. 

  3088. 

  3089. \(defun org-e-odt-format-drawer-default \(name contents\)
    3090. 

  3090.   \"Format a drawer element for HTML export.\"
    3091. 

  3091.   contents\)"
    3092. 

  3092.   :group 'org-export-e-odt
    3093. 

  3093.   :type 'function)
    3094. 

  3094. 

  3095. 

  3096. ;;;; Inlinetasks
    3097. 

  3097. 

  3098. (defcustom org-e-odt-format-inlinetask-function nil
    3099. 

  3099.   "Function called to format an inlinetask in HTML code.
    3100. 

  3100. 

  3101. The function must accept six parameters:
    3102. 

  3102.   TODO      the todo keyword, as a string
    3103. 

  3103.   TODO-TYPE the todo type, a symbol among `todo', `done' and nil.
    3104. 

  3104.   PRIORITY  the inlinetask priority, as a string
    3105. 

  3105.   NAME      the inlinetask name, as a string.
    3106. 

  3106.   TAGS      the inlinetask tags, as a string.
    3107. 

  3107.   CONTENTS  the contents of the inlinetask, as a string.
    3108. 

  3108. 

  3109. The function should return the string to be exported.
    3110. 

  3110. 

  3111. For example, the variable could be set to the following function
    3112. 

  3112. in order to mimic default behaviour:
    3113. 

  3113. 

  3114. \(defun org-e-odt-format-inlinetask \(todo type priority name tags contents\)
    3115. 

  3115. \"Format an inline task element for HTML export.\"
    3116. 

  3116.   \(let \(\(full-title
    3117. 

  3117. 	 \(concat
    3118. 

  3118. 	  \(when todo
    3119. 

  3119.             \(format \"\\\\textbf{\\\\textsf{\\\\textsc{%s}}} \" todo\)\)
    3120. 

  3120. 	  \(when priority \(format \"\\\\framebox{\\\\#%c} \" priority\)\)
    3121. 

  3121. 	  title
    3122. 

  3122. 	  \(when tags \(format \"\\\\hfill{}\\\\textsc{%s}\" tags\)\)\)\)\)
    3123. 

  3123.     \(format \(concat \"\\\\begin{center}\\n\"
    3124. 

  3124. 		    \"\\\\fbox{\\n\"
    3125. 

  3125. 		    \"\\\\begin{minipage}[c]{.6\\\\textwidth}\\n\"
    3126. 

  3126. 		    \"%s\\n\\n\"
    3127. 

  3127. 		    \"\\\\rule[.8em]{\\\\textwidth}{2pt}\\n\\n\"
    3128. 

  3128. 		    \"%s\"
    3129. 

  3129. 		    \"\\\\end{minipage}}\"
    3130. 

  3130. 		    \"\\\\end{center}\"\)
    3131. 

  3131. 	    full-title contents\)\)"
    3132. 

  3132.   :group 'org-export-e-odt
    3133. 

  3133.   :type 'function)
    3134. 

  3134. 

  3135. 

  3136. ;; Src blocks
    3137. 

  3137. 

  3138. ;;;; Plain text
    3139. 

  3139. 

  3140. (defcustom org-e-odt-quotes
    3141. 

  3141.   '(("fr" ("\\(\\s-\\|[[(]\\)\"" . "«~") ("\\(\\S-\\)\"" . "~»") ("\\(\\s-\\|(\\)'" . "'"))
    3142. 

  3142.     ("en" ("\\(\\s-\\|[[(]\\)\"" . "``") ("\\(\\S-\\)\"" . "''") ("\\(\\s-\\|(\\)'" . "`")))
    3143. 

  3143.   "Alist for quotes to use when converting english double-quotes.
    3144. 

  3144. 

  3145. The CAR of each item in this alist is the language code.
    3146. 

  3146. The CDR of each item in this alist is a list of three CONS:
    3147. 

  3147. - the first CONS defines the opening quote;
    3148. 

  3148. - the second CONS defines the closing quote;
    3149. 

  3149. - the last CONS defines single quotes.
    3150. 

  3150. 

  3151. For each item in a CONS, the first string is a regexp
    3152. 

  3152. for allowed characters before/after the quote, the second
    3153. 

  3153. string defines the replacement string for this quote."
    3154. 

  3154.   :group 'org-export-e-odt
    3155. 

  3155.   :type '(list
    3156. 

  3156. 	  (cons :tag "Opening quote"
    3157. 

  3157. 		(string :tag "Regexp for char before")
    3158. 

  3158. 		(string :tag "Replacement quote     "))
    3159. 

  3159. 	  (cons :tag "Closing quote"
    3160. 

  3160. 		(string :tag "Regexp for char after ")
    3161. 

  3161. 		(string :tag "Replacement quote     "))
    3162. 

  3162. 	  (cons :tag "Single quote"
    3163. 

  3163. 		(string :tag "Regexp for char before")
    3164. 

  3164. 		(string :tag "Replacement quote     "))))
    3165. 

  3165. 

  3166. 

  3167. ;;;; Compilation
    3168. 

  3168. 

  3169. 

  3170. 
    3171. 

  3171. ;;; Internal Functions (HTML)
    3172. 

  3172. 

  3173. ;; (defun org-e-odt-format-inline-image (path &optional caption label attr)
    3174. 

  3174. ;;   ;; FIXME: alt text missing here?
    3175. 

  3175. ;;   (let ((inline-image (format "<img src=\"%s\" alt=\"%s\"/>"
    3176. 

  3176. ;; 			      path (file-name-nondirectory path))))
    3177. 

  3177. ;;     (if (not label) inline-image
    3178. 

  3178. ;;       (org-e-odt-format-section inline-image "figure" label))))
    3179. 

  3179. 

  3180. (defun org-e-odt-format-image (src)
    3181. 

  3181.   "Create image tag with source and attributes."
    3182. 

  3182.   (save-match-data
    3183. 

  3183.     (let* ((caption (org-find-text-property-in-string 'org-caption src))
    3184. 

  3184. 	   (attr (org-find-text-property-in-string 'org-attributes src))
    3185. 

  3185. 	   (label (org-find-text-property-in-string 'org-label src))
    3186. 

  3186. 	   (caption (and caption (org-xml-encode-org-text caption)))
    3187. 

  3187. 	   (img-extras (if (string-match "^ltxpng/" src)
    3188. 

  3188. 			   (format " alt=\"%s\""
    3189. 

  3189. 				   (org-find-text-property-in-string
    3190. 

  3190. 				    'org-latex-src src))
    3191. 

  3191. 			 (if (string-match "\\<alt=" (or attr ""))
    3192. 

  3192. 			     (concat " " attr )
    3193. 

  3193. 			   (concat " " attr " alt=\"" src "\""))))
    3194. 

  3194. 	   (img (format "<img src=\"%s\"%s />" src img-extras))
    3195. 

  3195. 	   (extra (concat
    3196. 

  3196. 		   (and label
    3197. 

  3197. 			(format "id=\"%s\" " (org-solidify-link-text label)))
    3198. 

  3198. 		   "class=\"figure\"")))
    3199. 

  3199.       (if caption
    3200. 

  3200. 	  (with-temp-buffer
    3201. 

  3201. 	    (with-org-lparse-preserve-paragraph-state
    3202. 

  3202. 	     (insert
    3203. 

  3203. 	      (org-lparse-format
    3204. 

  3204. 	       '("<div %s>" . "\n</div>")
    3205. 

  3205. 	       (concat
    3206. 

  3206. 		(org-lparse-format '("\n<p>" . "</p>") img)
    3207. 

  3207. 		(org-lparse-format '("\n<p>" . "</p>") caption))
    3208. 

  3208. 	       extra)))
    3209. 

  3209. 	    (buffer-string))
    3210. 

  3210. 	img))))
    3211. 

  3211. 

  3212. ;;;; Bibliography
    3213. 

  3213. 

  3214. (defun org-e-odt-bibliography ()
    3215. 

  3215.   "Find bibliography, cut it out and return it."
    3216. 

  3216.   (catch 'exit
    3217. 

  3217.     (let (beg end (cnt 1) bib)
    3218. 

  3218.       (save-excursion
    3219. 

  3219. 	(goto-char (point-min))
    3220. 

  3220. 	(when (re-search-forward
    3221. 

  3221. 	       "^[ \t]*<div \\(id\\|class\\)=\"bibliography\"" nil t)
    3222. 

  3222. 	  (setq beg (match-beginning 0))
    3223. 

  3223. 	  (while (re-search-forward "</?div\\>" nil t)
    3224. 

  3224. 	    (setq cnt (+ cnt (if (string= (match-string 0) "<div") +1 -1)))
    3225. 

  3225. 	    (when (= cnt 0)
    3226. 

  3226. 	      (and (looking-at ">") (forward-char 1))
    3227. 

  3227. 	      (setq bib (buffer-substring beg (point)))
    3228. 

  3228. 	      (delete-region beg (point))
    3229. 

  3229. 	    (throw 'exit bib))))
    3230. 

  3230. 	nil))))
    3231. 

  3231. 

  3232. ;;;; Table
    3233. 

  3233. 

  3234. (defun org-e-odt-format-table (lines olines)
    3235. 

  3235.   (let ((org-e-odt-format-table-no-css nil))
    3236. 

  3236.     (org-lparse-format-table lines olines)))
    3237. 

  3237. 

  3238. (defun org-e-odt-splice-attributes (tag attributes)
    3239. 

  3239.   "Read attributes in string ATTRIBUTES, add and replace in HTML tag TAG."
    3240. 

  3240.   (if (not attributes)
    3241. 

  3241.       tag
    3242. 

  3242.     (let (oldatt newatt)
    3243. 

  3243.       (setq oldatt (org-extract-attributes-from-string tag)
    3244. 

  3244. 	    tag (pop oldatt)
    3245. 

  3245. 	    newatt (cdr (org-extract-attributes-from-string attributes)))
    3246. 

  3246.       (while newatt
    3247. 

  3247. 	(setq oldatt (plist-put oldatt (pop newatt) (pop newatt))))
    3248. 

  3248.       (if (string-match ">" tag)
    3249. 

  3249. 	  (setq tag
    3250. 

  3250. 		(replace-match (concat (org-attributes-to-string oldatt) ">")
    3251. 

  3251. 			       t t tag)))
    3252. 

  3252.       tag)))
    3253. 

  3253. 

  3254. (defun org-export-splice-style (style extra)
    3255. 

  3255.   "Splice EXTRA into STYLE, just before \"</style>\"."
    3256. 

  3256.   (if (and (stringp extra)
    3257. 

  3257. 	   (string-match "\\S-" extra)
    3258. 

  3258. 	   (string-match "</style>" style))
    3259. 

  3259.       (concat (substring style 0 (match-beginning 0))
    3260. 

  3260. 	      "\n" extra "\n"
    3261. 

  3261. 	      (substring style (match-beginning 0)))
    3262. 

  3262.     style))
    3263. 

  3263. 

  3264. (defun org-export-e-odtize-region-for-paste (beg end)
    3265. 

  3265.   "Convert the region to HTML, using htmlize.el.
    3266. 

  3266. This is much like `htmlize-region-for-paste', only that it uses
    3267. 

  3267. the settings define in the org-... variables."
    3268. 

  3268.   (let* ((htmlize-output-type org-export-e-odtize-output-type)
    3269. 

  3269. 	 (htmlize-css-name-prefix org-export-e-odtize-css-font-prefix)
    3270. 

  3270. 	 (htmlbuf (htmlize-region beg end)))
    3271. 

  3271.     (unwind-protect
    3272. 

  3272. 	(with-current-buffer htmlbuf
    3273. 

  3273. 	  (buffer-substring (plist-get htmlize-buffer-places 'content-start)
    3274. 

  3274. 			    (plist-get htmlize-buffer-places 'content-end)))
    3275. 

  3275.       (kill-buffer htmlbuf))))
    3276. 

  3276. 

  3277. ;;;###autoload
    3278. 

  3278. (defun org-export-e-odtize-generate-css ()
    3279. 

  3279.   "Create the CSS for all font definitions in the current Emacs session.
    3280. 

  3280. Use this to create face definitions in your CSS style file that can then
    3281. 

  3281. be used by code snippets transformed by htmlize.
    3282. 

  3282. This command just produces a buffer that contains class definitions for all
    3283. 

  3283. faces used in the current Emacs session.  You can copy and paste the ones you
    3284. 

  3284. need into your CSS file.
    3285. 

  3285. 

  3286. If you then set `org-export-e-odtize-output-type' to `css', calls to
    3287. 

  3287. the function `org-export-e-odtize-region-for-paste' will produce code
    3288. 

  3288. that uses these same face definitions."
    3289. 

  3289.   (interactive)
    3290. 

  3290.   (require 'htmlize)
    3291. 

  3291.   (and (get-buffer "*html*") (kill-buffer "*html*"))
    3292. 

  3292.   (with-temp-buffer
    3293. 

  3293.     (let ((fl (face-list))
    3294. 

  3294. 	  (htmlize-css-name-prefix "org-")
    3295. 

  3295. 	  (htmlize-output-type 'css)
    3296. 

  3296. 	  f i)
    3297. 

  3297.       (while (setq f (pop fl)
    3298. 

  3298. 		   i (and f (face-attribute f :inherit)))
    3299. 

  3299. 	(when (and (symbolp f) (or (not i) (not (listp i))))
    3300. 

  3300. 	  (insert (org-add-props (copy-sequence "1") nil 'face f))))
    3301. 

  3301.       (htmlize-region (point-min) (point-max))))
    3302. 

  3302.   (org-pop-to-buffer-same-window "*html*")
    3303. 

  3303.   (goto-char (point-min))
    3304. 

  3304.   (if (re-search-forward "<style" nil t)
    3305. 

  3305.       (delete-region (point-min) (match-beginning 0)))
    3306. 

  3306.   (if (re-search-forward "</style>" nil t)
    3307. 

  3307.       (delete-region (1+ (match-end 0)) (point-max)))
    3308. 

  3308.   (beginning-of-line 1)
    3309. 

  3309.   (if (looking-at " +") (replace-match ""))
    3310. 

  3310.   (goto-char (point-min)))
    3311. 

  3311. 

  3312. ;; (defun org-e-odt-format-toc-entry (snumber todo headline tags href)
    3313. 

  3313. ;;   (setq headline (concat
    3314. 

  3314. ;; 		  ;; section number
    3315. 

  3315. ;; 		  (and org-export-with-section-numbers (concat snumber " "))
    3316. 

  3316. ;; 		  ;; headline
    3317. 

  3317. ;; 		  headline
    3318. 

  3318. ;; 		  ;; tags
    3319. 

  3319. ;; 		  (and tags (concat
    3320. 

  3320. ;; 			     (org-e-odt-format-spaces 3)
    3321. 

  3321. ;; 			     (org-e-odt-format-fontify tags "tag")))))
    3322. 

  3322. ;;   ;; fontify headline based on TODO keyword
    3323. 

  3323. ;;   (when todo (setq headline (org-e-odt-format-fontify headline "todo")))
    3324. 

  3324. ;;   (org-e-odt-format-link headline (concat  "#" href)))
    3325. 

  3325. 

  3326. (defun org-e-odt-toc-entry-formatter
    3327. 

  3327.   (level snumber todo todo-type priority
    3328. 

  3328. 	 headline tags target extra-targets extra-class)
    3329. 

  3329.   (org-e-odt-format-toc-entry snumber todo headline tags target))
    3330. 

  3330. 

  3331. (defun org-e-odt-make-string (n string)
    3332. 

  3332.   (let (out) (dotimes (i n out) (setq out (concat string out)))))
    3333. 

  3333. 

  3334. (defun org-e-odt-toc-text (toc-entries)
    3335. 

  3335.   (let* ((prev-level (1- (nth 1 (car toc-entries))))
    3336. 

  3336. 	 (start-level prev-level))
    3337. 

  3337.     (mapconcat
    3338. 

  3338.      (lambda (entry)
    3339. 

  3339.        (let ((headline (nth 0 entry))
    3340. 

  3340. 	     (level (nth 1 entry)))
    3341. 

  3341. 	 (prog1 (org-e-odt-format-toc-item headline level prev-level)
    3342. 

  3342. 	   (setq prev-level level))))
    3343. 

  3343.      toc-entries "")))
    3344. 

  3344. 

  3345. (defun org-e-odt-toc (depth info)
    3346. 

  3346.   (assert (wholenump depth))
    3347. 

  3347.   (let* ((headlines (org-export-collect-headlines info depth))
    3348. 

  3348. 	 (toc-entries
    3349. 

  3349. 	  (loop for headline in headlines collect
    3350. 

  3350. 		(list (org-e-odt-headline-text
    3351. 

  3351. 		       headline info 'org-e-odt-toc-entry-formatter)
    3352. 

  3352. 		      (org-export-get-relative-level headline info)))))
    3353. 

  3353.     (when toc-entries
    3354. 

  3354.       (let* ((lang-specific-heading "Table of Contents")) ; FIXME
    3355. 

  3355. 	(concat
    3356. 

  3356. 	 (org-e-odt-begin-toc  lang-specific-heading depth)
    3357. 

  3357. 	 (org-e-odt-toc-text toc-entries)
    3358. 

  3358. 	 (org-e-odt-end-toc))))))
    3359. 

  3359. 

  3360. (defun org-e-odt-begin-outline (level1 snumber title tags
    3361. 

  3361. 				      target extra-targets extra-class)
    3362. 

  3362.   (let* ((class (format "outline-%d" level1))
    3363. 

  3363. 	 (class (if extra-class (concat  class " " extra-class) class))
    3364. 

  3364. 	 (id (format "outline-container-%s"
    3365. 

  3365. 		     (org-lparse-suffix-from-snumber snumber)))
    3366. 

  3366. 	 (extra (concat (when id (format " id=\"%s\"" id))
    3367. 

  3367. 			(when class (format " class=\"%s\"" class)))))
    3368. 

  3368.     (org-lparse-insert-tag "<div%s>" extra)
    3369. 

  3369.     (insert
    3370. 

  3370.      (org-lparse-format 'HEADING
    3371. 

  3371. 		       (org-lparse-format
    3372. 

  3372. 			'HEADLINE title extra-targets tags snumber level1)
    3373. 

  3373. 		       level1 target))))
    3374. 

  3374. 

  3375. (defun org-e-odt-end-outline ()
    3376. 

  3376.   (org-lparse-insert-tag  "</div>"))
    3377. 

  3377. 

  3378. 

  3379. ;; (defun org-e-odt-format-heading (text level &optional id)
    3380. 

  3380. ;;   (let* ((extra (concat (when id (format " id=\"%s\"" id)))))
    3381. 

  3381. ;;     (concat (format "<h%d%s>" level extra) text (format "</h%d>" level))))
    3382. 

  3382. 

  3383. (defun org-e-odt-suffix-from-snumber (snumber)
    3384. 

  3384.   (let* ((snu (replace-regexp-in-string "\\." "-" snumber))
    3385. 

  3385. 	 (href (cdr (assoc (concat "sec-" snu)
    3386. 

  3386. 			   org-export-preferred-target-alist))))
    3387. 

  3387.     (org-solidify-link-text (or href snu))))
    3388. 

  3388. 

  3389. (defun org-e-odt-format-outline (contents level1 snumber title
    3390. 

  3390. 					  tags target extra-targets extra-class)
    3391. 

  3391.   (concat
    3392. 

  3392.    (org-e-odt-format-heading
    3393. 

  3393.    (org-e-odt-format-headline title extra-targets tags snumber level1)
    3394. 

  3394.    level1 target)
    3395. 

  3395.    contents))
    3396. 

  3396. 

  3397. ;; (defun org-e-odt-begin-outline-text (level1 snumber extra-class)
    3398. 

  3398. ;;   (let* ((class (format "outline-text-%d" level1))
    3399. 

  3399. ;; 	 (class (if extra-class (concat  class " " extra-class) class))
    3400. 

  3400. ;; 	 (id (format "text-%s" (org-lparse-suffix-from-snumber snumber)))
    3401. 

  3401. ;; 	 (extra (concat (when id (format " id=\"%s\"" id))
    3402. 

  3402. ;; 			(when class (format " class=\"%s\"" class)))))
    3403. 

  3403. ;;     (org-lparse-insert-tag "<div%s>" extra)))
    3404. 

  3404. 

  3405. ;; (defun org-e-odt-end-outline-text ()
    3406. 

  3406. ;;   (org-lparse-insert-tag "</div>"))
    3407. 

  3407. 

  3408. ;; (defun org-e-odt-format-spaces (n)
    3409. 

  3409. ;;   (let (out) (dotimes (i n out) (setq out (concat out "&nbsp;")))))
    3410. 

  3410. 

  3411. (defun org-e-odt-format-tabs (&optional n)
    3412. 

  3412.   (ignore))
    3413. 

  3413. 

  3414. ;; (defun org-e-odt-format-line (line)
    3415. 

  3415. ;;   (case org-lparse-dyn-current-environment
    3416. 

  3416. ;;     ((quote fixedwidth) (concat (org-e-odt-encode-plain-text line) "\n"))
    3417. 

  3417. ;;     (t (concat line "\n"))))
    3418. 

  3418. 

  3419. (defun org-e-odt-format-comment (fmt &rest args)
    3420. 

  3420.   (let ((comment (apply 'format fmt args)))
    3421. 

  3421.     (format "\n<!-- %s  -->\n" comment)))
    3422. 

  3422. 

  3423. (defun org-e-odt-fix-class-name (kwd) 	; audit callers of this function
    3424. 

  3424.   "Turn todo keyword into a valid class name.
    3425. 

  3425. Replaces invalid characters with \"_\"."
    3426. 

  3426.   (save-match-data
    3427. 

  3427.     (while (string-match "[^a-zA-Z0-9_]" kwd)
    3428. 

  3428.       (setq kwd (replace-match "_" t t kwd))))
    3429. 

  3429.   kwd)
    3430. 

  3430. 

  3431. ;; (defun org-e-odt-format-fontify (text style &optional id)
    3432. 

  3432. ;;   (let (class extra how)
    3433. 

  3433. ;;     (cond
    3434. 

  3434. ;;      ((eq style 'underline)
    3435. 

  3435. ;;       (setq extra " style=\"text-decoration:underline;\"" ))
    3436. 

  3436. ;;      ((setq how (cdr (assoc style
    3437. 

  3437. ;; 			    '((bold . ("<b>" . "</b>"))
    3438. 

  3438. ;; 			      (emphasis . ("<i>" . "</i>"))
    3439. 

  3439. ;; 			      (code . ("<code>" . "</code>"))
    3440. 

  3440. ;; 			      (verbatim . ("<code>" . "</code>"))
    3441. 

  3441. ;; 			      (strike . ("<del>" . "</del>"))
    3442. 

  3442. ;; 			      (subscript . ("<sub>" . "</sub>"))
    3443. 

  3443. ;; 			      (superscript . ("<sup>" . "</sup>")))))))
    3444. 

  3444. ;;      ((listp style)
    3445. 

  3445. ;;       (setq class (mapconcat 'identity style " ")))
    3446. 

  3446. ;;      ((stringp style)
    3447. 

  3447. ;;       (setq class style))
    3448. 

  3448. ;;      (t (error "Unknown style %S" style)))
    3449. 

  3449. 

  3450. ;;     (setq extra (concat (when class (format " class=\"%s\"" class))
    3451. 

  3451. ;; 			(when id (format " id=\"%s\""  id))
    3452. 

  3452. ;; 			extra))
    3453. 

  3453. 

  3454. ;;     (let ((tags (or how '("<span%s>" . "</span>"))))
    3455. 

  3455. ;;       (concat (format (car tags) extra) text  (cdr tags)))))
    3456. 

  3456. 

  3457. ;; (defun org-e-odt-format-link (text href &optional extra)
    3458. 

  3458. ;;   (let ((extra (concat (format " href=\"%s\"" href)
    3459. 

  3459. ;; 		       (and extra (concat  " " extra)))))
    3460. 

  3460. ;;     (format "<a%s>%s</a>" extra text)))
    3461. 

  3461. 

  3462. (defun org-e-odt-format-internal-link (text href &optional extra)
    3463. 

  3463.   (org-e-odt-format-link text (concat "#" href) extra))
    3464. 

  3464. 

  3465. ;; (defun org-e-odt-format-heading (text level &optional id)
    3466. 

  3466. ;;   (let* ((extra (concat (when id (format " id=\"%s\"" id)))))
    3467. 

  3467. ;;     (concat (format "<h%d%s>" level extra) text (format "</h%d>\n" level))))
    3468. 

  3468. 

  3469. ;; (defun org-e-odt-format-anchor (text name &optional class)
    3470. 

  3470. ;;   (let* ((id name)
    3471. 

  3471. ;; 	 (extra (concat
    3472. 

  3472. ;; 		 (when name (format " name=\"%s\""  name))
    3473. 

  3473. ;; 		 (when id (format " id=\"%s\""  id))
    3474. 

  3474. ;; 		 (when class (format " class=\"%s\""  class)))))
    3475. 

  3475. ;;     (format "<a%s>%s</a>" extra text)))
    3476. 

  3476. 

  3477. (defun org-e-odt-format-extra-targets (extra-targets)
    3478. 

  3478.   (if (not extra-targets) ""
    3479. 

  3479.     (mapconcat (lambda (x)
    3480. 

  3480. 		 (when x
    3481. 

  3481. 		   (setq x (org-solidify-link-text
    3482. 

  3482. 			    (if (org-uuidgen-p x) (concat "ID-" x) x)))
    3483. 

  3483. 		   (org-e-odt-format-anchor "" x))) extra-targets "")))
    3484. 

  3484. 

  3485. (defun org-e-odt-format-org-tags (tags)
    3486. 

  3486.   (if (not tags) ""
    3487. 

  3487.     (org-e-odt-format-fontify
    3488. 

  3488.      (mapconcat
    3489. 

  3489.       (lambda (x)
    3490. 

  3490. 	(org-e-odt-format-fontify
    3491. 

  3491. 	 x (concat "" ;; org-e-odt-tag-class-prefix
    3492. 

  3492. 		   (org-e-odt-fix-class-name x))))
    3493. 

  3493.       (org-split-string tags ":")
    3494. 

  3494.       (org-e-odt-format-spaces 1)) "tag")))
    3495. 

  3495. 

  3496. (defun org-e-odt-format-section-number (&optional snumber level)
    3497. 

  3497.   ;; FIXME
    3498. 

  3498.   (and nil org-export-with-section-numbers
    3499. 

  3499.        ;; (not org-lparse-body-only)
    3500. 

  3500.        snumber level
    3501. 

  3501.        (org-e-odt-format-fontify snumber (format "section-number-%d" level))))
    3502. 

  3502. 

  3503. ;; (defun org-e-odt-format-headline (title extra-targets tags
    3504. 

  3504. ;; 				       &optional snumber level)
    3505. 

  3505. ;;   (concat
    3506. 

  3506. ;;    (org-e-odt-format-extra-targets extra-targets)
    3507. 

  3507. ;;    (concat (org-e-odt-format-section-number snumber level) " ")
    3508. 

  3508. ;;    title
    3509. 

  3509. ;;    (and tags (concat (org-e-odt-format-spaces 3)
    3510. 

  3510. ;; 		     (org-e-odt-format-org-tags tags)))))
    3511. 

  3511. 

  3512. ;; (defun org-e-odt-format-footnote-reference (n def refcnt)
    3513. 

  3513. ;;   (let ((extra (if (= refcnt 1) "" (format ".%d"  refcnt))))
    3514. 

  3514. ;;     (format org-e-odt-footnote-format
    3515. 

  3515. ;; 	    (format
    3516. 

  3516. ;; 	     "<a class=\"footref\" name=\"fnr.%s%s\" href=\"#fn.%s\">%s</a>"
    3517. 

  3517. ;; 	     n extra n n))))
    3518. 

  3518. 

  3519. (defun org-e-odt-format-footnotes-section (section-name definitions)
    3520. 

  3520.   (if (not definitions) ""
    3521. 

  3521.     (format org-e-odt-footnotes-section section-name definitions)))
    3522. 

  3522. 

  3523. ;; (defun org-e-odt-format-footnote-definition (fn)
    3524. 

  3524. ;;   (let ((n (car fn)) (def (cdr fn)))
    3525. 

  3525. ;;     (format
    3526. 

  3526. ;;      "<tr>\n<td>%s</td>\n<td>%s</td>\n</tr>\n"
    3527. 

  3527. ;;      (format
    3528. 

  3528. ;;       (format org-e-odt-footnote-format
    3529. 

  3529. ;; 	      "<a class=\"footnum\" name=\"fn.%s\" href=\"#fnr.%s\">%s</a>")
    3530. 

  3530. ;;       n n n) def)))
    3531. 

  3531. 

  3532. (defun org-e-odt-get-coding-system-for-write ()
    3533. 

  3533.   (or org-e-odt-coding-system
    3534. 

  3534.       (and (boundp 'buffer-file-coding-system) buffer-file-coding-system)))
    3535. 

  3535. 

  3536. (defun org-e-odt-get-coding-system-for-save ()
    3537. 

  3537.   (or org-e-odt-coding-system
    3538. 

  3538.       (and (boundp 'buffer-file-coding-system) buffer-file-coding-system)))
    3539. 

  3539. 

  3540. ;; (defun org-e-odt-format-date (info)
    3541. 

  3541. ;;   (let ((date (plist-get info :date)))
    3542. 

  3542. ;;     (cond
    3543. 

  3543. ;;      ((and date (string-match "%" date))
    3544. 

  3544. ;;       (format-time-string date))
    3545. 

  3545. ;;      (date date)
    3546. 

  3546. ;;      (t (format-time-string "%Y-%m-%d %T %Z")))))
    3547. 

  3547. 

  3548. 

  3549. 
    3550. 

  3550. ;;; Internal Functions (Ngz)
    3551. 

  3551. 

  3552. (defun org-e-odt--caption/label-string (caption label info)
    3553. 

  3553.   "Return caption and label HTML string for floats.
    3554. 

  3554. 

  3555. CAPTION is a cons cell of secondary strings, the car being the
    3556. 

  3556. standard caption and the cdr its short form.  LABEL is a string
    3557. 

  3557. representing the label.  INFO is a plist holding contextual
    3558. 

  3558. information.
    3559. 

  3559. 

  3560. If there's no caption nor label, return the empty string.
    3561. 

  3561. 

  3562. For non-floats, see `org-e-odt--wrap-label'."
    3563. 

  3563.   (setq label nil) ;; FIXME
    3564. 

  3564. 

  3565.   (let ((label-str (if label (format "\\label{%s}" label) "")))
    3566. 

  3566.     (cond
    3567. 

  3567.      ((and (not caption) (not label)) "")
    3568. 

  3568.      ((not caption) (format "\\label{%s}\n" label))
    3569. 

  3569.      ;; Option caption format with short name.
    3570. 

  3570.      ((cdr caption)
    3571. 

  3571.       (format "\\caption[%s]{%s%s}\n"
    3572. 

  3572. 	      (org-export-secondary-string (cdr caption) 'e-odt info)
    3573. 

  3573. 	      label-str
    3574. 

  3574. 	      (org-export-secondary-string (car caption) 'e-odt info)))
    3575. 

  3575.      ;; Standard caption format.
    3576. 

  3576.      ;; (t (format "\\caption{%s%s}\n"
    3577. 

  3577.      ;; 		label-str
    3578. 

  3578.      ;; 		(org-export-secondary-string (car caption) 'e-odt info)))
    3579. 

  3579. 

  3580.      (t (org-export-secondary-string (car caption) 'e-odt info)))))
    3581. 

  3581. 

  3582. (defun org-e-odt--find-verb-separator (s)
    3583. 

  3583.   "Return a character not used in string S.
    3584. 

  3584. This is used to choose a separator for constructs like \\verb."
    3585. 

  3585.   (let ((ll "~,./?;':\"|!@#%^&-_=+abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ<>()[]{}"))
    3586. 

  3586.     (loop for c across ll
    3587. 

  3587. 	  when (not (string-match (regexp-quote (char-to-string c)) s))
    3588. 

  3588. 	  return (char-to-string c))))
    3589. 

  3589. 

  3590. (defun org-e-odt--make-option-string (options)
    3591. 

  3591.   "Return a comma separated string of keywords and values.
    3592. 

  3592. OPTIONS is an alist where the key is the options keyword as
    3593. 

  3593. a string, and the value a list containing the keyword value, or
    3594. 

  3594. nil."
    3595. 

  3595.   (mapconcat (lambda (pair)
    3596. 

  3596. 	       (concat (first pair)
    3597. 

  3597. 		       (when (> (length (second pair)) 0)
    3598. 

  3598. 			 (concat "=" (second pair)))))
    3599. 

  3599. 	     options
    3600. 

  3600. 	     ","))
    3601. 

  3601. 

  3602. (defun org-e-odt--quotation-marks (text info)
    3603. 

  3603.   "Export quotation marks depending on language conventions.
    3604. 

  3604. TEXT is a string containing quotation marks to be replaced.  INFO
    3605. 

  3605. is a plist used as a communication channel."
    3606. 

  3606.   (mapc (lambda(l)
    3607. 

  3607. 	  (let ((start 0))
    3608. 

  3608. 	    (while (setq start (string-match (car l) text start))
    3609. 

  3609. 	      (let ((new-quote (concat (match-string 1 text) (cdr l))))
    3610. 

  3610. 		(setq text (replace-match new-quote  t t text))))))
    3611. 

  3611. 	(cdr (or (assoc (plist-get info :language) org-e-odt-quotes)
    3612. 

  3612. 		 ;; Falls back on English.
    3613. 

  3613. 		 (assoc "en" org-e-odt-quotes))))
    3614. 

  3614.   text)
    3615. 

  3615. 

  3616. (defun org-e-odt--wrap-label (element output)
    3617. 

  3617.   "Wrap label associated to ELEMENT around OUTPUT, if appropriate.
    3618. 

  3618. This function shouldn't be used for floats.  See
    3619. 

  3619. `org-e-odt--caption/label-string'."
    3620. 

  3620.   ;; (let ((label (org-element-property :name element)))
    3621. 

  3621.   ;;   (if (or (not output) (not label) (string= output "") (string= label ""))
    3622. 

  3622.   ;; 	output
    3623. 

  3623.   ;;     (concat (format "\\label{%s}\n" label) output)))
    3624. 

  3624.   output)
    3625. 

  3625. 

  3626. 

  3627. 
    3628. 

  3628. ;;; Template
    3629. 

  3629. 

  3630. (defun org-e-odt-template (contents info)
    3631. 

  3631.   "Return complete document string after HTML conversion.
    3632. 

  3632. CONTENTS is the transcoded contents string.  RAW-DATA is the
    3633. 

  3633. original parsed data.  INFO is a plist holding export options."
    3634. 

  3634. 

  3635. 

  3636.   ;; write meta file
    3637. 

  3637.   (org-e-odt-update-meta-file info)
    3638. 

  3638. 

  3639. 

  3640.   (with-temp-buffer
    3641. 

  3641.     (insert-file-contents
    3642. 

  3642.      (or org-export-e-odt-content-template-file
    3643. 

  3643. 	 (expand-file-name "OrgOdtContentTemplate.xml"
    3644. 

  3644. 			   org-e-odt-styles-dir)))
    3645. 

  3645.     (goto-char (point-min))
    3646. 

  3646.     (re-search-forward "</office:text>" nil nil)
    3647. 

  3647.     (goto-char (match-beginning 0))
    3648. 

  3648. 

  3649.     ;; Title
    3650. 

  3650.     (insert (org-e-odt-format-preamble info))
    3651. 

  3651.     ;; Table of Contents
    3652. 

  3652.     (let ((depth (plist-get info :with-toc)))
    3653. 

  3653.       (when (wholenump depth) (org-e-odt-toc depth info)))
    3654. 

  3654. 

  3655.     ;; Contents
    3656. 

  3656.     (insert contents)
    3657. 

  3657.     (buffer-substring-no-properties (point-min) (point-max))))
    3658. 

  3658. 

  3659. 

  3660. 
    3661. 

  3661. ;;; Transcode Functions
    3662. 

  3662. 

  3663. ;;;; Block
    3664. 

  3664. 

  3665. (defun org-e-odt-center-block (center-block contents info)
    3666. 

  3666.   "Transcode a CENTER-BLOCK element from Org to HTML.
    3667. 

  3667. CONTENTS holds the contents of the block.  INFO is a plist
    3668. 

  3668. holding contextual information."
    3669. 

  3669.   (org-e-odt--wrap-label
    3670. 

  3670.    center-block
    3671. 

  3671.    (format "<div style=\"text-align: center\">\n%s</div>" contents)))
    3672. 

  3672. 

  3673. 

  3674. ;;;; Comment
    3675. 

  3675. 

  3676. ;; Comments are ignored.
    3677. 

  3677. 

  3678. 

  3679. ;;;; Comment Block
    3680. 

  3680. 

  3681. ;; Comment Blocks are ignored.
    3682. 

  3682. 

  3683. 

  3684. ;;;; Drawer
    3685. 

  3685. 

  3686. (defun org-e-odt-drawer (drawer contents info)
    3687. 

  3687.   "Transcode a DRAWER element from Org to HTML.
    3688. 

  3688. CONTENTS holds the contents of the block.  INFO is a plist
    3689. 

  3689. holding contextual information."
    3690. 

  3690.   (let* ((name (org-element-property :drawer-name drawer))
    3691. 

  3691. 	 (output (if (functionp org-e-odt-format-drawer-function)
    3692. 

  3692. 		     (funcall org-e-odt-format-drawer-function
    3693. 

  3693. 			      name contents)
    3694. 

  3694. 		   ;; If there's no user defined function: simply
    3695. 

  3695. 		   ;; display contents of the drawer.
    3696. 

  3696. 		   contents)))
    3697. 

  3697.     (org-e-odt--wrap-label drawer output)))
    3698. 

  3698. 

  3699. 

  3700. ;;;; Dynamic Block
    3701. 

  3701. 

  3702. (defun org-e-odt-dynamic-block (dynamic-block contents info)
    3703. 

  3703.   "Transcode a DYNAMIC-BLOCK element from Org to HTML.
    3704. 

  3704. CONTENTS holds the contents of the block.  INFO is a plist
    3705. 

  3705. holding contextual information.  See
    3706. 

  3706. `org-export-data'."
    3707. 

  3707.   (org-e-odt--wrap-label dynamic-block contents))
    3708. 

  3708. 

  3709. 

  3710. ;;;; Emphasis
    3711. 

  3711. 

  3712. (defun org-e-odt-emphasis (emphasis contents info)
    3713. 

  3713.   "Transcode EMPHASIS from Org to HTML.
    3714. 

  3714. CONTENTS is the contents of the emphasized text.  INFO is a plist
    3715. 

  3715. holding contextual information.."
    3716. 

  3716.   ;; (format (cdr (assoc (org-element-property :marker emphasis)
    3717. 

  3717.   ;; 		      org-e-odt-emphasis-alist))
    3718. 

  3718.   ;; 	  contents)
    3719. 

  3719.   (org-e-odt-format-fontify
    3720. 

  3720.    contents (cadr (assoc
    3721. 

  3721. 		   (org-element-property :marker emphasis)
    3722. 

  3722. 		   '(("*" bold)
    3723. 

  3723. 		     ("/" emphasis)
    3724. 

  3724. 		     ("_" underline)
    3725. 

  3725. 		     ("=" code)
    3726. 

  3726. 		     ("~" verbatim)
    3727. 

  3727. 		     ("+" strike))))))
    3728. 

  3728. 

  3729. 

  3730. ;;;; Entity
    3731. 

  3731. 

  3732. (defun org-e-odt-entity (entity contents info)
    3733. 

  3733.   "Transcode an ENTITY object from Org to HTML.
    3734. 

  3734. CONTENTS are the definition itself.  INFO is a plist holding
    3735. 

  3735. contextual information."
    3736. 

  3736.   ;; (let ((ent (org-element-property :latex entity)))
    3737. 

  3737.   ;;   (if (org-element-property :latex-math-p entity)
    3738. 

  3738.   ;; 	(format "$%s$" ent)
    3739. 

  3739.   ;;     ent))
    3740. 

  3740.   (org-element-property :utf-8 entity))
    3741. 

  3741. 

  3742. 

  3743. ;;;; Example Block
    3744. 

  3744. 

  3745. 

  3746. ;; (defun org-odt-format-source-code-or-example-colored
    3747. 

  3747. ;;   (lines lang caption textareap cols rows num cont rpllbl fmt))
    3748. 

  3748. 

  3749. ;; (defun org-e-odt-format-source-code-or-example-plain
    3750. 

  3750. ;;   (lines lang caption textareap cols rows num cont rpllbl fmt)
    3751. 

  3751. ;;   (setq lines
    3752. 

  3752. ;; 	(concat
    3753. 

  3753. ;; 	 "<pre class=\"example\">\n"
    3754. 

  3754. ;; 	 (cond
    3755. 

  3755. ;; 	  (textareap
    3756. 

  3756. ;; 	   (concat
    3757. 

  3757. ;; 	    (format "<p>\n<textarea cols=\"%d\" rows=\"%d\">"
    3758. 

  3758. ;; 		    cols rows)
    3759. 

  3759. ;; 	    lines "</textarea>\n</p>\n"))
    3760. 

  3760. ;; 	  (t
    3761. 

  3761. ;; 	   (with-temp-buffer
    3762. 

  3762. ;; 	     (insert lines)
    3763. 

  3763. ;; 	     (goto-char (point-min))
    3764. 

  3764. ;; 	     (while (re-search-forward "[<>&]" nil t)
    3765. 

  3765. ;; 	       (replace-match (cdr (assq (char-before)
    3766. 

  3766. ;; 					 '((?&."&amp;")(?<."&lt;")(?>."&gt;"))))
    3767. 

  3767. ;; 			      t t))
    3768. 

  3768. ;; 	     (buffer-string))))
    3769. 

  3769. ;; 	 "</pre>\n"))
    3770. 

  3770. 

  3771. ;;   (unless textareap
    3772. 

  3772. ;;     (setq lines (org-export-number-lines lines 1 1 num cont rpllbl fmt)))
    3773. 

  3773. 

  3774. ;;   ;; (when (string-match "\\(\\`<[^>]*>\\)\n" lines)
    3775. 

  3775. ;;   ;;   (setq lines (replace-match "\\1" t nil lines)))
    3776. 

  3776. 

  3777. ;;   lines)
    3778. 

  3778. 

  3779. ;; (defun org-e-odt-format-source-code-or-example-colored
    3780. 

  3780. ;;   (lines lang caption textareap cols rows num cont rpllbl fmt)
    3781. 

  3781. ;;   (let* ((lang-m (when lang
    3782. 

  3782. ;; 		   (or (cdr (assoc lang org-src-lang-modes))
    3783. 

  3783. ;; 		       lang)))
    3784. 

  3784. ;; 	 (mode (and lang-m (intern
    3785. 

  3785. ;; 			    (concat
    3786. 

  3786. ;; 			     (if (symbolp lang-m)
    3787. 

  3787. ;; 				 (symbol-name lang-m)
    3788. 

  3788. ;; 			       lang-m)
    3789. 

  3789. ;; 			     "-mode"))))
    3790. 

  3790. ;; 	 (org-inhibit-startup t)
    3791. 

  3791. ;; 	 (org-startup-folded nil))
    3792. 

  3792. ;;     (setq lines
    3793. 

  3793. ;; 	  (with-temp-buffer
    3794. 

  3794. ;; 	    (insert lines)
    3795. 

  3795. ;; 	    (if (functionp mode)
    3796. 

  3796. ;; 		(funcall mode)
    3797. 

  3797. ;; 	      (fundamental-mode))
    3798. 

  3798. ;; 	    (font-lock-fontify-buffer)
    3799. 

  3799. ;; 	    ;; markup each line separately
    3800. 

  3800. ;; 	    (org-remove-formatting-on-newlines-in-region
    3801. 

  3801. ;; 	     (point-min) (point-max))
    3802. 

  3802. ;; 	    (org-src-mode)
    3803. 

  3803. ;; 	    (set-buffer-modified-p nil)
    3804. 

  3804. ;; 	    (org-export-e-odtize-region-for-paste
    3805. 

  3805. ;; 	     (point-min) (point-max))))
    3806. 

  3806. 

  3807. ;;     (when (string-match "<pre\\([^>]*\\)>\n*" lines)
    3808. 

  3808. ;;       (setq lines (replace-match
    3809. 

  3809. ;; 		   (format "<pre class=\"src src-%s\">\n" lang) t t lines)))
    3810. 

  3810. 

  3811. ;;     (when caption
    3812. 

  3812. ;;       (setq lines
    3813. 

  3813. ;; 	    (concat
    3814. 

  3814. ;; 	     "<div class=\"org-src-container\">"
    3815. 

  3815. ;; 	     (format "<label class=\"org-src-name\">%s</label>" caption)
    3816. 

  3816. ;; 	     lines "</div>")))
    3817. 

  3817. 

  3818. ;;     (unless textareap
    3819. 

  3819. ;;       (setq lines (org-export-number-lines lines 1 1 num cont rpllbl fmt)))
    3820. 

  3820. 

  3821. ;;     ;; (when (string-match "\\(\\`<[^>]*>\\)\n" lines)
    3822. 

  3822. ;;     ;;   (setq lines (replace-match "\\1" t nil lines)))
    3823. 

  3823. ;;     lines))
    3824. 

  3824. 

  3825. ;; (defun org-e-odt-format-source-code-or-example
    3826. 

  3826. ;;   (lang code &optional opts indent caption)
    3827. 

  3827. ;;   "Format CODE from language LANG and return it formatted for export.
    3828. 

  3828. ;; The CODE is marked up in `org-export-current-backend' format.
    3829. 

  3829. 

  3830. ;; Check if a function by name
    3831. 

  3831. ;; \"org-<backend>-format-source-code-or-example\" is bound. If yes,
    3832. 

  3832. ;; use it as the custom formatter. Otherwise, use the default
    3833. 

  3833. ;; formatter. Default formatters are provided for docbook, html,
    3834. 

  3834. ;; latex and ascii backends. For example, use
    3835. 

  3835. ;; `org-e-odt-format-source-code-or-example' to provide a custom
    3836. 

  3836. ;; formatter for export to \"html\".
    3837. 

  3837. 

  3838. ;; If LANG is nil, do not add any fontification.
    3839. 

  3839. ;; OPTS contains formatting options, like `-n' for triggering numbering lines,
    3840. 

  3840. ;; and `+n' for continuing previous numbering.
    3841. 

  3841. ;; Code formatting according to language currently only works for HTML.
    3842. 

  3842. ;; Numbering lines works for all three major backends (html, latex, and ascii).
    3843. 

  3843. ;; INDENT was the original indentation of the block."
    3844. 

  3844. ;;   (save-match-data
    3845. 

  3845. ;;     (let* ((backend-formatter 'org-e-odt-format-source-code-or-example-plain)
    3846. 

  3846. ;; 	   num cont rtn rpllbl keepp textareap preserve-indentp cols rows fmt)
    3847. 

  3847. ;;       (setq opts (or opts "")
    3848. 

  3848. ;; 	    num (string-match "[-+]n\\>" opts)
    3849. 

  3849. ;; 	    cont (string-match "\\+n\\>" opts)
    3850. 

  3850. ;; 	    rpllbl (string-match "-r\\>" opts)
    3851. 

  3851. ;; 	    keepp (string-match "-k\\>" opts)
    3852. 

  3852. ;; 	    textareap (string-match "-t\\>" opts)
    3853. 

  3853. ;; 	    preserve-indentp (or org-src-preserve-indentation
    3854. 

  3854. ;; 				 (string-match "-i\\>" opts))
    3855. 

  3855. ;; 	    cols (if (string-match "-w[ \t]+\\([0-9]+\\)" opts)
    3856. 

  3856. ;; 		     (string-to-number (match-string 1 opts))
    3857. 

  3857. ;; 		   80)
    3858. 

  3858. ;; 	    rows (if (string-match "-h[ \t]+\\([0-9]+\\)" opts)
    3859. 

  3859. ;; 		     (string-to-number (match-string 1 opts))
    3860. 

  3860. ;; 		   (org-count-lines code))
    3861. 

  3861. ;; 	    fmt (if (string-match "-l[ \t]+\"\\([^\"\n]+\\)\"" opts)
    3862. 

  3862. ;; 		    (match-string 1 opts)))
    3863. 

  3863. ;;       (when (and textareap
    3864. 

  3864. ;; 		 ;; (eq org-export-current-backend 'html)
    3865. 

  3865. ;; 		 )
    3866. 

  3866. ;; 	;; we cannot use numbering or highlighting.
    3867. 

  3867. ;; 	(setq num nil cont nil lang nil))
    3868. 

  3868. ;;       (if keepp (setq rpllbl 'keep))
    3869. 

  3869. ;;       (setq rtn (if preserve-indentp code (org-remove-indentation code)))
    3870. 

  3870. ;;       (when (string-match "^," rtn)
    3871. 

  3871. ;; 	(setq rtn (with-temp-buffer
    3872. 

  3872. ;; 		    (insert rtn)
    3873. 

  3873. ;; 		    ;; Free up the protected lines
    3874. 

  3874. ;; 		    (goto-char (point-min))
    3875. 

  3875. ;; 		    (while (re-search-forward "^," nil t)
    3876. 

  3876. ;; 		      (if (or (equal lang "org")
    3877. 

  3877. ;; 			      (save-match-data
    3878. 

  3878. ;; 				(looking-at "\\([*#]\\|[ \t]*#\\+\\)")))
    3879. 

  3879. ;; 			  (replace-match ""))
    3880. 

  3880. ;; 		      (end-of-line 1))
    3881. 

  3881. ;; 		    (buffer-string))))
    3882. 

  3882. ;;       (when lang
    3883. 

  3883. ;; 	(if (featurep 'xemacs)
    3884. 

  3884. ;; 	    (require 'htmlize)
    3885. 

  3885. ;; 	  (require 'htmlize nil t)))
    3886. 

  3886. 

  3887. ;;       (setq backend-formatter
    3888. 

  3888. ;; 	    (cond
    3889. 

  3889. ;; 	     ((fboundp 'htmlize-region-for-paste)
    3890. 

  3890. ;; 	      'org-e-odt-format-source-code-or-example-colored)
    3891. 

  3891. ;; 	     (t
    3892. 

  3892. ;; 	      (message
    3893. 

  3893. ;; 	       "htmlize.el 1.34 or later is needed for source code formatting")
    3894. 

  3894. ;; 	      'org-e-odt-format-source-code-or-example-plain)))
    3895. 

  3895. ;;       (funcall backend-formatter rtn lang caption textareap cols rows
    3896. 

  3896. ;; 	       num cont rpllbl fmt))))
    3897. 

  3897. 

  3898. (defun org-e-odt-example-block (example-block contents info)
    3899. 

  3899.   "Transcode a EXAMPLE-BLOCK element from Org to HTML.
    3900. 

  3900. CONTENTS is nil.  INFO is a plist holding contextual information."
    3901. 

  3901.   (let* ((options (or (org-element-property :options example-block) ""))
    3902. 

  3902. 	 (value (org-export-handle-code example-block info)))
    3903. 

  3903.     ;; (org-e-odt--wrap-label
    3904. 

  3904.     ;;  example-block (format "\\begin{verbatim}\n%s\\end{verbatim}" value))
    3905. 

  3905.     (org-e-odt--wrap-label
    3906. 

  3906.      example-block (org-e-odt-format-source-code-or-example value nil))))
    3907. 

  3907. 

  3908. 

  3909. ;;;; Export Snippet
    3910. 

  3910. 

  3911. (defun org-e-odt-export-snippet (export-snippet contents info)
    3912. 

  3912.   "Transcode a EXPORT-SNIPPET object from Org to HTML.
    3913. 

  3913. CONTENTS is nil.  INFO is a plist holding contextual information."
    3914. 

  3914.   (when (eq (org-export-snippet-backend export-snippet) 'e-odt)
    3915. 

  3915.     (org-element-property :value export-snippet)))
    3916. 

  3916. 

  3917. 

  3918. ;;;; Export Block
    3919. 

  3919. 

  3920. (defun org-e-odt-export-block (export-block contents info)
    3921. 

  3921.   "Transcode a EXPORT-BLOCK element from Org to HTML.
    3922. 

  3922. CONTENTS is nil.  INFO is a plist holding contextual information."
    3923. 

  3923.   (when (string= (org-element-property :type export-block) "latex")
    3924. 

  3924.     (org-remove-indentation (org-element-property :value export-block))))
    3925. 

  3925. 

  3926. 

  3927. ;;;; Fixed Width
    3928. 

  3928. 

  3929. (defun org-e-odt-fixed-width (fixed-width contents info)
    3930. 

  3930.   "Transcode a FIXED-WIDTH element from Org to HTML.
    3931. 

  3931. CONTENTS is nil.  INFO is a plist holding contextual information."
    3932. 

  3932.   (let* ((value (org-element-normalize-string
    3933. 

  3933. 		 (replace-regexp-in-string
    3934. 

  3934. 		  "^[ \t]*: ?" ""
    3935. 

  3935. 		  (org-element-property :value fixed-width)))))
    3936. 

  3936.     (org-e-odt--wrap-label
    3937. 

  3937.      fixed-width (org-e-odt-format-source-code-or-example value nil))))
    3938. 

  3938. 

  3939. 

  3940. ;;;; Footnote Definition
    3941. 

  3941. 

  3942. ;; Footnote Definitions are ignored.
    3943. 

  3943. 

  3944. 

  3945. ;;;; Footnote Reference
    3946. 

  3946. 

  3947. (defun org-e-odt-footnote-def (raw info) ; FIXME
    3948. 

  3948.   (if (equal (org-element-type raw) 'org-data)
    3949. 

  3949.       (org-trim (org-export-data raw 'e-odt info))
    3950. 

  3950.     (org-odt-format-stylized-paragraph
    3951. 

  3951.      'footnote (org-trim (org-export-secondary-string raw 'e-odt info)))))
    3952. 

  3952. 

  3953. (defvar org-e-odt-footnote-separator
    3954. 

  3954.   (org-e-odt-format-fontify "," 'superscript))
    3955. 

  3955. 

  3956. (defun org-e-odt-footnote-reference (footnote-reference contents info)
    3957. 

  3957.   "Transcode a FOOTNOTE-REFERENCE element from Org to HTML.
    3958. 

  3958. CONTENTS is nil.  INFO is a plist holding contextual information."
    3959. 

  3959.   (concat
    3960. 

  3960.    ;; Insert separator between two footnotes in a row.
    3961. 

  3961.    (let ((prev (org-export-get-previous-element footnote-reference info)))
    3962. 

  3962.      (when (and (listp prev) (eq (car prev) 'footnote-reference))
    3963. 

  3963.        org-e-odt-footnote-separator))
    3964. 

  3964.    (cond
    3965. 

  3965.     ((not (org-export-footnote-first-reference-p footnote-reference info))
    3966. 

  3966.      (let* ((n (org-export-get-footnote-number footnote-reference info)))
    3967. 

  3967.        (org-e-odt-format-footnote-reference n "IGNORED" 100)))
    3968. 

  3968.     ;; Inline definitions are secondary strings.
    3969. 

  3969.     ((eq (org-element-property :type footnote-reference) 'inline)
    3970. 

  3970.      (let* ((raw (org-export-get-footnote-definition footnote-reference info))
    3971. 

  3971. 	    (n (org-export-get-footnote-number footnote-reference info))
    3972. 

  3972. 	    (def (org-e-odt-footnote-def raw info)))
    3973. 

  3973.        (org-e-odt-format-footnote-reference n def 1)))
    3974. 

  3974.     ;; Non-inline footnotes definitions are full Org data.
    3975. 

  3975.     (t
    3976. 

  3976.      (let* ((raw (org-export-get-footnote-definition footnote-reference info))
    3977. 

  3977. 	    (n (org-export-get-footnote-number footnote-reference info))
    3978. 

  3978. 	    (def (org-e-odt-footnote-def raw info)))
    3979. 

  3979.        (org-e-odt-format-footnote-reference n def 1))))))
    3980. 

  3980. 

  3981. 

  3982. ;;;; Headline
    3983. 

  3983. 

  3984. (defun org-e-odt-todo (todo)
    3985. 

  3985.   (when todo
    3986. 

  3986.     (org-e-odt-format-fontify
    3987. 

  3987.      (concat
    3988. 

  3988.       ""				; org-e-odt-todo-kwd-class-prefix
    3989. 

  3989.       (org-e-odt-fix-class-name todo))
    3990. 

  3990.      (list (if (member todo org-done-keywords) "done" "todo")
    3991. 

  3991. 	   todo))))
    3992. 

  3992. 

  3993. (defun org-e-odt-headline-text (headline info &optional formatter)
    3994. 

  3994.   "Transcode an HEADLINE element from Org to HTML.
    3995. 

  3995. CONTENTS holds the contents of the headline.  INFO is a plist
    3996. 

  3996. holding contextual information."
    3997. 

  3997.   (let* ((numberedp (plist-get info :section-numbers))
    3998. 

  3998. 	 (level (org-export-get-relative-level headline info))
    3999. 

  3999. 	 (todo (and (plist-get info :with-todo-keywords)
    4000. 

  4000. 		    (let ((todo (org-element-property
    4001. 

  4001. 				 :todo-keyword headline)))
    4002. 

  4002. 		      (and todo
    4003. 

  4003. 			   (org-export-secondary-string todo 'e-odt info)))))
    4004. 

  4004. 	 (todo-type (and todo (org-element-property :todo-type headline)))
    4005. 

  4005. 	 (priority (and (plist-get info :with-priority)
    4006. 

  4006. 			(org-element-property :priority headline)))
    4007. 

  4007. 	 (text (org-export-secondary-string
    4008. 

  4008. 		(org-element-property :title headline) 'e-odt info))
    4009. 

  4009. 	 (tags (and (plist-get info :with-tags)
    4010. 

  4010. 		    (org-element-property :tags headline)))
    4011. 

  4011. 

  4012. 	 (headline-no (org-export-get-headline-number headline info))
    4013. 

  4013. 	 (headline-label
    4014. 

  4014. 	  (format "sec-%s" (mapconcat 'number-to-string headline-no "-")))
    4015. 

  4015. 	 (headline-labels (list headline-label))
    4016. 

  4016. 	 (headline-no (org-export-get-headline-number headline info))
    4017. 

  4017. 	 (section-no (mapconcat 'number-to-string headline-no "."))
    4018. 

  4018. 	 (primary-target (car (last headline-labels)))
    4019. 

  4019. 	 (secondary-targets (butlast headline-labels))
    4020. 

  4020. 	 (extra-class nil)
    4021. 

  4021. 	 (formatter (or (and (functionp formatter) formatter)
    4022. 

  4022. 			org-e-odt-headline-formatter)))
    4023. 

  4023.     (funcall formatter level section-no todo todo-type priority
    4024. 

  4024. 	     text tags primary-target secondary-targets extra-class)))
    4025. 

  4025. 

  4026. (defun org-e-odt-headline (headline contents info)
    4027. 

  4027.   "Transcode an HEADLINE element from Org to HTML.
    4028. 

  4028. CONTENTS holds the contents of the headline.  INFO is a plist
    4029. 

  4029. holding contextual information."
    4030. 

  4030.   (let* ((class (plist-get info :latex-class))
    4031. 

  4031. 	 (numberedp (plist-get info :section-numbers))
    4032. 

  4032. 	 ;; Get level relative to current parsed data.
    4033. 

  4033. 	 (level (org-export-get-relative-level headline info))
    4034. 

  4034. 	 ;; (class-sectionning (assoc class org-e-odt-classes))
    4035. 

  4035. 	 ;; Section formatting will set two placeholders: one for the
    4036. 

  4036. 	 ;; title and the other for the contents.
    4037. 

  4037. 	 ;; (section-fmt
    4038. 

  4038. 	 ;;  (let ((sec (if (and (symbolp (nth 2 class-sectionning))
    4039. 

  4039. 	 ;; 		      (fboundp (nth 2 class-sectionning)))
    4040. 

  4040. 	 ;; 		 (funcall (nth 2 class-sectionning) level numberedp)
    4041. 

  4041. 	 ;; 	       (nth (1+ level) class-sectionning))))
    4042. 

  4042. 	 ;;    (cond
    4043. 

  4043. 	 ;;     ;; No section available for that LEVEL.
    4044. 

  4044. 	 ;;     ((not sec) nil)
    4045. 

  4045. 	 ;;     ;; Section format directly returned by a function.
    4046. 

  4046. 	 ;;     ((stringp sec) sec)
    4047. 

  4047. 	 ;;     ;; (numbered-section . unnumbered-section)
    4048. 

  4048. 	 ;;     ((not (consp (cdr sec)))
    4049. 

  4049. 	 ;;      (concat (funcall (if numberedp #'car #'cdr) sec) "\n%s"))
    4050. 

  4050. 	 ;;     ;; (numbered-open numbered-close)
    4051. 

  4051. 	 ;;     ((= (length sec) 2)
    4052. 

  4052. 	 ;;      (when numberedp (concat (car sec) "\n%s" (nth 1 sec))))
    4053. 

  4053. 	 ;;     ;; (num-in num-out no-num-in no-num-out)
    4054. 

  4054. 	 ;;     ((= (length sec) 4)
    4055. 

  4055. 	 ;;      (if numberedp
    4056. 

  4056. 	 ;; 	  (concat (car sec) "\n%s" (nth 1 sec))
    4057. 

  4057. 	 ;; 	(concat (nth 2 sec) "\n%s" (nth 3 sec)))))))
    4058. 

  4058. 	 (text (org-export-secondary-string
    4059. 

  4059. 		(org-element-property :title headline) 'e-odt info))
    4060. 

  4060. 	 (todo (and (plist-get info :with-todo-keywords)
    4061. 

  4061. 		    (let ((todo (org-element-property
    4062. 

  4062. 				 :todo-keyword headline)))
    4063. 

  4063. 		      (and todo
    4064. 

  4064. 			   (org-export-secondary-string todo 'e-odt info)))))
    4065. 

  4065. 	 (todo-type (and todo (org-element-property :todo-type headline)))
    4066. 

  4066. 	 (tags (and (plist-get info :with-tags)
    4067. 

  4067. 		    (org-element-property :tags headline)))
    4068. 

  4068. 	 (priority (and (plist-get info :with-priority)
    4069. 

  4069. 			(org-element-property :priority headline)))
    4070. 

  4070. 	 ;; Create the headline text.
    4071. 

  4071. 	 (full-text (if (functionp org-e-odt-format-headline-function)
    4072. 

  4072. 			;; User-defined formatting function.
    4073. 

  4073. 			(funcall org-e-odt-format-headline-function
    4074. 

  4074. 				 todo todo-type priority text tags)
    4075. 

  4075. 		      ;; Default formatting.
    4076. 

  4076. 		      (concat
    4077. 

  4077. 		       ;; (when todo
    4078. 

  4078. 		       ;; 	 (format "\\textbf{\\textsf{\\textsc{%s}}} " todo))
    4079. 

  4079. 		       (org-e-odt-todo todo) " "
    4080. 

  4080. 		       (when priority (format "\\framebox{\\#%c} " priority))
    4081. 

  4081. 		       text
    4082. 

  4082. 		       ;; (when tags (format "\\hfill{}\\textsc{%s}" tags))
    4083. 

  4083. 		       )))
    4084. 

  4084. 	 ;; Associate some \label to the headline for internal links.
    4085. 

  4085. 	 ;; (headline-label
    4086. 

  4086. 	 ;;  (format "\\label{sec-%s}\n"
    4087. 

  4087. 	 ;; 	  (mapconcat 'number-to-string
    4088. 

  4088. 	 ;; 		     (org-export-get-headline-number headline info)
    4089. 

  4089. 	 ;; 		     "-")))
    4090. 

  4090. 

  4091. 	 ;; FIXME - begin
    4092. 

  4092. 	 (headline-no (org-export-get-headline-number headline info))
    4093. 

  4093. 	 (headline-label
    4094. 

  4094. 	  (format "sec-%s" (mapconcat 'number-to-string headline-no "-")))
    4095. 

  4095. 	 (headline-labels (list headline-label))
    4096. 

  4096. 	 (headline-no (org-export-get-headline-number headline info))
    4097. 

  4097. 	 (section-no (mapconcat 'number-to-string headline-no "."))
    4098. 

  4098. 	 ;; FIXME - end
    4099. 

  4099. 

  4100. 	 (pre-blanks (make-string
    4101. 

  4101. 		      (org-element-property :pre-blank headline) 10)))
    4102. 

  4102.     (cond
    4103. 

  4103.      ;; Case 1: This is a footnote section: ignore it.
    4104. 

  4104.      ((org-element-property :footnote-section-p headline) nil)
    4105. 

  4105.      ;; Case 2. This is a deep sub-tree: export it as a list item.
    4106. 

  4106.      ;;         Also export as items headlines for which no section
    4107. 

  4107.      ;;         format has been found.
    4108. 

  4108.      ((org-export-low-level-p headline info) ; FIXME (or (not section-fmt))
    4109. 

  4109.       ;; Build the real contents of the sub-tree.
    4110. 

  4110.       (let* ((type (if numberedp 'unordered 'unordered)) ; FIXME
    4111. 

  4111. 	     (itemized-body (org-e-odt-format-list-item
    4112. 

  4112. 			     contents type nil nil full-text)))
    4113. 

  4113. 	(concat
    4114. 

  4114. 	 (and (org-export-first-sibling-p headline info)
    4115. 

  4115. 	      (org-e-odt-begin-plain-list type))
    4116. 

  4116. 	 itemized-body
    4117. 

  4117. 	 (and (org-export-last-sibling-p headline info)
    4118. 

  4118. 	      (org-e-odt-end-plain-list type)))))
    4119. 

  4119.      ;; Case 3. Standard headline.  Export it as a section.
    4120. 

  4120.      (t
    4121. 

  4121.       ;; (format section-fmt full-text
    4122. 

  4122.       ;; 	(concat headline-label pre-blanks contents))
    4123. 

  4123. 

  4124.       (org-e-odt-format-outline contents level section-no full-text tags
    4125. 

  4125. 				 (car (last headline-labels))
    4126. 

  4126. 				 (butlast headline-labels) nil)))))
    4127. 

  4127. 

  4128. 

  4129. ;;;; Horizontal Rule
    4130. 

  4130. 

  4131. (defun org-e-odt-horizontal-rule (horizontal-rule contents info)
    4132. 

  4132.   "Transcode an HORIZONTAL-RULE  object from Org to HTML.
    4133. 

  4133. CONTENTS is nil.  INFO is a plist holding contextual information."
    4134. 

  4134.   (let ((attr (mapconcat #'identity
    4135. 

  4135. 			 (org-element-property :attr_odt horizontal-rule)
    4136. 

  4136. 			 " ")))
    4137. 

  4137.     (org-e-odt--wrap-label horizontal-rule
    4138. 

  4138. 			    (org-e-odt-format-horizontal-line))))
    4139. 

  4139. 

  4140. 

  4141. ;;;; Inline Babel Call
    4142. 

  4142. 

  4143. ;; Inline Babel Calls are ignored.
    4144. 

  4144. 

  4145. 

  4146. ;;;; Inline Src Block
    4147. 

  4147. 

  4148. (defun org-e-odt-inline-src-block (inline-src-block contents info)
    4149. 

  4149.   "Transcode an INLINE-SRC-BLOCK element from Org to HTML.
    4150. 

  4150. CONTENTS holds the contents of the item.  INFO is a plist holding
    4151. 

  4151. contextual information."
    4152. 

  4152.   (let* ((org-lang (org-element-property :language inline-src-block))
    4153. 

  4153. 	 (code (org-element-property :value inline-src-block))
    4154. 

  4154. 	 (separator (org-e-odt--find-verb-separator code)))
    4155. 

  4155.     (error "FIXME")))
    4156. 

  4156. 

  4157. 

  4158. ;;;; Inlinetask
    4159. 

  4159. 

  4160. (defun org-e-odt-format-section (text class &optional id)
    4161. 

  4161.   (let ((extra (concat (when id (format " id=\"%s\"" id)))))
    4162. 

  4162.     (concat (format "<div class=\"%s\"%s>\n" class extra) text "</div>\n")))
    4163. 

  4163. 

  4164. (defun org-e-odt-inlinetask (inlinetask contents info)
    4165. 

  4165.   "Transcode an INLINETASK element from Org to HTML.
    4166. 

  4166. CONTENTS holds the contents of the block.  INFO is a plist
    4167. 

  4167. holding contextual information."
    4168. 

  4168.   (let ((title (org-export-secondary-string
    4169. 

  4169. 	       (org-element-property :title inlinetask) 'e-odt info))
    4170. 

  4170. 	(todo (and (plist-get info :with-todo-keywords)
    4171. 

  4171. 		   (let ((todo (org-element-property
    4172. 

  4172. 				:todo-keyword inlinetask)))
    4173. 

  4173. 		     (and todo
    4174. 

  4174. 			  (org-export-secondary-string todo 'e-odt info)))))
    4175. 

  4175. 	(todo-type (org-element-property :todo-type inlinetask))
    4176. 

  4176. 	(tags (and (plist-get info :with-tags)
    4177. 

  4177. 		   (org-element-property :tags inlinetask)))
    4178. 

  4178. 	(priority (and (plist-get info :with-priority)
    4179. 

  4179. 		       (org-element-property :priority inlinetask))))
    4180. 

  4180.     ;; If `org-e-odt-format-inlinetask-function' is provided, call it
    4181. 

  4181.     ;; with appropriate arguments.
    4182. 

  4182.     (if (functionp org-e-odt-format-inlinetask-function)
    4183. 

  4183. 	(funcall org-e-odt-format-inlinetask-function
    4184. 

  4184. 		 todo todo-type priority title tags contents)
    4185. 

  4185.       ;; Otherwise, use a default template.
    4186. 

  4186.       (org-e-odt--wrap-label
    4187. 

  4187.        inlinetask
    4188. 

  4188.        (let ((full-title
    4189. 

  4189. 	      (concat
    4190. 

  4190. 	       (when todo (format "\\textbf{\\textsf{\\textsc{%s}}} " todo))
    4191. 

  4191. 	       (when priority (format "\\framebox{\\#%c} " priority))
    4192. 

  4192. 	       title
    4193. 

  4193. 	       (when tags (format "\\hfill{}\\textsc{%s}" tags)))))
    4194. 

  4194. 	 (format (concat "\\begin{center}\n"
    4195. 

  4195. 			 "\\fbox{\n"
    4196. 

  4196. 			 "\\begin{minipage}[c]{.6\\textwidth}\n"
    4197. 

  4197. 			 "%s\n\n"
    4198. 

  4198. 			 "\\rule[.8em]{\\textwidth}{2pt}\n\n"
    4199. 

  4199. 			 "%s"
    4200. 

  4200. 			 "\\end{minipage}\n"
    4201. 

  4201. 			 "}\n"
    4202. 

  4202. 			 "\\end{center}")
    4203. 

  4203. 		 full-title contents))))))
    4204. 

  4204. 

  4205. 

  4206. ;;;; Item
    4207. 

  4207. 

  4208. (defun org-e-odt-format-list-item (contents type checkbox
    4209. 

  4209. 					    &optional term-counter-id
    4210. 

  4210. 					    headline)
    4211. 

  4211.   (when checkbox
    4212. 

  4212.     (setq checkbox
    4213. 

  4213. 	  (org-e-odt-format-fontify (case checkbox
    4214. 

  4214. 				      (on "[X]")
    4215. 

  4215. 				      (off "[&nbsp;]")
    4216. 

  4216. 				      (trans "[-]")) 'code)))
    4217. 

  4217.   (concat
    4218. 

  4218.    (org-e-odt-begin-list-item type term-counter-id headline)
    4219. 

  4219.    ;; FIXME checkbox (and checkbox " ")
    4220. 

  4220.    contents
    4221. 

  4221.    (org-e-odt-end-list-item type)))
    4222. 

  4222. 

  4223. (defun org-e-odt-item (item contents info)
    4224. 

  4224.   "Transcode an ITEM element from Org to HTML.
    4225. 

  4225. CONTENTS holds the contents of the item.  INFO is a plist holding
    4226. 

  4226. contextual information."
    4227. 

  4227.   ;; Grab `:level' from plain-list properties, which is always the
    4228. 

  4228.   ;; first element above current item.
    4229. 

  4229.   (let* ((plain-list (org-export-get-parent item info))
    4230. 

  4230. 	 (type (org-element-property :type plain-list))
    4231. 

  4231. 	 (level (org-element-property :level plain-list))
    4232. 

  4232. 	 (counter (org-element-property :counter item))
    4233. 

  4233. 	 (checkbox (org-element-property :checkbox item))
    4234. 

  4234. 	 (tag (let ((tag (org-element-property :tag item)))
    4235. 

  4235. 		(and tag (org-export-secondary-string tag 'e-odt info)))))
    4236. 

  4236.     (org-e-odt-format-list-item
    4237. 

  4237.      contents type checkbox (or tag counter))))
    4238. 

  4238. 

  4239. 

  4240. ;;;; Keyword
    4241. 

  4241. 

  4242. (defun org-e-odt-keyword (keyword contents info)
    4243. 

  4243.   "Transcode a KEYWORD element from Org to HTML.
    4244. 

  4244. CONTENTS is nil.  INFO is a plist holding contextual information."
    4245. 

  4245.   (let ((key (downcase (org-element-property :key keyword)))
    4246. 

  4246. 	(value (org-element-property :value keyword)))
    4247. 

  4247.     (cond
    4248. 

  4248.      ((string= key "latex") value)
    4249. 

  4249.      ((string= key "index") (format "\\index{%s}" value))
    4250. 

  4250.      ((string= key "target")
    4251. 

  4251.       (format "\\label{%s}" (org-export-solidify-link-text value)))
    4252. 

  4252.      ((string= key "toc")
    4253. 

  4253.       (let ((value (downcase value)))
    4254. 

  4254. 	(cond
    4255. 

  4255. 	 ((string-match "\\<headlines\\>" value)
    4256. 

  4256. 	  (let ((depth (or (and (string-match "[0-9]+" value)
    4257. 

  4257. 				(string-to-number (match-string 0 value)))
    4258. 

  4258. 			   (plist-get info :with-toc))))
    4259. 

  4259. 	    (when (wholenump depth) (org-e-odt-toc depth info))))
    4260. 

  4260. 	 ((string= "tables" value) "\\listoftables")
    4261. 

  4261. 	 ((string= "figures" value) "\\listoffigures")
    4262. 

  4262. 	 ((string= "listings" value)
    4263. 

  4263. 	  (cond
    4264. 

  4264. 	   ;; At the moment, src blocks with a caption are wrapped
    4265. 

  4265. 	   ;; into a figure environment.
    4266. 

  4266. 	   (t "\\listoffigures")))))))))
    4267. 

  4267. 

  4268. 

  4269. ;;;; Latex Environment
    4270. 

  4270. 

  4271. (defun org-e-odt-format-latex (latex-frag processing-type)
    4272. 

  4272.   (let* ((prefix (case processing-type
    4273. 

  4273. 		   (dvipng "ltxpng/")
    4274. 

  4274. 		   (mathml "ltxmathml/")))
    4275. 

  4275. 	 (cache-relpath
    4276. 

  4276. 	  (concat prefix (file-name-sans-extension
    4277. 

  4277. 			  (file-name-nondirectory (buffer-file-name)))))
    4278. 

  4278. 	 (cache-dir (file-name-directory (buffer-file-name )))
    4279. 

  4279. 	 (display-msg (case processing-type
    4280. 

  4280. 			(dvipng "Creating LaTeX Image...")
    4281. 

  4281. 			(mathml "Creating MathML snippet..."))))
    4282. 

  4282.     (with-temp-buffer
    4283. 

  4283.       (insert latex-frag)
    4284. 

  4284.       (org-format-latex cache-relpath cache-dir nil display-msg
    4285. 

  4285. 			nil nil processing-type)
    4286. 

  4286.       (buffer-string))))
    4287. 

  4287. 

  4288. (defun org-e-odt-latex-environment (latex-environment contents info)
    4289. 

  4289.   "Transcode a LATEX-ENVIRONMENT element from Org to HTML.
    4290. 

  4290. CONTENTS is nil.  INFO is a plist holding contextual information."
    4291. 

  4291.   (org-e-odt--wrap-label
    4292. 

  4292.    latex-environment
    4293. 

  4293.    (let ((latex-frag
    4294. 

  4294. 	  (org-remove-indentation
    4295. 

  4295. 	   (org-element-property :value latex-environment)))
    4296. 

  4296. 	 (processing-type (plist-get info :LaTeX-fragments)))
    4297. 

  4297.      (cond
    4298. 

  4298.       ((member processing-type '(t mathjax))
    4299. 

  4299.        (org-e-odt-format-latex latex-frag 'mathml))
    4300. 

  4300.       ((equal processing-type 'dvipng)
    4301. 

  4301.        (let* ((formula-link (org-e-odt-format-latex
    4302. 

  4302. 			     latex-frag processing-type)))
    4303. 

  4303. 	 (when (and formula-link
    4304. 

  4304. 		    (string-match "file:\\([^]]*\\)" formula-link))
    4305. 

  4305. 	   (org-e-odt-format-inline-image (match-string 1 formula-link)))))
    4306. 

  4306.       (t
    4307. 

  4307.        latex-frag)))))
    4308. 

  4308. 

  4309. 

  4310. ;;;; Latex Fragment
    4311. 

  4311. 

  4312. (defun org-e-odt-latex-fragment (latex-fragment contents info)
    4313. 

  4313.   "Transcode a LATEX-FRAGMENT object from Org to HTML.
    4314. 

  4314. CONTENTS is nil.  INFO is a plist holding contextual information."
    4315. 

  4315.   ;; (org-element-property :value latex-fragment)
    4316. 

  4316.   (let* ((latex-frag (org-element-property :value latex-fragment)))
    4317. 

  4317.     (cond
    4318. 

  4318.      ((string-match "\\\\ref{\\([^{}\n]+\\)}" latex-frag)
    4319. 

  4319.       (let* ((label (match-string 1 latex-frag))
    4320. 

  4320. 	     (href (and label (org-export-solidify-link-text label)))
    4321. 

  4321. 	     (text (if (string-match "\\`[a-z]\\{1,10\\}:\\(.+\\)" label)
    4322. 

  4322. 		       (substring label (match-beginning 1))
    4323. 

  4323. 		     label)))
    4324. 

  4324. 	(org-e-odt-format-internal-link text href)))
    4325. 

  4325.      (t (let ((processing-type (plist-get info :LaTeX-fragments)))
    4326. 

  4326. 	  (cond
    4327. 

  4327. 	   ((member processing-type '(t mathjax))
    4328. 

  4328. 	    (org-e-odt-format-latex latex-frag 'mathjax))
    4329. 

  4329. 	   ((equal processing-type 'dvipng)
    4330. 

  4330. 	    (let* ((formula-link (org-e-odt-format-latex
    4331. 

  4331. 				  latex-frag processing-type)))
    4332. 

  4332. 	      (when (and formula-link
    4333. 

  4333. 			 (string-match "file:\\([^]]*\\)" formula-link))
    4334. 

  4334. 		(org-e-odt-format-inline-image
    4335. 

  4335. 		 (match-string 1 formula-link)))))
    4336. 

  4336. 	   (t latex-frag)))))))
    4337. 

  4337. 

  4338. 

  4339. ;;;; Line Break
    4340. 

  4340. 

  4341. (defun org-e-odt-line-break (line-break contents info)
    4342. 

  4342.   "Transcode a LINE-BREAK object from Org to HTML.
    4343. 

  4343. CONTENTS is nil.  INFO is a plist holding contextual information."
    4344. 

  4344.   "<br/>")
    4345. 

  4345. 

  4346. 

  4347. ;;;; Link
    4348. 

  4348. 

  4349. (defun org-e-odt-link--inline-image (link info)
    4350. 

  4350.   "Return HTML code for an inline image.
    4351. 

  4351. LINK is the link pointing to the inline image.  INFO is a plist
    4352. 

  4352. used as a communication channel."
    4353. 

  4353.   (let* ((parent (org-export-get-parent-paragraph link info))
    4354. 

  4354. 	 (path (let ((raw-path (org-element-property :path link)))
    4355. 

  4355. 		 (if (not (file-name-absolute-p raw-path)) raw-path
    4356. 

  4356. 		   (expand-file-name raw-path))))
    4357. 

  4357. 	 (caption (org-e-odt--caption/label-string
    4358. 

  4358. 		   (org-element-property :caption parent)
    4359. 

  4359. 		   (org-element-property :name parent)
    4360. 

  4360. 		   info))
    4361. 

  4361. 	 (label (org-element-property :name parent))
    4362. 

  4362. 	 ;; Retrieve latex attributes from the element around.
    4363. 

  4363. 	 (attr (let ((raw-attr
    4364. 

  4364. 		      (mapconcat #'identity
    4365. 

  4365. 				 (org-element-property :attr_odt parent)
    4366. 

  4366. 				 " ")))
    4367. 

  4367. 		 (unless (string= raw-attr "") raw-attr))))
    4368. 

  4368.     ;; Now clear ATTR from any special keyword and set a default
    4369. 

  4369.     ;; value if nothing is left.
    4370. 

  4370.     (setq attr (if (not attr) "" (org-trim attr)))
    4371. 

  4371.     ;; Return proper string, depending on DISPOSITION.
    4372. 

  4372.     (let ((href (and label (org-export-solidify-link-text label))))
    4373. 

  4373.       (org-e-odt-format-inline-image path caption href attr))))
    4374. 

  4374. 

  4375. (defun org-e-odt-link (link desc info)
    4376. 

  4376.   "Transcode a LINK object from Org to HTML.
    4377. 

  4377. 

  4378. DESC is the description part of the link, or the empty string.
    4379. 

  4379. INFO is a plist holding contextual information.  See
    4380. 

  4380. `org-export-data'."
    4381. 

  4381.   (let* ((type (org-element-property :type link))
    4382. 

  4382. 	 (raw-path (org-element-property :path link))
    4383. 

  4383. 	 ;; Ensure DESC really exists, or set it to nil.
    4384. 

  4384. 	 (desc (and (not (string= desc "")) desc))
    4385. 

  4385. 	 (imagep (org-export-inline-image-p
    4386. 

  4386. 		  link org-e-odt-inline-image-rules))
    4387. 

  4387. 	 (path (cond
    4388. 

  4388. 		((member type '("http" "https" "ftp" "mailto"))
    4389. 

  4389. 		 (concat type ":" raw-path))
    4390. 

  4390. 		((string= type "file")
    4391. 

  4391. 		 (when (string-match "\\(.+\\)::.+" raw-path)
    4392. 

  4392. 		   (setq raw-path (match-string 1 raw-path)))
    4393. 

  4393. 		 (if (file-name-absolute-p raw-path)
    4394. 

  4394. 		     (concat "file://" (expand-file-name raw-path))
    4395. 

  4395. 		   ;; TODO: Not implemented yet.  Concat also:
    4396. 

  4396. 		   ;; (org-export-directory :HTML info)
    4397. 

  4397. 		   (concat "file://" raw-path)))
    4398. 

  4398. 		(t raw-path)))
    4399. 

  4399. 	 protocol)
    4400. 

  4400.     (cond
    4401. 

  4401.      ;; Image file.
    4402. 

  4402.      (imagep (org-e-odt-link--inline-image link info))
    4403. 

  4403.      ;; Target or radioed target: replace link with the normalized
    4404. 

  4404.      ;; custom-id/target name.
    4405. 

  4405.      ((member type '("target" "radio"))
    4406. 

  4406.       (org-e-odt-format-internal-link
    4407. 

  4407.        (or desc (org-export-secondary-string path 'e-odt info))
    4408. 

  4408.        (org-export-solidify-link-text path)))
    4409. 

  4409.      ;; Links pointing to an headline: Find destination and build
    4410. 

  4410.      ;; appropriate referencing commanding.
    4411. 

  4411.      ((member type '("custom-id" "fuzzy" "id"))
    4412. 

  4412.       (let ((destination (if (string= type "fuzzy")
    4413. 

  4413. 			     (org-export-resolve-fuzzy-link link info)
    4414. 

  4414. 			   (org-export-resolve-id-link link info))))
    4415. 

  4415. 	;; Fuzzy link points to a target.  Do as above.
    4416. 

  4416. 	(case (org-element-type destination)
    4417. 

  4417. 	  (target
    4418. 

  4418. 	   (org-e-odt-format-internal-link
    4419. 

  4419. 	    (or desc
    4420. 

  4420. 		(org-export-secondary-string
    4421. 

  4421. 		 (org-element-property :raw-link link)
    4422. 

  4422. 		 'e-odt info))
    4423. 

  4423. 	    (org-export-solidify-link-text
    4424. 

  4424. 	     (org-element-property :raw-value destination))))
    4425. 

  4425. 	  ;; Fuzzy link points to an headline.  If headlines are
    4426. 

  4426. 	  ;; numbered and the link has no description, display
    4427. 

  4427. 	  ;; headline's number.  Otherwise, display description or
    4428. 

  4428. 	  ;; headline's title.
    4429. 

  4429. 	  (headline
    4430. 

  4430. 	   (let ((label
    4431. 

  4431. 		  (format "sec-%s"
    4432. 

  4432. 			  (mapconcat
    4433. 

  4433. 			   'number-to-string
    4434. 

  4434. 			   (org-export-get-headline-number destination info)
    4435. 

  4435. 			   "-"))))
    4436. 

  4436. 	     (if (and (plist-get info :section-numbers) (not desc))
    4437. 

  4437. 		 (format "\\ref{%s}" label)
    4438. 

  4438. 	       (org-e-odt-format-internal-link
    4439. 

  4439. 		(or desc
    4440. 

  4440. 		    (org-export-secondary-string
    4441. 

  4441. 		     (org-element-property :title destination)
    4442. 

  4442. 		     'e-odt info)) label))))
    4443. 

  4443. 	  ;; Fuzzy link points nowhere.
    4444. 

  4444. 	  (otherwise
    4445. 

  4445. 	   (org-e-odt-format-fontify
    4446. 

  4446. 	    (or desc
    4447. 

  4447. 		(org-export-secondary-string
    4448. 

  4448. 		 (org-element-property :raw-link link)
    4449. 

  4449. 		 'e-odt info)) 'emphasis)))))
    4450. 

  4450.      ;; Coderef: replace link with the reference name or the
    4451. 

  4451.      ;; equivalent line number.
    4452. 

  4452.      ((string= type "coderef")
    4453. 

  4453.       (format (org-export-get-coderef-format path (or desc ""))
    4454. 

  4454. 	      (org-export-resolve-coderef path info)))
    4455. 

  4455.      ;; Link type is handled by a special function.
    4456. 

  4456.      ((functionp (setq protocol (nth 2 (assoc type org-link-protocols))))
    4457. 

  4457.       (funcall protocol (org-link-unescape path) desc 'html))
    4458. 

  4458.      ;; External link with a description part.
    4459. 

  4459.      ((and path desc) (org-e-odt-format-link desc path))
    4460. 

  4460.      ;; External link without a description part.
    4461. 

  4461.      (path (org-e-odt-format-link path path))
    4462. 

  4462.      ;; No path, only description.  Try to do something useful.
    4463. 

  4463.      (t (org-e-odt-format-fontify desc 'emphasis)))))
    4464. 

  4464. 

  4465. 

  4466. ;;;; Babel Call
    4467. 

  4467. 

  4468. ;; Babel Calls are ignored.
    4469. 

  4469. 

  4470. 

  4471. ;;;; Macro
    4472. 

  4472. 

  4473. (defun org-e-odt-macro (macro contents info)
    4474. 

  4474.   "Transcode a MACRO element from Org to HTML.
    4475. 

  4475. CONTENTS is nil.  INFO is a plist holding contextual information."
    4476. 

  4476.   ;; Use available tools.
    4477. 

  4477.   (org-export-expand-macro macro info))
    4478. 

  4478. 

  4479. 

  4480. ;;;; Paragraph
    4481. 

  4481. 

  4482. (defun org-e-odt-paragraph (paragraph contents info)
    4483. 

  4483.   "Transcode a PARAGRAPH element from Org to HTML.
    4484. 

  4484. CONTENTS is the contents of the paragraph, as a string.  INFO is
    4485. 

  4485. the plist used as a communication channel."
    4486. 

  4486.   (let* ((style nil)			; FIXME
    4487. 

  4487. 	 (class (cdr (assoc style '((footnote . "footnote")
    4488. 

  4488. 				    (verse . nil)))))
    4489. 

  4489. 	 (extra (if class (format " class=\"%s\"" class) ""))
    4490. 

  4490. 	 (parent (car (org-export-get-genealogy paragraph info))))
    4491. 

  4491.     (cond
    4492. 

  4492.      ;; ((and (equal (car parent) 'item)
    4493. 

  4493.      ;; 	   (= (org-element-property :begin paragraph)
    4494. 

  4494.      ;; 	      (org-element-property :contents-begin parent)))
    4495. 

  4495.      ;;  ;; leading paragraph in a list item have no tags
    4496. 

  4496.      ;;  contents)
    4497. 

  4497.      (t (org-e-odt-format-stylized-paragraph nil contents)))))
    4498. 

  4498. 

  4499. 

  4500. ;;;; Plain List
    4501. 

  4501. 

  4502. (defun org-e-odt-plain-list (plain-list contents info)
    4503. 

  4503.   "Transcode a PLAIN-LIST element from Org to HTML.
    4504. 

  4504. CONTENTS is the contents of the list.  INFO is a plist holding
    4505. 

  4505. contextual information."
    4506. 

  4506.   (let* (arg1 ;; FIXME
    4507. 

  4507. 	 (type (org-element-property :type plain-list))
    4508. 

  4508. 	 (attr (mapconcat #'identity
    4509. 

  4509. 			  (org-element-property :attr_odt plain-list)
    4510. 

  4510. 			  " ")))
    4511. 

  4511.     (org-e-odt--wrap-label
    4512. 

  4512.      plain-list (format "%s\n%s%s"
    4513. 

  4513. 			(org-e-odt-begin-plain-list type)
    4514. 

  4514. 			contents (org-e-odt-end-plain-list type)))))
    4515. 

  4515. 

  4516. ;;;; Plain Text
    4517. 

  4517. 

  4518. (defun org-e-odt-convert-special-strings (string)
    4519. 

  4519.   "Convert special characters in STRING to ODT."
    4520. 

  4520.   (let ((all org-export-e-odt-special-string-regexps)
    4521. 

  4521. 	e a re rpl start)
    4522. 

  4522.     (while (setq a (pop all))
    4523. 

  4523.       (setq re (car a) rpl (cdr a) start 0)
    4524. 

  4524.       (while (string-match re string start)
    4525. 

  4525. 	(setq string (replace-match rpl t nil string))))
    4526. 

  4526.     string))
    4527. 

  4527. 

  4528. ;; (defun org-e-odt-encode-plain-text (s)
    4529. 

  4529. ;;   "Convert plain text characters to HTML equivalent.
    4530. 

  4530. ;; Possible conversions are set in `org-export-html-protect-char-alist'."
    4531. 

  4531. ;;   (let ((cl org-e-odt-protect-char-alist) c)
    4532. 

  4532. ;;     (while (setq c (pop cl))
    4533. 

  4533. ;;       (let ((start 0))
    4534. 

  4534. ;; 	(while (string-match (car c) s start)
    4535. 

  4535. ;; 	  (setq s (replace-match (cdr c) t t s)
    4536. 

  4536. ;; 		start (1+ (match-beginning 0))))))
    4537. 

  4537. ;;     s))
    4538. 

  4538. 

  4539. (defun org-e-odt-plain-text (text info)
    4540. 

  4540.   "Transcode a TEXT string from Org to HTML.
    4541. 

  4541. TEXT is the string to transcode.  INFO is a plist holding
    4542. 

  4542. contextual information."
    4543. 

  4543.   (setq text (org-e-odt-encode-plain-text text t))
    4544. 

  4544.   ;; Protect %, #, &, $, ~, ^, _,  { and }.
    4545. 

  4545.   ;; (while (string-match "\\([^\\]\\|^\\)\\([%$#&{}~^_]\\)" text)
    4546. 

  4546.   ;;   (setq text
    4547. 

  4547.   ;; 	  (replace-match (format "\\%s" (match-string 2 text)) nil t text 2)))
    4548. 

  4548.   ;; Protect \
    4549. 

  4549.   ;; (setq text (replace-regexp-in-string
    4550. 

  4550.   ;; 	      "\\(?:[^\\]\\|^\\)\\(\\\\\\)\\(?:[^%$#&{}~^_\\]\\|$\\)"
    4551. 

  4551.   ;; 	      "$\\backslash$" text nil t 1))
    4552. 

  4552.   ;; HTML into \HTML{} and TeX into \TeX{}.
    4553. 

  4553.   ;; (let ((case-fold-search nil)
    4554. 

  4554.   ;; 	(start 0))
    4555. 

  4555.   ;;   (while (string-match "\\<\\(\\(?:La\\)?TeX\\)\\>" text start)
    4556. 

  4556.   ;;     (setq text (replace-match
    4557. 

  4557.   ;; 		  (format "\\%s{}" (match-string 1 text)) nil t text)
    4558. 

  4558.   ;; 	    start (match-end 0))))
    4559. 

  4559.   ;; Handle quotation marks
    4560. 

  4560.   ;; (setq text (org-e-odt--quotation-marks text info))
    4561. 

  4561.   ;; Convert special strings.
    4562. 

  4562.   ;; (when (plist-get info :with-special-strings)
    4563. 

  4563.   ;;   (while (string-match (regexp-quote "...") text)
    4564. 

  4564.   ;;     (setq text (replace-match "\\ldots{}" nil t text))))
    4565. 

  4565.   (when (plist-get info :with-special-strings)
    4566. 

  4566.     (setq text (org-e-odt-convert-special-strings text)))
    4567. 

  4567.   ;; Handle break preservation if required.
    4568. 

  4568.   (when (plist-get info :preserve-breaks)
    4569. 

  4569.     (setq text (replace-regexp-in-string "\\(\\\\\\\\\\)?[ \t]*\n" " \\\\\\\\\n"
    4570. 

  4570. 					 text)))
    4571. 

  4571.   ;; Return value.
    4572. 

  4572.   text)
    4573. 

  4573. 

  4574. 

  4575. ;;;; Property Drawer
    4576. 

  4576. 

  4577. (defun org-e-odt-property-drawer (property-drawer contents info)
    4578. 

  4578.   "Transcode a PROPERTY-DRAWER element from Org to HTML.
    4579. 

  4579. CONTENTS is nil.  INFO is a plist holding contextual
    4580. 

  4580. information."
    4581. 

  4581.   ;; The property drawer isn't exported but we want separating blank
    4582. 

  4582.   ;; lines nonetheless.
    4583. 

  4583.   "")
    4584. 

  4584. 

  4585. 

  4586. ;;;; Quote Block
    4587. 

  4587. 

  4588. (defun org-e-odt-quote-block (quote-block contents info)
    4589. 

  4589.   "Transcode a QUOTE-BLOCK element from Org to HTML.
    4590. 

  4590. CONTENTS holds the contents of the block.  INFO is a plist
    4591. 

  4591. holding contextual information."
    4592. 

  4592.   (org-e-odt--wrap-label
    4593. 

  4593.    quote-block (format "<blockquote>\n%s</blockquote>" contents)))
    4594. 

  4594. 

  4595. 

  4596. ;;;; Quote Section
    4597. 

  4597. 

  4598. (defun org-e-odt-quote-section (quote-section contents info)
    4599. 

  4599.   "Transcode a QUOTE-SECTION element from Org to HTML.
    4600. 

  4600. CONTENTS is nil.  INFO is a plist holding contextual information."
    4601. 

  4601.   (let ((value (org-remove-indentation
    4602. 

  4602. 		(org-element-property :value quote-section))))
    4603. 

  4603.     (when value (format "<pre>\n%s</pre>" value))))
    4604. 

  4604. 

  4605. 

  4606. ;;;; Section
    4607. 

  4607. 

  4608. (defun org-e-odt-section (section contents info) ; FIXME
    4609. 

  4609.   "Transcode a SECTION element from Org to HTML.
    4610. 

  4610. CONTENTS holds the contents of the section.  INFO is a plist
    4611. 

  4611. holding contextual information."
    4612. 

  4612.   contents)
    4613. 

  4613. 

  4614. ;;;; Radio Target
    4615. 

  4615. 

  4616. (defun org-e-odt-radio-target (radio-target text info)
    4617. 

  4617.   "Transcode a RADIO-TARGET object from Org to HTML.
    4618. 

  4618. TEXT is the text of the target.  INFO is a plist holding
    4619. 

  4619. contextual information."
    4620. 

  4620.   (org-e-odt-format-anchor
    4621. 

  4621.    text (org-export-solidify-link-text
    4622. 

  4622. 	 (org-element-property :raw-value radio-target))))
    4623. 

  4623. 

  4624. 

  4625. ;;;; Special Block
    4626. 

  4626. 

  4627. (defun org-e-odt-special-block (special-block contents info)
    4628. 

  4628.   "Transcode a SPECIAL-BLOCK element from Org to HTML.
    4629. 

  4629. CONTENTS holds the contents of the block.  INFO is a plist
    4630. 

  4630. holding contextual information."
    4631. 

  4631.   (let ((type (downcase (org-element-property :type special-block))))
    4632. 

  4632.     (org-e-odt--wrap-label
    4633. 

  4633.      special-block
    4634. 

  4634.      (format "\\begin{%s}\n%s\\end{%s}" type contents type))))
    4635. 

  4635. 

  4636. 

  4637. ;;;; Src Block
    4638. 

  4638. 

  4639. (defun org-e-odt-src-block (src-block contents info)
    4640. 

  4640.   "Transcode a SRC-BLOCK element from Org to HTML.
    4641. 

  4641. CONTENTS holds the contents of the item.  INFO is a plist holding
    4642. 

  4642. contextual information."
    4643. 

  4643.   (let* ((lang (org-element-property :language src-block))
    4644. 

  4644. 	 (code (org-export-handle-code src-block info))
    4645. 

  4645. 	 (caption (org-element-property :caption src-block))
    4646. 

  4646. 	 (label (org-element-property :name src-block)))
    4647. 

  4647.     ;; FIXME: Handle caption
    4648. 

  4648. 

  4649.     ;; caption-str (when caption)
    4650. 

  4650.     ;; (main (org-export-secondary-string (car caption) 'e-odt info))
    4651. 

  4651.     ;; (secondary (org-export-secondary-string (cdr caption) 'e-odt info))
    4652. 

  4652.     ;; (caption-str (org-e-odt--caption/label-string caption label info))
    4653. 

  4653.     (org-e-odt-format-source-code-or-example code lang)))
    4654. 

  4654. 

  4655. 

  4656. ;;;; Statistics Cookie
    4657. 

  4657. 

  4658. (defun org-e-odt-statistics-cookie (statistics-cookie contents info)
    4659. 

  4659.   "Transcode a STATISTICS-COOKIE object from Org to HTML.
    4660. 

  4660. CONTENTS is nil.  INFO is a plist holding contextual information."
    4661. 

  4661.   (let ((cookie-value (org-element-property :value statistics-cookie)))
    4662. 

  4662.     (org-e-odt-format-fontify cookie-value 'code)))
    4663. 

  4663. 

  4664. 

  4665. ;;;; Subscript
    4666. 

  4666. 

  4667. (defun org-e-odt-subscript (subscript contents info)
    4668. 

  4668.   "Transcode a SUBSCRIPT object from Org to HTML.
    4669. 

  4669. CONTENTS is the contents of the object.  INFO is a plist holding
    4670. 

  4670. contextual information."
    4671. 

  4671.   ;; (format (if (= (length contents) 1) "$_%s$" "$_{\\mathrm{%s}}$") contents)
    4672. 

  4672.   (org-e-odt-format-fontify contents 'subscript))
    4673. 

  4673. 

  4674. 

  4675. ;;;; Superscript
    4676. 

  4676. 

  4677. (defun org-e-odt-superscript (superscript contents info)
    4678. 

  4678.   "Transcode a SUPERSCRIPT object from Org to HTML.
    4679. 

  4679. CONTENTS is the contents of the object.  INFO is a plist holding
    4680. 

  4680. contextual information."
    4681. 

  4681.   ;; (format (if (= (length contents) 1) "$^%s$" "$^{\\mathrm{%s}}$") contents)
    4682. 

  4682.   (org-e-odt-format-fontify contents 'superscript))
    4683. 

  4683. 

  4684. 

  4685. ;;;; Table
    4686. 

  4686. 

  4687. ;; (defun org-e-odt-begin-table (caption label attributes)
    4688. 

  4688. ;;   (let* ((html-table-tag (or (plist-get info :html-table-tag) ; FIXME
    4689. 

  4689. ;; 			     org-e-odt-table-tag))
    4690. 

  4690. ;; 	 (html-table-tag
    4691. 

  4691. ;; 	  (org-e-odt-splice-attributes html-table-tag attributes)))
    4692. 

  4692. ;;     (when label
    4693. 

  4693. ;;       (setq html-table-tag
    4694. 

  4694. ;; 	    (org-e-odt-splice-attributes
    4695. 

  4695. ;; 	     html-table-tag
    4696. 

  4696. ;; 	     (format "id=\"%s\"" (org-solidify-link-text label)))))
    4697. 

  4697. ;;     (concat "\n" html-table-tag
    4698. 

  4698. ;; 	    (format "\n<caption>%s</caption>" (or caption "")))))
    4699. 

  4699. 

  4700. ;; (defun org-e-odt-end-table ()
    4701. 

  4701. ;;   "</table>\n")
    4702. 

  4702. 

  4703. ;; (defun org-e-odt-format-table-cell (text r c horiz-span)
    4704. 

  4704. ;;   (let ((cell-style-cookie
    4705. 

  4705. ;; 	 (if org-e-odt-table-align-individual-fields
    4706. 

  4706. ;; 	     (format (if (and (boundp 'org-e-odt-format-table-no-css)
    4707. 

  4707. ;; 			      org-e-odt-format-table-no-css)
    4708. 

  4708. ;; 			 " align=\"%s\"" " class=\"%s\"")
    4709. 

  4709. ;; 		     (or (aref (plist-get table-info :alignment) c) "left")) ""))) ;; FIXME
    4710. 

  4710. ;;     (cond
    4711. 

  4711. ;;      (org-e-odt-table-cur-rowgrp-is-hdr
    4712. 

  4712. ;;       (concat
    4713. 

  4713. ;;        (format (car org-export-table-header-tags) "col" cell-style-cookie)
    4714. 

  4714. ;;        text (cdr org-export-table-header-tags)))
    4715. 

  4715. ;;      ((and (= c 0) org-e-odt-table-use-header-tags-for-first-column)
    4716. 

  4716. ;;       (concat
    4717. 

  4717. ;;        (format (car org-export-table-header-tags) "row" cell-style-cookie)
    4718. 

  4718. ;;        text (cdr org-export-table-header-tags)))
    4719. 

  4719. ;;      (t
    4720. 

  4720. ;;       (concat
    4721. 

  4721. ;;        (format (car org-export-table-data-tags) cell-style-cookie)
    4722. 

  4722. ;;        text (cdr org-export-table-data-tags))))))
    4723. 

  4723. 

  4724. (defun org-e-odt-table-row (fields &optional text-for-empty-fields)
    4725. 

  4725.   (incf org-e-odt-table-rownum)
    4726. 

  4726.   (let ((i -1))
    4727. 

  4727.     (org-e-odt-format-table-row
    4728. 

  4728.      (mapconcat
    4729. 

  4729.       (lambda (x)
    4730. 

  4730. 	(when (and (string= x "") text-for-empty-fields)
    4731. 

  4731. 	  (setq x text-for-empty-fields))
    4732. 

  4732. 	(incf i)
    4733. 

  4733. 	(let (horiz-span)
    4734. 

  4734. 	  (org-e-odt-format-table-cell
    4735. 

  4735. 	   x org-e-odt-table-rownum i (or horiz-span 0))))
    4736. 

  4736.       fields "\n"))))
    4737. 

  4737. 

  4738. ;; (defun org-e-odt-end-table-rowgroup ()
    4739. 

  4739. ;;   (when org-e-odt-table-rowgrp-open
    4740. 

  4740. ;;     (setq org-e-odt-table-rowgrp-open nil)
    4741. 

  4741. ;;     (if org-e-odt-table-cur-rowgrp-is-hdr "</thead>" "</tbody>")))
    4742. 

  4742. 

  4743. ;; (defun org-e-odt-begin-table-rowgroup (&optional is-header-row)
    4744. 

  4744. ;;   (concat
    4745. 

  4745. ;;    (when org-e-odt-table-rowgrp-open
    4746. 

  4746. ;;      (org-e-odt-end-table-rowgroup))
    4747. 

  4747. ;;    (progn
    4748. 

  4748. ;;      (setq org-e-odt-table-rowgrp-open t)
    4749. 

  4749. ;;      (setq org-e-odt-table-cur-rowgrp-is-hdr is-header-row)
    4750. 

  4750. ;;      (if is-header-row "<thead>" "<tbody>"))))
    4751. 

  4751. 

  4752. (defun org-e-odt-table-preamble ()
    4753. 

  4753.   (let ((colgroup-vector (plist-get table-info :column-groups)) ;; FIXME
    4754. 

  4754. 	c gr colgropen preamble)
    4755. 

  4755.     (unless (aref colgroup-vector 0)
    4756. 

  4756.       (setf (aref colgroup-vector 0) 'start))
    4757. 

  4757.     (dotimes (c columns-number preamble)
    4758. 

  4758.       (setq gr (aref colgroup-vector c))
    4759. 

  4759.       (setq preamble
    4760. 

  4760. 	    (concat
    4761. 

  4761. 	     preamble
    4762. 

  4762. 	     (when (memq gr '(start start-end))
    4763. 

  4763. 	       (prog1 (if colgropen "</colgroup>\n<colgroup>" "\n<colgroup>")
    4764. 

  4764. 		 (setq colgropen t)))
    4765. 

  4765. 	     (let* ((colalign-vector (plist-get table-info :alignment)) ;; FIXME
    4766. 

  4766. 		    (align (cdr (assoc (aref colalign-vector c)
    4767. 

  4767. 				       '(("l" . "left")
    4768. 

  4768. 					 ("r" . "right")
    4769. 

  4769. 					 ("c" . "center")))))
    4770. 

  4770. 		    (alignspec (if (and (boundp 'org-e-odt-format-table-no-css)
    4771. 

  4771. 					org-e-odt-format-table-no-css)
    4772. 

  4772. 				   " align=\"%s\"" " class=\"%s\""))
    4773. 

  4773. 		    (extra (format alignspec  align)))
    4774. 

  4774. 	       (format "<col%s />" extra))
    4775. 

  4775. 	     (when (memq gr '(end start-end))
    4776. 

  4776. 	       (setq colgropen nil)
    4777. 

  4777. 	       "</colgroup>"))))
    4778. 

  4778.     (concat preamble (if colgropen "</colgroup>"))))
    4779. 

  4779. 

  4780. (defun org-e-odt-list-table (lines caption label attributes)
    4781. 

  4781.   (setq lines (org-e-odt-org-table-to-list-table lines))
    4782. 

  4782.   (let* ((splice nil) head
    4783. 

  4783. 	 (org-e-odt-table-rownum -1)
    4784. 

  4784. 	 i (cnt 0)
    4785. 

  4785. 	 fields line
    4786. 

  4786. 	 org-e-odt-table-cur-rowgrp-is-hdr
    4787. 

  4787. 	 org-e-odt-table-rowgrp-open
    4788. 

  4788. 	 n
    4789. 

  4789. 	 (org-lparse-table-style 'org-table)
    4790. 

  4790. 	 org-lparse-table-is-styled)
    4791. 

  4791.     (cond
    4792. 

  4792.      (splice
    4793. 

  4793.       (setq org-lparse-table-is-styled nil)
    4794. 

  4794.       (mapconcat 'org-e-odt-table-row lines "\n"))
    4795. 

  4795.      (t
    4796. 

  4796.       (setq org-lparse-table-is-styled t)
    4797. 

  4797. 

  4798.       (concat
    4799. 

  4799.        (org-e-odt-begin-table caption label attributes)
    4800. 

  4800.        ;; FIXME (org-e-odt-table-preamble)
    4801. 

  4801.        (org-e-odt-begin-table-rowgroup head)
    4802. 

  4802. 

  4803.        (mapconcat
    4804. 

  4804. 	(lambda (line)
    4805. 

  4805. 	  (cond
    4806. 

  4806. 	   ((equal line 'hline) (org-e-odt-begin-table-rowgroup))
    4807. 

  4807. 	   (t (org-e-odt-table-row line))))
    4808. 

  4808. 	lines "\n")
    4809. 

  4809. 

  4810.        (org-e-odt-end-table-rowgroup)
    4811. 

  4811.        (org-e-odt-end-table))))))
    4812. 

  4812. 

  4813. (defun org-e-odt-transcode-table-row (row)
    4814. 

  4814.   (if (string-match org-table-hline-regexp row) 'hline
    4815. 

  4815.     (mapcar
    4816. 

  4816.      (lambda (cell)
    4817. 

  4817.        (org-export-secondary-string
    4818. 

  4818. 	(let ((cell (org-element-parse-secondary-string
    4819. 

  4819. 		     cell
    4820. 

  4820. 		     (cdr (assq 'table org-element-string-restrictions)))))
    4821. 

  4821. 	  cell)
    4822. 

  4822. 	'e-odt info))
    4823. 

  4823.      (org-split-string row "[ \t]*|[ \t]*"))))
    4824. 

  4824. 

  4825. (defun org-e-odt-org-table-to-list-table (lines &optional splice)
    4826. 

  4826.   "Convert org-table to list-table.
    4827. 

  4827. LINES is a list of the form (ROW1 ROW2 ROW3 ...) where each
    4828. 

  4828. element is a `string' representing a single row of org-table.
    4829. 

  4829. Thus each ROW has vertical separators \"|\" separating the table
    4830. 

  4830. fields.  A ROW could also be a row-group separator of the form
    4831. 

  4831. \"|---...|\".  Return a list of the form (ROW1 ROW2 ROW3
    4832. 

  4832. ...). ROW could either be symbol `'hline' or a list of the
    4833. 

  4833. form (FIELD1 FIELD2 FIELD3 ...) as appropriate."
    4834. 

  4834.   (let (line lines-1)
    4835. 

  4835.     (cond
    4836. 

  4836.      (splice
    4837. 

  4837.       (while (setq line (pop lines))
    4838. 

  4838. 	(unless (string-match "^[ \t]*|-" line)
    4839. 

  4839. 	  (push (org-e-odt-transcode-table-row line) lines-1))))
    4840. 

  4840.      (t (while (setq line (pop lines))
    4841. 

  4841. 	  (cond
    4842. 

  4842. 	   ((string-match "^[ \t]*|-" line)
    4843. 

  4843. 	    (when lines (push 'hline lines-1)))
    4844. 

  4844. 	   (t (push (org-e-odt-transcode-table-row line) lines-1))))))
    4845. 

  4845.     (nreverse lines-1)))
    4846. 

  4846. 

  4847. (defun org-e-odt-table-table (raw-table)
    4848. 

  4848.   (require 'table)
    4849. 

  4849.   (with-current-buffer (get-buffer-create "*org-export-table*")
    4850. 

  4850.     (erase-buffer))
    4851. 

  4851.   (let ((output (with-temp-buffer
    4852. 

  4852. 		  (insert raw-table)
    4853. 

  4853. 		  (goto-char 1)
    4854. 

  4854. 		  (re-search-forward "^[ \t]*|[^|]" nil t)
    4855. 

  4855. 		  (table-generate-source 'html "*org-export-table*")
    4856. 

  4856. 		  (with-current-buffer "*org-export-table*"
    4857. 

  4857. 		    (org-trim (buffer-string))))))
    4858. 

  4858.     (kill-buffer (get-buffer "*org-export-table*"))
    4859. 

  4859.     output))
    4860. 

  4860. 

  4861. (defun org-e-odt-table (table contents info)
    4862. 

  4862.   "Transcode a TABLE element from Org to HTML.
    4863. 

  4863. CONTENTS is nil.  INFO is a plist holding contextual information."
    4864. 

  4864.   (let* ((label (org-element-property :name table))
    4865. 

  4865. 	 (caption (org-e-odt--caption/label-string
    4866. 

  4866. 		   (org-element-property :caption table) label info))
    4867. 

  4867. 	 (attr (mapconcat #'identity
    4868. 

  4868. 			  (org-element-property :attr_odt table)
    4869. 

  4869. 			  " "))
    4870. 

  4870. 	 (raw-table (org-element-property :raw-table table))
    4871. 

  4871. 	 (table-type (org-element-property :type table)))
    4872. 

  4872.     (case table-type
    4873. 

  4873.       (table.el
    4874. 

  4874.        ;; (org-e-odt-table-table raw-table)
    4875. 

  4875.        )
    4876. 

  4876.       (t
    4877. 

  4877.        (let* ((table-info (org-export-table-format-info raw-table))
    4878. 

  4878. 	      (columns-number (length (plist-get table-info :alignment)))
    4879. 

  4879. 	      (lines (org-split-string
    4880. 

  4880. 		      (org-export-clean-table
    4881. 

  4881. 		       raw-table (plist-get table-info :special-column-p)) "\n")))
    4882. 

  4882. 	 (org-e-odt-list-table lines caption label attr))))))
    4883. 

  4883. 

  4884. 

  4885. ;;;; Target
    4886. 

  4886. 

  4887. (defun org-e-odt-target (target text info)
    4888. 

  4888.   "Transcode a TARGET object from Org to HTML.
    4889. 

  4889. TEXT is the text of the target.  INFO is a plist holding
    4890. 

  4890. contextual information."
    4891. 

  4891.   (org-e-odt-format-anchor
    4892. 

  4892.    text (org-export-solidify-link-text
    4893. 

  4893. 	 (org-element-property :raw-value target))))
    4894. 

  4894. 

  4895. 

  4896. ;;;; Time-stamp
    4897. 

  4897. 

  4898. (defun org-e-odt-time-stamp (time-stamp contents info)
    4899. 

  4899.   "Transcode a TIME-STAMP object from Org to HTML.
    4900. 

  4900. CONTENTS is nil.  INFO is a plist holding contextual
    4901. 

  4901. information."
    4902. 

  4902.   ;; (let ((value (org-element-property :value time-stamp))
    4903. 

  4903.   ;; 	(type (org-element-property :type time-stamp))
    4904. 

  4904.   ;; 	(appt-type (org-element-property :appt-type time-stamp)))
    4905. 

  4905.   ;;   (concat (cond ((eq appt-type 'scheduled)
    4906. 

  4906.   ;; 		   (format "\\textbf{\\textsc{%s}} " org-scheduled-string))
    4907. 

  4907.   ;; 		  ((eq appt-type 'deadline)
    4908. 

  4908.   ;; 		   (format "\\textbf{\\textsc{%s}} " org-deadline-string))
    4909. 

  4909.   ;; 		  ((eq appt-type 'closed)
    4910. 

  4910.   ;; 		   (format "\\textbf{\\textsc{%s}} " org-closed-string)))
    4911. 

  4911.   ;; 	    (cond ((memq type '(active active-range))
    4912. 

  4912.   ;; 		   (format org-e-odt-active-timestamp-format value))
    4913. 

  4913.   ;; 		  ((memq type '(inactive inactive-range))
    4914. 

  4914.   ;; 		   (format org-e-odt-inactive-timestamp-format value))
    4915. 

  4915.   ;; 		  (t
    4916. 

  4916.   ;; 		   (format org-e-odt-diary-timestamp-format value)))))
    4917. 

  4917.   (let ((value (org-element-property :value time-stamp))
    4918. 

  4918.         (type (org-element-property :type time-stamp))
    4919. 

  4919.         (appt-type (org-element-property :appt-type time-stamp)))
    4920. 

  4920.     (setq value (org-export-secondary-string value 'e-odt info))
    4921. 

  4921.     (org-e-odt-format-fontify
    4922. 

  4922.      (concat
    4923. 

  4923.       (org-e-odt-format-fontify
    4924. 

  4924.        (cond ((eq appt-type 'scheduled) org-scheduled-string)
    4925. 

  4925. 	     ((eq appt-type 'deadline) org-deadline-string)
    4926. 

  4926. 	     ((eq appt-type 'closed) org-closed-string)) "timestamp-kwd")
    4927. 

  4927.       ;; FIXME: (org-translate-time value)
    4928. 

  4928.       (org-e-odt-format-fontify value "timestamp"))
    4929. 

  4929.      "timestamp-wrapper")))
    4930. 

  4930. 

  4931. 

  4932. ;;;; Verbatim
    4933. 

  4933. 

  4934. (defun org-e-odt-verbatim (verbatim contents info)
    4935. 

  4935.   "Transcode a VERBATIM object from Org to HTML.
    4936. 

  4936. CONTENTS is nil.  INFO is a plist used as a communication
    4937. 

  4937. channel."
    4938. 

  4938.   (org-e-odt-emphasis
    4939. 

  4939.    verbatim (org-element-property :value verbatim) info))
    4940. 

  4940. 

  4941. 

  4942. ;;;; Verse Block
    4943. 

  4943. 

  4944. (defun org-e-odt-verse-block (verse-block contents info)
    4945. 

  4945.   "Transcode a VERSE-BLOCK element from Org to HTML.
    4946. 

  4946. CONTENTS is nil.  INFO is a plist holding contextual information."
    4947. 

  4947.   ;; Replace each newline character with line break.  Also replace
    4948. 

  4948.   ;; each blank line with a line break.
    4949. 

  4949.   (setq contents (replace-regexp-in-string
    4950. 

  4950. 		  "^ *\\\\\\\\$" "<br/>\n"
    4951. 

  4951. 		  (replace-regexp-in-string
    4952. 

  4952. 		   "\\(\\\\\\\\\\)?[ \t]*\n" " <br/>\n"
    4953. 

  4953. 		   (org-remove-indentation
    4954. 

  4954. 		    (org-export-secondary-string
    4955. 

  4955. 		     (org-element-property :value verse-block)
    4956. 

  4956. 		     'e-odt info)))))
    4957. 

  4957. 

  4958.   ;; Replace each white space at beginning of a line with a
    4959. 

  4959.   ;; non-breaking space.
    4960. 

  4960.   (while (string-match "^[ \t]+" contents)
    4961. 

  4961.     (let ((new-str (org-e-odt-format-spaces
    4962. 

  4962. 		    (length (match-string 0 contents)))))
    4963. 

  4963.       (setq contents (replace-match new-str nil t contents))))
    4964. 

  4964. 

  4965.   (org-e-odt--wrap-label
    4966. 

  4966.    verse-block (format "<p class=\"verse\">\n%s</p>" contents)))
    4967. 

  4967. 

  4968. 

  4969. 
    4970. 

  4970. 

  4971. ;;; Filter Functions
    4972. 

  4972. 

  4973. ;;;; Filter Settings
    4974. 

  4974. 

  4975. (defconst org-e-odt-filters-alist
    4976. 

  4976.   '((:filter-final-output . org-e-odt-final-function))
    4977. 

  4977.   "Alist between filters keywords and back-end specific filters.
    4978. 

  4978. See `org-export-filters-alist' for more information.")
    4979. 

  4979. 

  4980. 

  4981. ;;;; Filters
    4982. 

  4982. 

  4983. (defun org-e-odt-final-function (contents backend info)
    4984. 

  4984.   (if (not org-export-e-odt-prettify-xml) contents
    4985. 

  4985.     (with-temp-buffer
    4986. 

  4986.       (nxml-mode)
    4987. 

  4987.       (insert contents)
    4988. 

  4988.       (indent-region (point-min) (point-max))
    4989. 

  4989.       (buffer-substring-no-properties (point-min) (point-max)))))
    4990. 

  4990. 

  4991. 

  4992. ;;; Interactive functions
    4993. 

  4993. 

  4994. (defun org-e-odt-export-to-odt
    4995. 

  4995.   (&optional subtreep visible-only body-only ext-plist pub-dir)
    4996. 

  4996.   "Export current buffer to a HTML file.
    4997. 

  4997. 

  4998. If narrowing is active in the current buffer, only export its
    4999. 

  4999. narrowed part.
    5000. 

  5000. 

  5001. If a region is active, export that region.
    5002. 

  5002. 

  5003. When optional argument SUBTREEP is non-nil, export the sub-tree
    5004. 

  5004. at point, extracting information from the headline properties
    5005. 

  5005. first.
    5006. 

  5006. 

  5007. When optional argument VISIBLE-ONLY is non-nil, don't export
    5008. 

  5008. contents of hidden elements.
    5009. 

  5009. 

  5010. When optional argument BODY-ONLY is non-nil, only write code
    5011. 

  5011. between \"\\begin{document}\" and \"\\end{document}\".
    5012. 

  5012. 

  5013. EXT-PLIST, when provided, is a property list with external
    5014. 

  5014. parameters overriding Org default settings, but still inferior to
    5015. 

  5015. file-local settings.
    5016. 

  5016. 

  5017. When optional argument PUB-DIR is set, use it as the publishing
    5018. 

  5018. directory.
    5019. 

  5019. 

  5020. Return output file's name."
    5021. 

  5021.   (interactive)
    5022. 

  5022. 

  5023.   ;; FIXME
    5024. 

  5024.   (with-current-buffer (get-buffer-create "*debug*")
    5025. 

  5025.     (erase-buffer))
    5026. 

  5026. 

  5027.   ;; (let* ((outfile (org-export-output-file-name ".html" subtreep pub-dir))
    5028. 

  5028.   ;; 	 (outfile "content.xml"))
    5029. 

  5029.   ;;   (org-export-to-file
    5030. 

  5030.   ;;    'e-odt outfile subtreep visible-only body-only ext-plist))
    5031. 

  5031. 

  5032.   (let* ((outbuf (org-e-odt-init-outfile))
    5033. 

  5033. 	(target (org-export-output-file-name ".odt" subtreep pub-dir))
    5034. 

  5034. 	(outdir (file-name-directory (buffer-file-name outbuf)))
    5035. 

  5035. 	(default-directory outdir))
    5036. 

  5036. 

  5037.     ;; FIXME: for copying embedded images
    5038. 

  5038.     (setq org-current-export-file
    5039. 

  5039. 	  (file-name-directory
    5040. 

  5040. 	   (org-export-output-file-name ".odt" subtreep nil)))
    5041. 

  5041. 

  5042.     (org-export-to-buffer
    5043. 

  5043.      'e-odt outbuf
    5044. 

  5044.      (memq 'subtree optns) (memq 'visible optns) (memq 'body optns))
    5045. 

  5045. 

  5046.     (setq org-lparse-opt-plist nil) 	; FIXME
    5047. 

  5047.     (org-e-odt-save-as-outfile target ;; info
    5048. 

  5048. 			       nil
    5049. 

  5049. 			       )
    5050. 

  5050. 

  5051.     ;; return outfile
    5052. 

  5052.     target))
    5053. 

  5053. 

  5054. 

  5055. 

  5056. 
    5057. 

  5057. ;;; FIXMES, TODOS, FOR REVIEW etc
    5058. 

  5058. 

  5059. ;;;; org-format-table-html
    5060. 

  5060. ;;;; org-format-org-table-html
    5061. 

  5061. ;;;; org-format-table-table-html
    5062. 

  5062. ;;;; org-table-number-fraction
    5063. 

  5063. ;;;; org-table-number-regexp
    5064. 

  5064. ;;;; org-e-odt-table-caption-above
    5065. 

  5065. 

  5066. ;;;; org-whitespace
    5067. 

  5067. ;;;; "<span style=\"visibility:hidden;\">%s</span>"
    5068. 

  5068. ;;;; Remove display properties
    5069. 

  5069. ;;;; org-e-odt-final-hook
    5070. 

  5070. 

  5071. ;;;; org-e-odt-with-timestamp
    5072. 

  5072. ;;;; org-e-odt-html-helper-timestamp
    5073. 

  5073. 

  5074. ;;;; org-export-as-html-and-open
    5075. 

  5075. ;;;; org-export-as-html-batch
    5076. 

  5076. ;;;; org-export-as-html-to-buffer
    5077. 

  5077. ;;;; org-replace-region-by-html
    5078. 

  5078. ;;;; org-export-region-as-html
    5079. 

  5079. ;;;; org-export-as-html
    5080. 

  5080. 

  5081. ;;;; (org-export-directory :html opt-plist)
    5082. 

  5082. ;;;; (plist-get opt-plist :html-extension)
    5083. 

  5083. ;;;; org-e-odt-toplevel-hlevel
    5084. 

  5084. ;;;; org-e-odt-special-string-regexps
    5085. 

  5085. ;;;; org-e-odt-coding-system
    5086. 

  5086. ;;;; org-e-odt-coding-system
    5087. 

  5087. ;;;; org-e-odt-inline-images
    5088. 

  5088. ;;;; org-e-odt-inline-image-extensions
    5089. 

  5089. ;;;; org-e-odt-protect-char-alist
    5090. 

  5090. ;;;; org-e-odt-table-use-header-tags-for-first-column
    5091. 

  5091. ;;;; org-e-odt-todo-kwd-class-prefix
    5092. 

  5092. ;;;; org-e-odt-tag-class-prefix
    5093. 

  5093. ;;;; org-e-odt-footnote-separator
    5094. 

  5094. 

  5095. 

  5096. ;;; Library Initializations
    5097. 

  5097. 

  5098. (mapc
    5099. 

  5099.  (lambda (desc)
    5100. 

  5100.    ;; Let Org open all OpenDocument files using system-registered app
    5101. 

  5101.    (add-to-list 'org-file-apps
    5102. 

  5102. 		(cons (concat  "\\." (car desc) "\\'") 'system))
    5103. 

  5103.    ;; Let Emacs open all OpenDocument files in archive mode
    5104. 

  5104.    (add-to-list 'auto-mode-alist
    5105. 

  5105. 		(cons (concat  "\\." (car desc) "\\'") 'archive-mode)))
    5106. 

  5106.  org-e-odt-file-extensions)
    5107. 

  5107. 

  5108. ;; register the odt exporter with the pre-processor
    5109. 

  5109. (add-to-list 'org-export-backends 'odt)
    5110. 

  5110. 

  5111. ;; register the odt exporter with org-lparse library
    5112. 

  5112. (org-lparse-register-backend 'odt)
    5113. 

  5113. 

  5114. (eval-after-load 'org-exp
    5115. 

  5115.   '(add-to-list 'org-export-inbuffer-options-extra
    5116. 

  5116. 		'("ODT_STYLES_FILE" :odt-styles-file)))
    5117. 

  5117. 

  5118. (provide 'org-e-odt)
    5119. 

  5119. 

  5120. ;;; org-e-odt.el ends here
    5121.