123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082508350845085508650875088508950905091509250935094509550965097509850995100510151025103510451055106510751085109511051115112511351145115511651175118511951205121512251235124512551265127512851295130513151325133513451355136513751385139514051415142514351445145514651475148514951505151515251535154515551565157515851595160516151625163516451655166516751685169517051715172517351745175517651775178517951805181518251835184518551865187518851895190519151925193519451955196519751985199520052015202520352045205520652075208520952105211521252135214521552165217521852195220522152225223522452255226522752285229523052315232523352345235523652375238523952405241524252435244524552465247524852495250525152525253525452555256525752585259526052615262526352645265526652675268526952705271527252735274527552765277527852795280528152825283528452855286528752885289529052915292529352945295529652975298529953005301530253035304530553065307530853095310531153125313531453155316531753185319532053215322532353245325532653275328532953305331533253335334533553365337533853395340534153425343534453455346534753485349535053515352535353545355535653575358535953605361536253635364536553665367536853695370537153725373537453755376537753785379538053815382538353845385538653875388538953905391539253935394539553965397539853995400540154025403540454055406540754085409541054115412541354145415541654175418541954205421542254235424542554265427542854295430543154325433543454355436543754385439544054415442544354445445544654475448544954505451545254535454545554565457545854595460546154625463546454655466546754685469547054715472547354745475547654775478547954805481548254835484548554865487548854895490549154925493549454955496549754985499550055015502550355045505550655075508550955105511551255135514551555165517551855195520552155225523552455255526552755285529553055315532553355345535553655375538553955405541554255435544554555465547554855495550555155525553555455555556555755585559556055615562556355645565556655675568556955705571557255735574557555765577557855795580558155825583558455855586558755885589559055915592559355945595559655975598559956005601560256035604560556065607560856095610561156125613561456155616561756185619562056215622562356245625562656275628562956305631563256335634563556365637563856395640564156425643564456455646564756485649565056515652565356545655565656575658565956605661566256635664566556665667566856695670567156725673567456755676567756785679568056815682568356845685568656875688568956905691569256935694569556965697569856995700570157025703570457055706570757085709571057115712571357145715571657175718571957205721572257235724572557265727572857295730573157325733573457355736573757385739574057415742574357445745574657475748574957505751575257535754575557565757575857595760576157625763576457655766576757685769577057715772577357745775577657775778577957805781578257835784578557865787578857895790579157925793579457955796579757985799580058015802580358045805580658075808580958105811581258135814581558165817581858195820582158225823582458255826582758285829583058315832583358345835583658375838583958405841584258435844584558465847584858495850585158525853585458555856585758585859586058615862586358645865586658675868586958705871587258735874587558765877587858795880588158825883588458855886588758885889589058915892589358945895589658975898589959005901590259035904590559065907590859095910591159125913591459155916591759185919592059215922592359245925592659275928592959305931593259335934593559365937593859395940594159425943594459455946594759485949595059515952595359545955595659575958595959605961596259635964596559665967596859695970597159725973597459755976597759785979598059815982598359845985598659875988598959905991599259935994599559965997599859996000600160026003600460056006600760086009601060116012601360146015601660176018601960206021602260236024602560266027602860296030603160326033603460356036603760386039604060416042604360446045604660476048604960506051605260536054605560566057605860596060606160626063606460656066606760686069607060716072607360746075607660776078607960806081608260836084608560866087608860896090609160926093609460956096609760986099610061016102610361046105610661076108610961106111611261136114611561166117611861196120612161226123612461256126612761286129613061316132613361346135613661376138613961406141614261436144614561466147614861496150615161526153615461556156615761586159616061616162616361646165616661676168616961706171617261736174617561766177617861796180618161826183618461856186618761886189619061916192619361946195619661976198619962006201620262036204620562066207620862096210621162126213621462156216621762186219622062216222622362246225622662276228622962306231623262336234623562366237623862396240624162426243624462456246624762486249625062516252625362546255625662576258625962606261626262636264626562666267626862696270627162726273627462756276627762786279628062816282628362846285628662876288628962906291629262936294629562966297629862996300630163026303630463056306630763086309631063116312631363146315631663176318631963206321632263236324632563266327632863296330633163326333633463356336633763386339634063416342634363446345634663476348634963506351635263536354635563566357635863596360636163626363636463656366636763686369637063716372637363746375637663776378637963806381638263836384638563866387638863896390639163926393639463956396639763986399640064016402640364046405640664076408640964106411641264136414641564166417641864196420642164226423642464256426642764286429643064316432643364346435643664376438643964406441644264436444644564466447644864496450645164526453645464556456645764586459646064616462646364646465646664676468646964706471647264736474647564766477647864796480648164826483648464856486648764886489649064916492649364946495649664976498649965006501650265036504650565066507650865096510651165126513651465156516651765186519652065216522652365246525652665276528652965306531653265336534653565366537653865396540654165426543654465456546654765486549655065516552655365546555655665576558655965606561656265636564656565666567656865696570657165726573657465756576657765786579658065816582658365846585658665876588658965906591659265936594659565966597659865996600660166026603660466056606660766086609661066116612661366146615661666176618661966206621662266236624662566266627662866296630663166326633663466356636663766386639664066416642664366446645664666476648664966506651665266536654665566566657665866596660666166626663666466656666666766686669667066716672667366746675667666776678667966806681668266836684668566866687668866896690669166926693669466956696669766986699670067016702670367046705670667076708670967106711671267136714671567166717671867196720672167226723672467256726672767286729673067316732673367346735673667376738673967406741674267436744674567466747674867496750675167526753675467556756675767586759676067616762676367646765676667676768676967706771677267736774677567766777677867796780678167826783678467856786678767886789679067916792679367946795679667976798679968006801680268036804680568066807680868096810681168126813681468156816681768186819682068216822682368246825682668276828682968306831683268336834683568366837683868396840684168426843684468456846684768486849685068516852685368546855685668576858685968606861686268636864686568666867686868696870687168726873687468756876687768786879688068816882688368846885688668876888688968906891689268936894689568966897689868996900690169026903690469056906690769086909691069116912691369146915691669176918691969206921692269236924692569266927692869296930693169326933693469356936693769386939694069416942694369446945694669476948694969506951695269536954695569566957695869596960696169626963696469656966696769686969697069716972697369746975697669776978697969806981698269836984698569866987698869896990699169926993699469956996699769986999700070017002700370047005700670077008700970107011701270137014701570167017701870197020702170227023702470257026702770287029703070317032703370347035703670377038703970407041704270437044704570467047704870497050705170527053705470557056705770587059706070617062706370647065706670677068706970707071707270737074707570767077707870797080708170827083708470857086708770887089709070917092709370947095709670977098709971007101710271037104710571067107710871097110711171127113711471157116711771187119712071217122712371247125712671277128712971307131713271337134713571367137713871397140714171427143714471457146714771487149715071517152715371547155715671577158715971607161716271637164716571667167716871697170717171727173717471757176717771787179718071817182718371847185718671877188718971907191719271937194719571967197719871997200720172027203720472057206720772087209721072117212721372147215721672177218721972207221722272237224722572267227722872297230723172327233723472357236723772387239724072417242724372447245724672477248724972507251725272537254725572567257725872597260726172627263726472657266726772687269727072717272727372747275727672777278727972807281728272837284728572867287728872897290729172927293729472957296729772987299730073017302730373047305730673077308730973107311731273137314731573167317731873197320732173227323732473257326732773287329733073317332733373347335733673377338733973407341734273437344734573467347734873497350735173527353735473557356735773587359736073617362736373647365736673677368736973707371737273737374737573767377737873797380738173827383738473857386738773887389739073917392739373947395739673977398739974007401740274037404740574067407740874097410741174127413741474157416741774187419742074217422742374247425742674277428742974307431743274337434743574367437743874397440744174427443744474457446744774487449745074517452745374547455745674577458745974607461746274637464746574667467746874697470747174727473747474757476747774787479748074817482748374847485748674877488748974907491749274937494749574967497749874997500750175027503750475057506750775087509751075117512751375147515751675177518751975207521752275237524752575267527752875297530753175327533753475357536753775387539754075417542754375447545754675477548754975507551755275537554755575567557755875597560756175627563756475657566756775687569757075717572757375747575757675777578757975807581758275837584758575867587758875897590759175927593759475957596759775987599760076017602760376047605760676077608760976107611761276137614761576167617761876197620762176227623762476257626762776287629763076317632763376347635763676377638763976407641764276437644764576467647764876497650765176527653765476557656765776587659766076617662766376647665766676677668766976707671767276737674767576767677767876797680768176827683768476857686768776887689769076917692769376947695769676977698769977007701770277037704770577067707770877097710771177127713771477157716771777187719772077217722772377247725772677277728772977307731773277337734773577367737773877397740774177427743774477457746774777487749775077517752775377547755775677577758775977607761776277637764776577667767776877697770777177727773777477757776777777787779778077817782778377847785778677877788778977907791779277937794779577967797779877997800780178027803780478057806780778087809781078117812781378147815781678177818781978207821782278237824782578267827782878297830783178327833783478357836783778387839784078417842784378447845784678477848784978507851785278537854785578567857785878597860786178627863786478657866786778687869787078717872787378747875787678777878787978807881788278837884788578867887788878897890789178927893789478957896789778987899790079017902790379047905790679077908790979107911791279137914791579167917791879197920792179227923792479257926792779287929793079317932793379347935793679377938793979407941794279437944794579467947794879497950795179527953795479557956795779587959796079617962796379647965796679677968796979707971797279737974797579767977797879797980798179827983798479857986798779887989799079917992799379947995799679977998799980008001800280038004800580068007800880098010801180128013801480158016801780188019802080218022802380248025802680278028802980308031803280338034803580368037803880398040804180428043804480458046804780488049805080518052805380548055805680578058805980608061806280638064806580668067806880698070807180728073807480758076807780788079808080818082808380848085808680878088808980908091809280938094809580968097809880998100810181028103810481058106810781088109811081118112811381148115811681178118811981208121812281238124812581268127812881298130813181328133813481358136813781388139814081418142814381448145814681478148814981508151815281538154815581568157815881598160816181628163816481658166816781688169817081718172817381748175817681778178817981808181818281838184818581868187818881898190819181928193819481958196819781988199820082018202820382048205820682078208820982108211821282138214821582168217821882198220822182228223822482258226822782288229823082318232823382348235823682378238823982408241824282438244824582468247824882498250825182528253825482558256825782588259826082618262826382648265826682678268826982708271827282738274827582768277827882798280828182828283828482858286828782888289829082918292829382948295829682978298829983008301830283038304830583068307830883098310831183128313831483158316831783188319832083218322832383248325832683278328832983308331833283338334833583368337833883398340834183428343834483458346834783488349835083518352835383548355835683578358835983608361836283638364836583668367836883698370837183728373837483758376837783788379838083818382838383848385838683878388838983908391839283938394839583968397839883998400840184028403840484058406840784088409841084118412841384148415841684178418841984208421842284238424842584268427842884298430843184328433843484358436843784388439844084418442844384448445844684478448844984508451845284538454845584568457845884598460846184628463846484658466846784688469847084718472847384748475847684778478847984808481848284838484848584868487848884898490849184928493849484958496849784988499850085018502850385048505850685078508850985108511851285138514851585168517851885198520852185228523852485258526852785288529853085318532853385348535853685378538853985408541854285438544854585468547854885498550855185528553855485558556855785588559856085618562856385648565856685678568856985708571857285738574857585768577857885798580858185828583858485858586858785888589859085918592859385948595859685978598859986008601860286038604860586068607860886098610861186128613861486158616861786188619862086218622862386248625862686278628862986308631863286338634863586368637863886398640864186428643864486458646864786488649865086518652865386548655865686578658865986608661866286638664866586668667866886698670867186728673867486758676867786788679868086818682868386848685868686878688868986908691869286938694869586968697869886998700870187028703870487058706870787088709871087118712871387148715871687178718871987208721872287238724872587268727872887298730873187328733873487358736873787388739874087418742874387448745874687478748874987508751875287538754875587568757875887598760876187628763876487658766876787688769877087718772877387748775877687778778877987808781878287838784878587868787878887898790879187928793879487958796879787988799880088018802880388048805880688078808880988108811881288138814881588168817881888198820882188228823882488258826882788288829883088318832883388348835883688378838883988408841884288438844884588468847884888498850885188528853885488558856885788588859886088618862886388648865886688678868886988708871887288738874887588768877887888798880888188828883888488858886888788888889889088918892889388948895889688978898889989008901890289038904890589068907890889098910891189128913891489158916891789188919892089218922892389248925892689278928892989308931893289338934893589368937893889398940894189428943894489458946894789488949895089518952895389548955895689578958895989608961896289638964896589668967896889698970897189728973897489758976897789788979898089818982898389848985898689878988898989908991899289938994899589968997899889999000900190029003900490059006900790089009901090119012901390149015901690179018901990209021902290239024902590269027902890299030903190329033903490359036903790389039904090419042904390449045904690479048904990509051905290539054905590569057905890599060906190629063906490659066906790689069907090719072907390749075907690779078907990809081908290839084908590869087908890899090909190929093909490959096909790989099910091019102910391049105910691079108910991109111911291139114911591169117911891199120912191229123912491259126912791289129913091319132913391349135913691379138913991409141914291439144914591469147914891499150915191529153915491559156915791589159916091619162916391649165916691679168916991709171917291739174917591769177917891799180918191829183918491859186918791889189919091919192919391949195919691979198919992009201920292039204920592069207920892099210921192129213921492159216921792189219922092219222922392249225922692279228922992309231923292339234923592369237923892399240924192429243924492459246924792489249925092519252925392549255925692579258925992609261926292639264926592669267926892699270927192729273927492759276927792789279928092819282928392849285928692879288928992909291929292939294929592969297929892999300930193029303930493059306930793089309931093119312931393149315931693179318931993209321932293239324932593269327932893299330933193329333933493359336933793389339934093419342934393449345934693479348934993509351935293539354935593569357935893599360936193629363936493659366936793689369937093719372937393749375937693779378937993809381938293839384938593869387938893899390939193929393939493959396939793989399940094019402940394049405940694079408940994109411941294139414941594169417941894199420942194229423942494259426942794289429943094319432943394349435943694379438943994409441944294439444944594469447944894499450945194529453945494559456945794589459946094619462946394649465946694679468946994709471947294739474947594769477947894799480948194829483948494859486948794889489949094919492949394949495949694979498949995009501950295039504950595069507950895099510951195129513951495159516951795189519952095219522952395249525952695279528952995309531953295339534953595369537953895399540954195429543954495459546954795489549955095519552955395549555955695579558955995609561956295639564956595669567956895699570957195729573957495759576957795789579958095819582958395849585958695879588958995909591959295939594959595969597959895999600960196029603960496059606960796089609961096119612961396149615961696179618961996209621962296239624962596269627962896299630963196329633963496359636963796389639964096419642964396449645964696479648964996509651965296539654965596569657965896599660966196629663966496659666966796689669967096719672967396749675967696779678967996809681968296839684968596869687968896899690969196929693969496959696969796989699970097019702970397049705970697079708970997109711971297139714971597169717971897199720972197229723972497259726972797289729973097319732973397349735973697379738973997409741974297439744974597469747974897499750975197529753975497559756975797589759976097619762976397649765976697679768976997709771977297739774977597769777977897799780978197829783978497859786978797889789979097919792979397949795979697979798979998009801980298039804980598069807980898099810981198129813981498159816981798189819982098219822982398249825982698279828982998309831983298339834983598369837983898399840984198429843984498459846984798489849985098519852985398549855985698579858985998609861986298639864986598669867986898699870987198729873987498759876987798789879988098819882988398849885988698879888988998909891989298939894989598969897989898999900990199029903990499059906990799089909991099119912991399149915991699179918991999209921992299239924992599269927992899299930993199329933993499359936993799389939994099419942994399449945994699479948994999509951995299539954995599569957995899599960996199629963996499659966996799689969997099719972997399749975997699779978997999809981998299839984998599869987998899899990999199929993999499959996999799989999100001000110002100031000410005100061000710008100091001010011100121001310014100151001610017100181001910020100211002210023100241002510026100271002810029100301003110032100331003410035100361003710038100391004010041100421004310044100451004610047100481004910050100511005210053100541005510056100571005810059100601006110062100631006410065100661006710068100691007010071100721007310074100751007610077100781007910080100811008210083100841008510086100871008810089100901009110092100931009410095100961009710098100991010010101101021010310104101051010610107101081010910110101111011210113101141011510116101171011810119101201012110122101231012410125101261012710128101291013010131101321013310134101351013610137101381013910140101411014210143101441014510146101471014810149101501015110152101531015410155101561015710158101591016010161101621016310164101651016610167101681016910170101711017210173101741017510176101771017810179101801018110182101831018410185101861018710188101891019010191101921019310194101951019610197101981019910200102011020210203102041020510206102071020810209102101021110212102131021410215102161021710218102191022010221102221022310224102251022610227102281022910230102311023210233102341023510236102371023810239102401024110242102431024410245102461024710248102491025010251102521025310254102551025610257102581025910260102611026210263102641026510266102671026810269102701027110272102731027410275102761027710278102791028010281102821028310284102851028610287102881028910290102911029210293102941029510296102971029810299103001030110302103031030410305103061030710308103091031010311103121031310314103151031610317103181031910320103211032210323103241032510326103271032810329103301033110332103331033410335103361033710338103391034010341103421034310344103451034610347103481034910350103511035210353103541035510356103571035810359103601036110362103631036410365103661036710368103691037010371103721037310374103751037610377103781037910380103811038210383103841038510386103871038810389103901039110392103931039410395103961039710398103991040010401104021040310404104051040610407104081040910410104111041210413104141041510416104171041810419104201042110422104231042410425104261042710428104291043010431104321043310434104351043610437104381043910440104411044210443104441044510446104471044810449104501045110452104531045410455104561045710458104591046010461104621046310464104651046610467104681046910470104711047210473104741047510476104771047810479104801048110482104831048410485104861048710488104891049010491104921049310494104951049610497104981049910500105011050210503105041050510506105071050810509105101051110512105131051410515105161051710518105191052010521105221052310524105251052610527105281052910530105311053210533105341053510536105371053810539105401054110542105431054410545105461054710548105491055010551105521055310554105551055610557105581055910560105611056210563105641056510566105671056810569105701057110572105731057410575105761057710578105791058010581105821058310584105851058610587105881058910590105911059210593105941059510596105971059810599106001060110602106031060410605106061060710608106091061010611106121061310614106151061610617106181061910620106211062210623106241062510626106271062810629106301063110632106331063410635106361063710638106391064010641106421064310644106451064610647106481064910650106511065210653106541065510656106571065810659106601066110662106631066410665106661066710668106691067010671106721067310674106751067610677106781067910680106811068210683106841068510686106871068810689106901069110692106931069410695106961069710698106991070010701107021070310704107051070610707107081070910710107111071210713107141071510716107171071810719107201072110722107231072410725107261072710728107291073010731107321073310734107351073610737107381073910740107411074210743107441074510746107471074810749107501075110752107531075410755107561075710758107591076010761107621076310764107651076610767107681076910770107711077210773107741077510776107771077810779107801078110782107831078410785107861078710788107891079010791107921079310794107951079610797107981079910800108011080210803108041080510806108071080810809108101081110812108131081410815108161081710818108191082010821108221082310824108251082610827108281082910830108311083210833108341083510836108371083810839108401084110842108431084410845108461084710848108491085010851108521085310854108551085610857108581085910860108611086210863108641086510866108671086810869108701087110872108731087410875108761087710878108791088010881108821088310884108851088610887108881088910890108911089210893108941089510896108971089810899109001090110902109031090410905109061090710908109091091010911109121091310914109151091610917109181091910920109211092210923109241092510926109271092810929109301093110932109331093410935109361093710938109391094010941109421094310944109451094610947109481094910950109511095210953109541095510956109571095810959109601096110962109631096410965109661096710968109691097010971109721097310974109751097610977109781097910980109811098210983109841098510986109871098810989109901099110992109931099410995109961099710998109991100011001110021100311004110051100611007110081100911010110111101211013110141101511016110171101811019110201102111022110231102411025110261102711028110291103011031110321103311034110351103611037110381103911040110411104211043110441104511046110471104811049110501105111052110531105411055110561105711058110591106011061110621106311064110651106611067110681106911070110711107211073110741107511076110771107811079110801108111082110831108411085110861108711088110891109011091110921109311094110951109611097110981109911100111011110211103111041110511106111071110811109111101111111112111131111411115111161111711118111191112011121111221112311124111251112611127111281112911130111311113211133111341113511136111371113811139111401114111142111431114411145111461114711148111491115011151111521115311154111551115611157111581115911160111611116211163111641116511166111671116811169111701117111172111731117411175111761117711178111791118011181111821118311184111851118611187111881118911190111911119211193111941119511196111971119811199112001120111202112031120411205112061120711208112091121011211112121121311214112151121611217112181121911220112211122211223112241122511226112271122811229112301123111232112331123411235112361123711238112391124011241112421124311244112451124611247112481124911250112511125211253112541125511256112571125811259112601126111262112631126411265112661126711268112691127011271112721127311274112751127611277112781127911280112811128211283112841128511286112871128811289112901129111292112931129411295112961129711298112991130011301113021130311304113051130611307113081130911310113111131211313113141131511316113171131811319113201132111322113231132411325113261132711328113291133011331113321133311334113351133611337113381133911340113411134211343113441134511346113471134811349113501135111352113531135411355113561135711358113591136011361113621136311364113651136611367113681136911370113711137211373113741137511376113771137811379113801138111382113831138411385113861138711388113891139011391113921139311394113951139611397113981139911400114011140211403114041140511406114071140811409114101141111412114131141411415114161141711418114191142011421114221142311424114251142611427114281142911430114311143211433114341143511436114371143811439114401144111442114431144411445114461144711448114491145011451114521145311454114551145611457114581145911460114611146211463114641146511466114671146811469114701147111472114731147411475114761147711478114791148011481114821148311484114851148611487114881148911490114911149211493114941149511496114971149811499115001150111502115031150411505115061150711508115091151011511115121151311514115151151611517115181151911520115211152211523115241152511526115271152811529115301153111532115331153411535115361153711538115391154011541115421154311544115451154611547115481154911550115511155211553115541155511556115571155811559115601156111562115631156411565115661156711568115691157011571115721157311574115751157611577115781157911580115811158211583115841158511586115871158811589115901159111592115931159411595115961159711598115991160011601116021160311604116051160611607116081160911610116111161211613116141161511616116171161811619116201162111622116231162411625116261162711628116291163011631116321163311634116351163611637116381163911640116411164211643116441164511646116471164811649116501165111652116531165411655116561165711658116591166011661116621166311664116651166611667116681166911670116711167211673116741167511676116771167811679116801168111682116831168411685116861168711688116891169011691116921169311694116951169611697116981169911700117011170211703117041170511706117071170811709117101171111712117131171411715117161171711718117191172011721117221172311724117251172611727117281172911730117311173211733117341173511736117371173811739117401174111742117431174411745117461174711748117491175011751117521175311754117551175611757117581175911760117611176211763117641176511766117671176811769117701177111772117731177411775117761177711778117791178011781117821178311784117851178611787117881178911790117911179211793117941179511796117971179811799118001180111802118031180411805118061180711808118091181011811118121181311814118151181611817118181181911820118211182211823118241182511826118271182811829118301183111832118331183411835118361183711838118391184011841118421184311844118451184611847118481184911850118511185211853118541185511856118571185811859118601186111862118631186411865118661186711868118691187011871118721187311874118751187611877118781187911880118811188211883118841188511886118871188811889118901189111892118931189411895118961189711898118991190011901119021190311904119051190611907119081190911910119111191211913119141191511916119171191811919119201192111922119231192411925119261192711928119291193011931119321193311934119351193611937119381193911940119411194211943119441194511946119471194811949119501195111952119531195411955119561195711958119591196011961119621196311964119651196611967119681196911970119711197211973119741197511976119771197811979119801198111982119831198411985119861198711988119891199011991119921199311994119951199611997119981199912000120011200212003120041200512006120071200812009120101201112012120131201412015120161201712018120191202012021120221202312024120251202612027120281202912030120311203212033120341203512036120371203812039120401204112042120431204412045120461204712048120491205012051120521205312054120551205612057120581205912060120611206212063120641206512066120671206812069120701207112072120731207412075120761207712078120791208012081120821208312084120851208612087120881208912090120911209212093120941209512096120971209812099121001210112102121031210412105121061210712108121091211012111121121211312114121151211612117121181211912120121211212212123121241212512126121271212812129121301213112132121331213412135121361213712138121391214012141121421214312144121451214612147121481214912150121511215212153121541215512156121571215812159121601216112162121631216412165121661216712168121691217012171121721217312174121751217612177121781217912180121811218212183121841218512186121871218812189121901219112192121931219412195121961219712198121991220012201122021220312204122051220612207122081220912210122111221212213122141221512216122171221812219122201222112222122231222412225122261222712228122291223012231122321223312234122351223612237122381223912240122411224212243122441224512246122471224812249122501225112252122531225412255122561225712258122591226012261122621226312264122651226612267122681226912270122711227212273122741227512276122771227812279122801228112282122831228412285122861228712288122891229012291122921229312294122951229612297122981229912300123011230212303123041230512306123071230812309123101231112312123131231412315123161231712318123191232012321123221232312324123251232612327123281232912330123311233212333123341233512336123371233812339123401234112342123431234412345123461234712348123491235012351123521235312354123551235612357123581235912360123611236212363123641236512366123671236812369123701237112372123731237412375123761237712378123791238012381123821238312384123851238612387123881238912390123911239212393123941239512396123971239812399124001240112402124031240412405124061240712408124091241012411124121241312414124151241612417124181241912420124211242212423124241242512426124271242812429124301243112432124331243412435124361243712438124391244012441124421244312444124451244612447124481244912450124511245212453124541245512456124571245812459124601246112462124631246412465124661246712468124691247012471124721247312474124751247612477124781247912480124811248212483124841248512486124871248812489124901249112492124931249412495124961249712498124991250012501125021250312504125051250612507125081250912510125111251212513125141251512516125171251812519125201252112522125231252412525125261252712528125291253012531125321253312534125351253612537125381253912540125411254212543125441254512546125471254812549125501255112552125531255412555125561255712558125591256012561125621256312564125651256612567125681256912570125711257212573125741257512576125771257812579125801258112582125831258412585125861258712588125891259012591125921259312594125951259612597125981259912600126011260212603126041260512606126071260812609126101261112612126131261412615126161261712618126191262012621126221262312624126251262612627126281262912630126311263212633126341263512636126371263812639126401264112642126431264412645126461264712648126491265012651126521265312654126551265612657126581265912660126611266212663126641266512666126671266812669126701267112672126731267412675126761267712678126791268012681126821268312684126851268612687126881268912690126911269212693126941269512696126971269812699127001270112702127031270412705127061270712708127091271012711127121271312714127151271612717127181271912720127211272212723127241272512726127271272812729127301273112732127331273412735127361273712738127391274012741127421274312744127451274612747127481274912750127511275212753127541275512756127571275812759127601276112762127631276412765127661276712768127691277012771127721277312774127751277612777127781277912780127811278212783127841278512786127871278812789127901279112792127931279412795127961279712798127991280012801128021280312804128051280612807128081280912810128111281212813128141281512816128171281812819128201282112822128231282412825128261282712828128291283012831128321283312834128351283612837128381283912840128411284212843128441284512846128471284812849128501285112852128531285412855128561285712858128591286012861128621286312864128651286612867128681286912870128711287212873128741287512876128771287812879128801288112882128831288412885128861288712888128891289012891128921289312894128951289612897128981289912900129011290212903129041290512906129071290812909129101291112912129131291412915129161291712918129191292012921129221292312924129251292612927129281292912930129311293212933129341293512936129371293812939129401294112942129431294412945129461294712948129491295012951129521295312954129551295612957129581295912960129611296212963129641296512966129671296812969129701297112972129731297412975129761297712978129791298012981129821298312984129851298612987129881298912990129911299212993129941299512996129971299812999130001300113002130031300413005130061300713008130091301013011130121301313014130151301613017130181301913020130211302213023130241302513026130271302813029130301303113032130331303413035130361303713038130391304013041130421304313044130451304613047130481304913050130511305213053130541305513056130571305813059130601306113062130631306413065130661306713068130691307013071130721307313074130751307613077130781307913080130811308213083130841308513086130871308813089130901309113092130931309413095130961309713098130991310013101131021310313104131051310613107131081310913110131111311213113131141311513116131171311813119131201312113122131231312413125131261312713128131291313013131131321313313134131351313613137131381313913140131411314213143131441314513146131471314813149131501315113152131531315413155131561315713158131591316013161131621316313164131651316613167131681316913170131711317213173131741317513176131771317813179131801318113182131831318413185131861318713188131891319013191131921319313194131951319613197131981319913200132011320213203132041320513206132071320813209132101321113212132131321413215132161321713218132191322013221132221322313224132251322613227132281322913230132311323213233132341323513236132371323813239132401324113242132431324413245132461324713248132491325013251132521325313254132551325613257132581325913260132611326213263132641326513266132671326813269132701327113272132731327413275132761327713278132791328013281132821328313284132851328613287132881328913290132911329213293132941329513296132971329813299133001330113302133031330413305133061330713308133091331013311133121331313314133151331613317133181331913320133211332213323133241332513326133271332813329133301333113332133331333413335133361333713338133391334013341133421334313344133451334613347133481334913350133511335213353133541335513356133571335813359133601336113362133631336413365133661336713368133691337013371133721337313374133751337613377133781337913380133811338213383133841338513386133871338813389133901339113392133931339413395133961339713398133991340013401134021340313404134051340613407134081340913410134111341213413134141341513416134171341813419134201342113422134231342413425134261342713428134291343013431134321343313434134351343613437134381343913440134411344213443134441344513446134471344813449134501345113452134531345413455134561345713458134591346013461134621346313464134651346613467134681346913470134711347213473134741347513476134771347813479134801348113482134831348413485134861348713488134891349013491134921349313494134951349613497134981349913500135011350213503135041350513506135071350813509135101351113512135131351413515135161351713518135191352013521135221352313524135251352613527135281352913530135311353213533135341353513536135371353813539135401354113542135431354413545135461354713548135491355013551135521355313554135551355613557135581355913560135611356213563135641356513566135671356813569135701357113572135731357413575135761357713578135791358013581135821358313584135851358613587135881358913590135911359213593135941359513596135971359813599136001360113602136031360413605136061360713608136091361013611136121361313614136151361613617136181361913620136211362213623136241362513626136271362813629136301363113632136331363413635136361363713638136391364013641136421364313644136451364613647136481364913650136511365213653136541365513656136571365813659136601366113662136631366413665136661366713668136691367013671136721367313674136751367613677136781367913680136811368213683136841368513686136871368813689136901369113692136931369413695136961369713698136991370013701137021370313704137051370613707137081370913710137111371213713137141371513716137171371813719137201372113722137231372413725137261372713728137291373013731137321373313734137351373613737137381373913740137411374213743137441374513746137471374813749137501375113752137531375413755137561375713758137591376013761137621376313764137651376613767137681376913770137711377213773137741377513776137771377813779137801378113782137831378413785137861378713788137891379013791137921379313794137951379613797137981379913800138011380213803138041380513806138071380813809138101381113812138131381413815138161381713818138191382013821138221382313824138251382613827138281382913830138311383213833138341383513836138371383813839138401384113842138431384413845138461384713848138491385013851138521385313854138551385613857138581385913860138611386213863138641386513866138671386813869138701387113872138731387413875138761387713878138791388013881138821388313884138851388613887138881388913890138911389213893138941389513896138971389813899139001390113902139031390413905139061390713908139091391013911139121391313914139151391613917139181391913920139211392213923139241392513926139271392813929139301393113932139331393413935139361393713938139391394013941139421394313944139451394613947139481394913950139511395213953139541395513956139571395813959139601396113962139631396413965139661396713968139691397013971139721397313974139751397613977139781397913980139811398213983139841398513986139871398813989139901399113992139931399413995139961399713998139991400014001140021400314004140051400614007140081400914010140111401214013140141401514016140171401814019140201402114022140231402414025140261402714028140291403014031140321403314034140351403614037140381403914040140411404214043140441404514046140471404814049140501405114052140531405414055140561405714058140591406014061140621406314064140651406614067140681406914070140711407214073140741407514076140771407814079140801408114082140831408414085140861408714088140891409014091140921409314094140951409614097140981409914100141011410214103141041410514106141071410814109141101411114112141131411414115141161411714118141191412014121141221412314124141251412614127141281412914130141311413214133141341413514136141371413814139141401414114142141431414414145141461414714148141491415014151141521415314154141551415614157141581415914160141611416214163141641416514166141671416814169141701417114172141731417414175141761417714178141791418014181141821418314184141851418614187141881418914190141911419214193141941419514196141971419814199142001420114202142031420414205142061420714208142091421014211142121421314214142151421614217142181421914220142211422214223142241422514226142271422814229142301423114232142331423414235142361423714238142391424014241142421424314244142451424614247142481424914250142511425214253142541425514256142571425814259142601426114262142631426414265142661426714268142691427014271142721427314274142751427614277142781427914280142811428214283142841428514286142871428814289142901429114292142931429414295142961429714298142991430014301143021430314304143051430614307143081430914310143111431214313143141431514316143171431814319143201432114322143231432414325143261432714328143291433014331143321433314334143351433614337143381433914340143411434214343143441434514346143471434814349143501435114352143531435414355143561435714358143591436014361143621436314364143651436614367143681436914370143711437214373143741437514376143771437814379143801438114382143831438414385143861438714388143891439014391143921439314394143951439614397143981439914400144011440214403144041440514406144071440814409144101441114412144131441414415144161441714418144191442014421144221442314424144251442614427144281442914430144311443214433144341443514436144371443814439144401444114442144431444414445144461444714448144491445014451144521445314454144551445614457144581445914460144611446214463144641446514466144671446814469144701447114472144731447414475144761447714478144791448014481144821448314484144851448614487144881448914490144911449214493144941449514496144971449814499145001450114502145031450414505145061450714508145091451014511145121451314514145151451614517145181451914520145211452214523145241452514526145271452814529145301453114532145331453414535145361453714538145391454014541145421454314544145451454614547145481454914550145511455214553145541455514556145571455814559145601456114562145631456414565145661456714568145691457014571145721457314574145751457614577145781457914580145811458214583145841458514586145871458814589145901459114592145931459414595145961459714598145991460014601146021460314604146051460614607146081460914610146111461214613146141461514616146171461814619146201462114622146231462414625146261462714628146291463014631146321463314634146351463614637146381463914640146411464214643146441464514646146471464814649146501465114652146531465414655146561465714658146591466014661146621466314664146651466614667146681466914670146711467214673146741467514676146771467814679146801468114682146831468414685146861468714688146891469014691146921469314694146951469614697146981469914700147011470214703147041470514706147071470814709147101471114712147131471414715147161471714718147191472014721147221472314724147251472614727147281472914730147311473214733147341473514736147371473814739147401474114742147431474414745147461474714748147491475014751147521475314754147551475614757147581475914760147611476214763147641476514766147671476814769147701477114772147731477414775147761477714778147791478014781147821478314784147851478614787147881478914790147911479214793147941479514796147971479814799148001480114802148031480414805148061480714808148091481014811148121481314814148151481614817148181481914820148211482214823148241482514826148271482814829148301483114832148331483414835148361483714838148391484014841148421484314844148451484614847148481484914850148511485214853148541485514856148571485814859148601486114862148631486414865148661486714868148691487014871148721487314874148751487614877148781487914880148811488214883148841488514886148871488814889148901489114892148931489414895148961489714898148991490014901149021490314904149051490614907149081490914910149111491214913149141491514916149171491814919149201492114922149231492414925149261492714928149291493014931149321493314934149351493614937149381493914940149411494214943149441494514946149471494814949149501495114952149531495414955149561495714958149591496014961149621496314964149651496614967149681496914970149711497214973149741497514976149771497814979149801498114982149831498414985149861498714988149891499014991149921499314994149951499614997149981499915000150011500215003150041500515006150071500815009150101501115012150131501415015150161501715018150191502015021150221502315024150251502615027150281502915030150311503215033150341503515036150371503815039150401504115042150431504415045150461504715048150491505015051150521505315054150551505615057150581505915060150611506215063150641506515066150671506815069150701507115072150731507415075150761507715078150791508015081150821508315084150851508615087150881508915090150911509215093150941509515096150971509815099151001510115102151031510415105151061510715108151091511015111151121511315114151151511615117151181511915120151211512215123151241512515126151271512815129151301513115132151331513415135151361513715138151391514015141151421514315144151451514615147151481514915150151511515215153151541515515156151571515815159151601516115162151631516415165151661516715168151691517015171151721517315174151751517615177151781517915180151811518215183151841518515186151871518815189151901519115192151931519415195151961519715198151991520015201152021520315204152051520615207152081520915210152111521215213152141521515216152171521815219152201522115222152231522415225152261522715228152291523015231152321523315234152351523615237152381523915240152411524215243152441524515246152471524815249152501525115252152531525415255152561525715258152591526015261152621526315264152651526615267152681526915270152711527215273152741527515276152771527815279152801528115282152831528415285152861528715288152891529015291152921529315294152951529615297152981529915300153011530215303153041530515306153071530815309153101531115312153131531415315153161531715318153191532015321153221532315324153251532615327153281532915330153311533215333153341533515336153371533815339153401534115342153431534415345153461534715348153491535015351153521535315354153551535615357153581535915360153611536215363153641536515366153671536815369153701537115372153731537415375153761537715378153791538015381153821538315384153851538615387153881538915390153911539215393153941539515396153971539815399154001540115402154031540415405154061540715408154091541015411154121541315414154151541615417154181541915420154211542215423154241542515426154271542815429154301543115432154331543415435154361543715438154391544015441154421544315444154451544615447154481544915450154511545215453154541545515456154571545815459154601546115462154631546415465154661546715468154691547015471154721547315474154751547615477154781547915480154811548215483154841548515486154871548815489154901549115492154931549415495154961549715498154991550015501155021550315504155051550615507155081550915510155111551215513155141551515516155171551815519155201552115522155231552415525155261552715528155291553015531155321553315534155351553615537155381553915540155411554215543155441554515546155471554815549155501555115552155531555415555155561555715558155591556015561155621556315564155651556615567155681556915570155711557215573155741557515576155771557815579155801558115582155831558415585155861558715588155891559015591155921559315594155951559615597155981559915600156011560215603156041560515606156071560815609156101561115612156131561415615156161561715618156191562015621156221562315624156251562615627156281562915630156311563215633156341563515636156371563815639156401564115642156431564415645156461564715648156491565015651156521565315654156551565615657156581565915660156611566215663156641566515666156671566815669156701567115672156731567415675156761567715678156791568015681156821568315684156851568615687156881568915690156911569215693156941569515696156971569815699157001570115702157031570415705157061570715708157091571015711157121571315714157151571615717157181571915720157211572215723157241572515726157271572815729157301573115732157331573415735157361573715738157391574015741157421574315744157451574615747157481574915750157511575215753157541575515756157571575815759157601576115762157631576415765157661576715768157691577015771157721577315774157751577615777157781577915780157811578215783157841578515786157871578815789157901579115792157931579415795157961579715798157991580015801158021580315804158051580615807158081580915810158111581215813158141581515816158171581815819158201582115822158231582415825158261582715828158291583015831158321583315834158351583615837158381583915840158411584215843158441584515846158471584815849158501585115852158531585415855158561585715858158591586015861158621586315864158651586615867158681586915870158711587215873158741587515876158771587815879158801588115882158831588415885158861588715888158891589015891158921589315894158951589615897158981589915900159011590215903159041590515906159071590815909159101591115912159131591415915159161591715918159191592015921159221592315924159251592615927159281592915930159311593215933159341593515936159371593815939159401594115942159431594415945159461594715948159491595015951159521595315954159551595615957159581595915960159611596215963159641596515966159671596815969159701597115972159731597415975159761597715978159791598015981159821598315984159851598615987159881598915990159911599215993159941599515996159971599815999160001600116002160031600416005160061600716008160091601016011160121601316014160151601616017160181601916020160211602216023160241602516026160271602816029160301603116032160331603416035160361603716038160391604016041160421604316044160451604616047160481604916050160511605216053160541605516056160571605816059160601606116062160631606416065160661606716068160691607016071160721607316074160751607616077160781607916080160811608216083160841608516086160871608816089160901609116092160931609416095160961609716098160991610016101161021610316104161051610616107161081610916110161111611216113161141611516116161171611816119161201612116122161231612416125161261612716128161291613016131161321613316134161351613616137161381613916140161411614216143161441614516146161471614816149161501615116152161531615416155161561615716158161591616016161161621616316164161651616616167161681616916170161711617216173161741617516176161771617816179161801618116182161831618416185161861618716188161891619016191161921619316194161951619616197161981619916200162011620216203162041620516206162071620816209162101621116212162131621416215162161621716218162191622016221162221622316224162251622616227162281622916230162311623216233162341623516236162371623816239162401624116242162431624416245162461624716248162491625016251162521625316254162551625616257162581625916260162611626216263162641626516266162671626816269162701627116272162731627416275162761627716278162791628016281162821628316284162851628616287162881628916290162911629216293162941629516296162971629816299163001630116302163031630416305163061630716308163091631016311163121631316314163151631616317163181631916320163211632216323163241632516326163271632816329163301633116332163331633416335163361633716338163391634016341163421634316344163451634616347163481634916350163511635216353163541635516356163571635816359163601636116362163631636416365163661636716368163691637016371163721637316374163751637616377163781637916380163811638216383163841638516386163871638816389163901639116392163931639416395163961639716398163991640016401164021640316404164051640616407164081640916410164111641216413164141641516416164171641816419164201642116422164231642416425164261642716428164291643016431164321643316434164351643616437164381643916440164411644216443164441644516446164471644816449164501645116452164531645416455164561645716458164591646016461164621646316464164651646616467164681646916470164711647216473164741647516476164771647816479164801648116482164831648416485164861648716488164891649016491164921649316494164951649616497164981649916500165011650216503165041650516506165071650816509165101651116512165131651416515165161651716518165191652016521165221652316524165251652616527165281652916530165311653216533165341653516536165371653816539165401654116542165431654416545165461654716548165491655016551165521655316554165551655616557165581655916560165611656216563165641656516566165671656816569165701657116572165731657416575165761657716578165791658016581165821658316584165851658616587165881658916590165911659216593165941659516596165971659816599166001660116602166031660416605166061660716608166091661016611166121661316614166151661616617166181661916620166211662216623166241662516626166271662816629166301663116632166331663416635166361663716638166391664016641166421664316644166451664616647166481664916650166511665216653166541665516656166571665816659166601666116662166631666416665166661666716668166691667016671166721667316674166751667616677166781667916680166811668216683166841668516686166871668816689166901669116692166931669416695166961669716698166991670016701167021670316704167051670616707167081670916710167111671216713167141671516716167171671816719167201672116722167231672416725167261672716728167291673016731167321673316734167351673616737167381673916740167411674216743167441674516746167471674816749167501675116752167531675416755167561675716758167591676016761167621676316764167651676616767167681676916770167711677216773167741677516776167771677816779167801678116782167831678416785167861678716788167891679016791167921679316794167951679616797167981679916800168011680216803168041680516806168071680816809168101681116812168131681416815168161681716818168191682016821168221682316824168251682616827168281682916830168311683216833168341683516836168371683816839168401684116842168431684416845168461684716848168491685016851168521685316854168551685616857168581685916860168611686216863168641686516866168671686816869168701687116872168731687416875168761687716878168791688016881168821688316884168851688616887168881688916890168911689216893168941689516896168971689816899169001690116902169031690416905169061690716908169091691016911169121691316914169151691616917169181691916920169211692216923169241692516926169271692816929169301693116932169331693416935169361693716938169391694016941169421694316944169451694616947169481694916950169511695216953169541695516956169571695816959169601696116962169631696416965169661696716968169691697016971169721697316974169751697616977169781697916980169811698216983169841698516986169871698816989169901699116992169931699416995169961699716998169991700017001170021700317004170051700617007170081700917010170111701217013170141701517016170171701817019170201702117022170231702417025170261702717028170291703017031170321703317034170351703617037170381703917040170411704217043170441704517046170471704817049170501705117052170531705417055170561705717058170591706017061170621706317064170651706617067170681706917070170711707217073170741707517076170771707817079170801708117082170831708417085170861708717088170891709017091170921709317094170951709617097170981709917100171011710217103171041710517106171071710817109171101711117112171131711417115171161711717118171191712017121171221712317124171251712617127171281712917130171311713217133171341713517136171371713817139171401714117142171431714417145171461714717148171491715017151171521715317154171551715617157171581715917160171611716217163171641716517166171671716817169171701717117172171731717417175171761717717178171791718017181171821718317184171851718617187171881718917190171911719217193171941719517196171971719817199172001720117202172031720417205172061720717208172091721017211172121721317214172151721617217172181721917220172211722217223172241722517226172271722817229172301723117232172331723417235172361723717238172391724017241172421724317244172451724617247172481724917250172511725217253172541725517256172571725817259172601726117262172631726417265172661726717268172691727017271172721727317274172751727617277172781727917280172811728217283172841728517286172871728817289172901729117292172931729417295172961729717298172991730017301173021730317304173051730617307173081730917310173111731217313173141731517316173171731817319173201732117322173231732417325173261732717328173291733017331173321733317334173351733617337173381733917340173411734217343173441734517346173471734817349173501735117352173531735417355173561735717358173591736017361173621736317364173651736617367173681736917370173711737217373173741737517376173771737817379173801738117382173831738417385173861738717388173891739017391173921739317394173951739617397173981739917400174011740217403174041740517406174071740817409174101741117412174131741417415174161741717418174191742017421174221742317424174251742617427174281742917430174311743217433174341743517436174371743817439174401744117442174431744417445174461744717448174491745017451174521745317454174551745617457174581745917460174611746217463174641746517466174671746817469174701747117472174731747417475174761747717478174791748017481174821748317484174851748617487174881748917490174911749217493174941749517496174971749817499175001750117502175031750417505175061750717508175091751017511175121751317514175151751617517175181751917520175211752217523175241752517526175271752817529175301753117532175331753417535175361753717538175391754017541175421754317544175451754617547175481754917550175511755217553175541755517556175571755817559175601756117562175631756417565175661756717568175691757017571175721757317574175751757617577175781757917580175811758217583175841758517586175871758817589175901759117592175931759417595175961759717598175991760017601176021760317604176051760617607176081760917610176111761217613176141761517616176171761817619176201762117622176231762417625176261762717628176291763017631176321763317634176351763617637176381763917640176411764217643176441764517646176471764817649176501765117652176531765417655176561765717658176591766017661176621766317664176651766617667176681766917670176711767217673176741767517676176771767817679176801768117682176831768417685176861768717688176891769017691176921769317694176951769617697176981769917700177011770217703177041770517706177071770817709177101771117712177131771417715177161771717718177191772017721177221772317724177251772617727177281772917730177311773217733177341773517736177371773817739177401774117742177431774417745177461774717748177491775017751177521775317754177551775617757177581775917760177611776217763177641776517766177671776817769177701777117772177731777417775177761777717778177791778017781177821778317784177851778617787177881778917790177911779217793177941779517796177971779817799178001780117802178031780417805178061780717808178091781017811178121781317814178151781617817178181781917820178211782217823178241782517826178271782817829178301783117832178331783417835178361783717838178391784017841178421784317844178451784617847178481784917850178511785217853178541785517856178571785817859178601786117862178631786417865178661786717868178691787017871178721787317874178751787617877178781787917880178811788217883178841788517886178871788817889178901789117892178931789417895178961789717898178991790017901179021790317904179051790617907179081790917910179111791217913179141791517916179171791817919179201792117922179231792417925179261792717928179291793017931179321793317934179351793617937179381793917940179411794217943179441794517946179471794817949179501795117952179531795417955179561795717958179591796017961179621796317964179651796617967179681796917970179711797217973179741797517976179771797817979179801798117982179831798417985179861798717988179891799017991179921799317994179951799617997179981799918000180011800218003180041800518006180071800818009180101801118012180131801418015180161801718018180191802018021180221802318024180251802618027180281802918030180311803218033180341803518036180371803818039180401804118042180431804418045180461804718048180491805018051180521805318054180551805618057180581805918060180611806218063180641806518066180671806818069180701807118072180731807418075180761807718078180791808018081180821808318084180851808618087180881808918090180911809218093180941809518096180971809818099181001810118102181031810418105181061810718108181091811018111181121811318114181151811618117181181811918120181211812218123181241812518126181271812818129181301813118132181331813418135181361813718138181391814018141181421814318144181451814618147181481814918150181511815218153181541815518156181571815818159181601816118162181631816418165181661816718168181691817018171181721817318174181751817618177181781817918180181811818218183181841818518186181871818818189181901819118192181931819418195181961819718198181991820018201182021820318204182051820618207182081820918210182111821218213182141821518216182171821818219182201822118222182231822418225182261822718228182291823018231182321823318234182351823618237182381823918240182411824218243182441824518246182471824818249182501825118252182531825418255182561825718258182591826018261182621826318264182651826618267182681826918270182711827218273182741827518276182771827818279182801828118282182831828418285182861828718288182891829018291182921829318294182951829618297182981829918300183011830218303183041830518306183071830818309183101831118312183131831418315183161831718318183191832018321183221832318324183251832618327183281832918330183311833218333183341833518336183371833818339183401834118342183431834418345183461834718348183491835018351183521835318354183551835618357183581835918360183611836218363183641836518366183671836818369183701837118372183731837418375183761837718378183791838018381183821838318384183851838618387183881838918390183911839218393183941839518396183971839818399184001840118402184031840418405184061840718408184091841018411184121841318414184151841618417184181841918420184211842218423184241842518426184271842818429184301843118432184331843418435184361843718438184391844018441184421844318444184451844618447184481844918450184511845218453184541845518456184571845818459184601846118462184631846418465184661846718468184691847018471184721847318474184751847618477184781847918480184811848218483184841848518486184871848818489184901849118492184931849418495184961849718498184991850018501185021850318504185051850618507185081850918510185111851218513185141851518516185171851818519185201852118522185231852418525185261852718528185291853018531185321853318534185351853618537185381853918540185411854218543185441854518546185471854818549185501855118552185531855418555185561855718558185591856018561185621856318564185651856618567185681856918570185711857218573185741857518576185771857818579185801858118582185831858418585185861858718588185891859018591185921859318594185951859618597185981859918600186011860218603186041860518606186071860818609186101861118612186131861418615186161861718618186191862018621186221862318624186251862618627186281862918630186311863218633186341863518636186371863818639186401864118642186431864418645186461864718648186491865018651186521865318654186551865618657186581865918660186611866218663186641866518666186671866818669186701867118672186731867418675186761867718678186791868018681186821868318684186851868618687186881868918690186911869218693186941869518696186971869818699187001870118702187031870418705187061870718708187091871018711187121871318714187151871618717187181871918720187211872218723187241872518726187271872818729187301873118732187331873418735187361873718738187391874018741187421874318744187451874618747187481874918750187511875218753187541875518756187571875818759187601876118762187631876418765187661876718768187691877018771187721877318774187751877618777187781877918780187811878218783187841878518786187871878818789187901879118792187931879418795187961879718798187991880018801188021880318804188051880618807188081880918810188111881218813188141881518816188171881818819188201882118822188231882418825188261882718828188291883018831188321883318834188351883618837188381883918840188411884218843188441884518846188471884818849188501885118852188531885418855188561885718858188591886018861188621886318864188651886618867188681886918870188711887218873188741887518876188771887818879188801888118882188831888418885188861888718888188891889018891188921889318894188951889618897188981889918900189011890218903189041890518906189071890818909189101891118912189131891418915189161891718918189191892018921189221892318924189251892618927189281892918930189311893218933189341893518936189371893818939189401894118942189431894418945189461894718948189491895018951189521895318954189551895618957189581895918960189611896218963189641896518966189671896818969189701897118972189731897418975189761897718978189791898018981189821898318984189851898618987189881898918990189911899218993189941899518996189971899818999190001900119002190031900419005190061900719008190091901019011190121901319014190151901619017190181901919020190211902219023190241902519026190271902819029190301903119032190331903419035190361903719038190391904019041190421904319044190451904619047190481904919050190511905219053190541905519056190571905819059190601906119062190631906419065190661906719068190691907019071190721907319074190751907619077190781907919080190811908219083190841908519086190871908819089190901909119092190931909419095190961909719098190991910019101191021910319104191051910619107191081910919110191111911219113191141911519116191171911819119191201912119122191231912419125191261912719128191291913019131191321913319134191351913619137191381913919140191411914219143191441914519146191471914819149191501915119152191531915419155191561915719158191591916019161191621916319164191651916619167191681916919170191711917219173191741917519176191771917819179191801918119182191831918419185191861918719188191891919019191191921919319194191951919619197191981919919200192011920219203192041920519206192071920819209192101921119212192131921419215192161921719218192191922019221192221922319224192251922619227192281922919230192311923219233192341923519236192371923819239192401924119242192431924419245192461924719248192491925019251192521925319254192551925619257192581925919260192611926219263192641926519266192671926819269192701927119272192731927419275192761927719278192791928019281192821928319284192851928619287192881928919290192911929219293192941929519296192971929819299193001930119302193031930419305193061930719308193091931019311193121931319314193151931619317193181931919320193211932219323193241932519326193271932819329193301933119332193331933419335193361933719338193391934019341193421934319344193451934619347193481934919350193511935219353193541935519356193571935819359193601936119362193631936419365193661936719368193691937019371193721937319374193751937619377193781937919380193811938219383193841938519386193871938819389193901939119392193931939419395193961939719398193991940019401194021940319404194051940619407194081940919410194111941219413194141941519416194171941819419194201942119422194231942419425194261942719428194291943019431194321943319434194351943619437194381943919440194411944219443194441944519446194471944819449194501945119452194531945419455194561945719458194591946019461194621946319464194651946619467194681946919470194711947219473194741947519476194771947819479194801948119482194831948419485194861948719488194891949019491194921949319494194951949619497194981949919500195011950219503195041950519506195071950819509195101951119512195131951419515195161951719518195191952019521195221952319524195251952619527195281952919530195311953219533195341953519536195371953819539195401954119542195431954419545195461954719548195491955019551195521955319554195551955619557195581955919560195611956219563195641956519566195671956819569195701957119572195731957419575195761957719578195791958019581195821958319584195851958619587195881958919590195911959219593195941959519596195971959819599196001960119602196031960419605196061960719608196091961019611196121961319614196151961619617196181961919620196211962219623196241962519626196271962819629196301963119632196331963419635196361963719638196391964019641196421964319644196451964619647196481964919650196511965219653196541965519656196571965819659196601966119662196631966419665196661966719668196691967019671196721967319674196751967619677196781967919680196811968219683196841968519686196871968819689196901969119692196931969419695196961969719698196991970019701197021970319704197051970619707197081970919710197111971219713197141971519716197171971819719197201972119722197231972419725197261972719728197291973019731197321973319734197351973619737197381973919740197411974219743197441974519746197471974819749197501975119752197531975419755197561975719758197591976019761197621976319764197651976619767197681976919770197711977219773197741977519776197771977819779197801978119782197831978419785197861978719788197891979019791197921979319794197951979619797197981979919800198011980219803198041980519806198071980819809198101981119812198131981419815198161981719818198191982019821198221982319824198251982619827198281982919830198311983219833198341983519836198371983819839198401984119842198431984419845198461984719848198491985019851198521985319854198551985619857198581985919860198611986219863198641986519866198671986819869198701987119872198731987419875198761987719878198791988019881198821988319884198851988619887198881988919890198911989219893198941989519896198971989819899199001990119902199031990419905199061990719908199091991019911199121991319914199151991619917199181991919920199211992219923199241992519926199271992819929199301993119932199331993419935199361993719938199391994019941199421994319944199451994619947199481994919950199511995219953199541995519956199571995819959199601996119962199631996419965199661996719968199691997019971199721997319974199751997619977199781997919980199811998219983199841998519986199871998819989199901999119992199931999419995199961999719998199992000020001200022000320004200052000620007200082000920010200112001220013200142001520016200172001820019200202002120022200232002420025200262002720028200292003020031200322003320034200352003620037200382003920040200412004220043200442004520046200472004820049200502005120052200532005420055200562005720058200592006020061200622006320064200652006620067200682006920070200712007220073200742007520076200772007820079200802008120082200832008420085200862008720088200892009020091200922009320094200952009620097200982009920100201012010220103201042010520106201072010820109201102011120112201132011420115201162011720118201192012020121201222012320124201252012620127201282012920130201312013220133201342013520136201372013820139201402014120142201432014420145201462014720148201492015020151201522015320154201552015620157201582015920160201612016220163201642016520166201672016820169201702017120172201732017420175201762017720178201792018020181201822018320184201852018620187201882018920190201912019220193201942019520196201972019820199202002020120202202032020420205202062020720208202092021020211202122021320214202152021620217202182021920220202212022220223202242022520226202272022820229202302023120232202332023420235202362023720238202392024020241202422024320244202452024620247202482024920250202512025220253202542025520256202572025820259202602026120262202632026420265202662026720268202692027020271202722027320274202752027620277202782027920280202812028220283202842028520286202872028820289202902029120292202932029420295202962029720298202992030020301203022030320304203052030620307203082030920310203112031220313203142031520316203172031820319 |
- ;;; org.el --- Outline-based notes management and organizer
- ;; Carstens outline-mode for keeping track of everything.
- ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
- ;; Free Software Foundation, Inc.
- ;;
- ;; Author: Carsten Dominik <carsten at orgmode dot org>
- ;; Keywords: outlines, hypermedia, calendar, wp
- ;; Homepage: http://orgmode.org
- ;; Version: 7.5
- ;;
- ;; This file is part of GNU Emacs.
- ;;
- ;; GNU Emacs is free software: you can redistribute it and/or modify
- ;; it under the terms of the GNU General Public License as published by
- ;; the Free Software Foundation, either version 3 of the License, or
- ;; (at your option) any later version.
- ;; GNU Emacs is distributed in the hope that it will be useful,
- ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
- ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- ;; GNU General Public License for more details.
- ;; You should have received a copy of the GNU General Public License
- ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;
- ;;; Commentary:
- ;;
- ;; Org-mode is a mode for keeping notes, maintaining ToDo lists, and doing
- ;; project planning with a fast and effective plain-text system.
- ;;
- ;; Org-mode develops organizational tasks around NOTES files that contain
- ;; information about projects as plain text. Org-mode is implemented on
- ;; top of outline-mode, which makes it possible to keep the content of
- ;; large files well structured. Visibility cycling and structure editing
- ;; help to work with the tree. Tables are easily created with a built-in
- ;; table editor. Org-mode supports ToDo items, deadlines, time stamps,
- ;; and scheduling. It dynamically compiles entries into an agenda that
- ;; utilizes and smoothly integrates much of the Emacs calendar and diary.
- ;; Plain text URL-like links connect to websites, emails, Usenet
- ;; messages, BBDB entries, and any files related to the projects. For
- ;; printing and sharing of notes, an Org-mode file can be exported as a
- ;; structured ASCII file, as HTML, or (todo and agenda items only) as an
- ;; iCalendar file. It can also serve as a publishing tool for a set of
- ;; linked webpages.
- ;;
- ;; Installation and Activation
- ;; ---------------------------
- ;; See the corresponding sections in the manual at
- ;;
- ;; http://orgmode.org/org.html#Installation
- ;;
- ;; Documentation
- ;; -------------
- ;; The documentation of Org-mode can be found in the TeXInfo file. The
- ;; distribution also contains a PDF version of it. At the homepage of
- ;; Org-mode, you can read the same text online as HTML. There is also an
- ;; excellent reference card made by Philip Rooke. This card can be found
- ;; in the etc/ directory of Emacs 22.
- ;;
- ;; A list of recent changes can be found at
- ;; http://orgmode.org/Changes.html
- ;;
- ;;; Code:
- (defvar org-inhibit-highlight-removal nil) ; dynamically scoped param
- (defvar org-table-formula-constants-local nil
- "Local version of `org-table-formula-constants'.")
- (make-variable-buffer-local 'org-table-formula-constants-local)
- ;;;; Require other packages
- (eval-when-compile
- (require 'cl)
- (require 'gnus-sum))
- (require 'calendar)
- ;; Emacs 22 calendar compatibility: Make sure the new variables are available
- (when (fboundp 'defvaralias)
- (unless (boundp 'calendar-view-holidays-initially-flag)
- (defvaralias 'calendar-view-holidays-initially-flag
- 'view-calendar-holidays-initially))
- (unless (boundp 'calendar-view-diary-initially-flag)
- (defvaralias 'calendar-view-diary-initially-flag
- 'view-diary-entries-initially))
- (unless (boundp 'diary-fancy-buffer)
- (defvaralias 'diary-fancy-buffer 'fancy-diary-buffer)))
- (require 'outline) (require 'noutline)
- ;; Other stuff we need.
- (require 'time-date)
- (unless (fboundp 'time-subtract) (defalias 'time-subtract 'subtract-time))
- (require 'easymenu)
- (require 'overlay)
- (require 'org-macs)
- (require 'org-entities)
- (require 'org-compat)
- (require 'org-faces)
- (require 'org-list)
- (require 'org-pcomplete)
- (require 'org-src)
- (require 'org-footnote)
- (declare-function org-inlinetask-at-task-p "org-inlinetask" ())
- (declare-function org-inlinetask-outline-regexp "org-inlinetask" ())
- (declare-function org-inlinetask-toggle-visibility "org-inlinetask" ())
- ;; babel
- (require 'ob)
- (require 'ob-table)
- (require 'ob-lob)
- (require 'ob-ref)
- (require 'ob-tangle)
- (require 'ob-comint)
- (require 'ob-keys)
- ;; load languages based on value of `org-babel-load-languages'
- (defvar org-babel-load-languages)
- ;;;###autoload
- (defun org-babel-do-load-languages (sym value)
- "Load the languages defined in `org-babel-load-languages'."
- (set-default sym value)
- (mapc (lambda (pair)
- (let ((active (cdr pair)) (lang (symbol-name (car pair))))
- (if active
- (progn
- (require (intern (concat "ob-" lang))))
- (progn
- (funcall 'fmakunbound
- (intern (concat "org-babel-execute:" lang)))
- (funcall 'fmakunbound
- (intern (concat "org-babel-expand-body:" lang)))))))
- org-babel-load-languages))
- (defcustom org-babel-load-languages '((emacs-lisp . t))
- "Languages which can be evaluated in Org-mode buffers.
- This list can be used to load support for any of the languages
- below, note that each language will depend on a different set of
- system executables and/or Emacs modes. When a language is
- \"loaded\", then code blocks in that language can be evaluated
- with `org-babel-execute-src-block' bound by default to C-c
- C-c (note the `org-babel-no-eval-on-ctrl-c-ctrl-c' variable can
- be set to remove code block evaluation from the C-c C-c
- keybinding. By default only Emacs Lisp (which has no
- requirements) is loaded."
- :group 'org-babel
- :set 'org-babel-do-load-languages
- :type '(alist :tag "Babel Languages"
- :key-type
- (choice
- (const :tag "Awk" awk)
- (const :tag "C" C)
- (const :tag "R" R)
- (const :tag "Asymptote" asymptote)
- (const :tag "Calc" calc)
- (const :tag "Clojure" clojure)
- (const :tag "CSS" css)
- (const :tag "Ditaa" ditaa)
- (const :tag "Dot" dot)
- (const :tag "Emacs Lisp" emacs-lisp)
- (const :tag "Gnuplot" gnuplot)
- (const :tag "Haskell" haskell)
- (const :tag "Javascript" js)
- (const :tag "Latex" latex)
- (const :tag "Ledger" ledger)
- (const :tag "Maxima" maxima)
- (const :tag "Matlab" matlab)
- (const :tag "Mscgen" mscgen)
- (const :tag "Ocaml" ocaml)
- (const :tag "Octave" octave)
- (const :tag "Org" org)
- (const :tag "Perl" perl)
- (const :tag "PlantUML" plantuml)
- (const :tag "Python" python)
- (const :tag "Ruby" ruby)
- (const :tag "Sass" sass)
- (const :tag "Scheme" scheme)
- (const :tag "Screen" screen)
- (const :tag "Shell Script" sh)
- (const :tag "Sql" sql)
- (const :tag "Sqlite" sqlite))
- :value-type (boolean :tag "Activate" :value t)))
- ;;;; Customization variables
- (defcustom org-clone-delete-id nil
- "Remove ID property of clones of a subtree.
- When non-nil, clones of a subtree don't inherit the ID property.
- Otherwise they inherit the ID property with a new unique
- identifier."
- :type 'boolean
- :group 'org-id)
- ;;; Version
- (defconst org-version "7.5"
- "The version number of the file org.el.")
- (defun org-version (&optional here)
- "Show the org-mode version in the echo area.
- With prefix arg HERE, insert it at point."
- (interactive "P")
- (let* ((origin default-directory)
- (version org-version)
- (git-version)
- (dir (concat (file-name-directory (locate-library "org")) "../" )))
- (when (and (file-exists-p (expand-file-name ".git" dir))
- (executable-find "git"))
- (unwind-protect
- (progn
- (cd dir)
- (when (eql 0 (shell-command "git describe --abbrev=4 HEAD"))
- (with-current-buffer "*Shell Command Output*"
- (goto-char (point-min))
- (setq git-version (buffer-substring (point) (point-at-eol))))
- (subst-char-in-string ?- ?. git-version t)
- (when (string-match "\\S-"
- (shell-command-to-string
- "git diff-index --name-only HEAD --"))
- (setq git-version (concat git-version ".dirty")))
- (setq version (concat version " (" git-version ")"))))
- (cd origin)))
- (setq version (format "Org-mode version %s" version))
- (if here (insert version))
- (message version)))
- ;;; Compatibility constants
- ;;; The custom variables
- (defgroup org nil
- "Outline-based notes management and organizer."
- :tag "Org"
- :group 'outlines
- :group 'calendar)
- (defcustom org-mode-hook nil
- "Mode hook for Org-mode, run after the mode was turned on."
- :group 'org
- :type 'hook)
- (defcustom org-load-hook nil
- "Hook that is run after org.el has been loaded."
- :group 'org
- :type 'hook)
- (defvar org-modules) ; defined below
- (defvar org-modules-loaded nil
- "Have the modules been loaded already?")
- (defun org-load-modules-maybe (&optional force)
- "Load all extensions listed in `org-modules'."
- (when (or force (not org-modules-loaded))
- (mapc (lambda (ext)
- (condition-case nil (require ext)
- (error (message "Problems while trying to load feature `%s'" ext))))
- org-modules)
- (setq org-modules-loaded t)))
- (defun org-set-modules (var value)
- "Set VAR to VALUE and call `org-load-modules-maybe' with the force flag."
- (set var value)
- (when (featurep 'org)
- (org-load-modules-maybe 'force)))
- (when (org-bound-and-true-p org-modules)
- (let ((a (member 'org-infojs org-modules)))
- (and a (setcar a 'org-jsinfo))))
- (defcustom org-modules '(org-bbdb org-bibtex org-docview org-gnus org-info org-jsinfo org-irc org-mew org-mhe org-rmail org-vm org-w3m org-wl)
- "Modules that should always be loaded together with org.el.
- If a description starts with <C>, the file is not part of Emacs
- and loading it will require that you have downloaded and properly installed
- the org-mode distribution.
- You can also use this system to load external packages (i.e. neither Org
- core modules, nor modules from the CONTRIB directory). Just add symbols
- to the end of the list. If the package is called org-xyz.el, then you need
- to add the symbol `xyz', and the package must have a call to
- (provide 'org-xyz)"
- :group 'org
- :set 'org-set-modules
- :type
- '(set :greedy t
- (const :tag " bbdb: Links to BBDB entries" org-bbdb)
- (const :tag " bibtex: Links to BibTeX entries" org-bibtex)
- (const :tag " crypt: Encryption of subtrees" org-crypt)
- (const :tag " ctags: Access to Emacs tags with links" org-ctags)
- (const :tag " docview: Links to doc-view buffers" org-docview)
- (const :tag " gnus: Links to GNUS folders/messages" org-gnus)
- (const :tag " id: Global IDs for identifying entries" org-id)
- (const :tag " info: Links to Info nodes" org-info)
- (const :tag " jsinfo: Set up Sebastian Rose's JavaScript org-info.js" org-jsinfo)
- (const :tag " habit: Track your consistency with habits" org-habit)
- (const :tag " inlinetask: Tasks independent of outline hierarchy" org-inlinetask)
- (const :tag " irc: Links to IRC/ERC chat sessions" org-irc)
- (const :tag " mac-message: Links to messages in Apple Mail" org-mac-message)
- (const :tag " mew Links to Mew folders/messages" org-mew)
- (const :tag " mhe: Links to MHE folders/messages" org-mhe)
- (const :tag " protocol: Intercept calls from emacsclient" org-protocol)
- (const :tag " rmail: Links to RMAIL folders/messages" org-rmail)
- (const :tag " special-blocks: Turn blocks into LaTeX envs and HTML divs" org-special-blocks)
- (const :tag " vm: Links to VM folders/messages" org-vm)
- (const :tag " wl: Links to Wanderlust folders/messages" org-wl)
- (const :tag " w3m: Special cut/paste from w3m to Org-mode." org-w3m)
- (const :tag " mouse: Additional mouse support" org-mouse)
- (const :tag " TaskJuggler: Export tasks to a TaskJuggler project" org-taskjuggler)
- (const :tag "C annotate-file: Annotate a file with org syntax" org-annotate-file)
- (const :tag "C bookmark: Org-mode links to bookmarks" org-bookmark)
- (const :tag "C checklist: Extra functions for checklists in repeated tasks" org-checklist)
- (const :tag "C choose: Use TODO keywords to mark decisions states" org-choose)
- (const :tag "C collector: Collect properties into tables" org-collector)
- (const :tag "C depend: TODO dependencies for Org-mode\n\t\t\t(PARTIALLY OBSOLETE, see built-in dependency support))" org-depend)
- (const :tag "C drill: Flashcards and spaced repetition for Org-mode" org-drill)
- (const :tag "C elisp-symbol: Org-mode links to emacs-lisp symbols" org-elisp-symbol)
- (const :tag "C eshell Support for links to working directories in eshell" org-eshell)
- (const :tag "C eval: Include command output as text" org-eval)
- (const :tag "C eval-light: Evaluate inbuffer-code on demand" org-eval-light)
- (const :tag "C expiry: Expiry mechanism for Org-mode entries" org-expiry)
- (const :tag "C exp-bibtex: Export citations using BibTeX" org-exp-bibtex)
- (const :tag "C git-link: Provide org links to specific file version" org-git-link)
- (const :tag "C interactive-query: Interactive modification of tags query\n\t\t\t(PARTIALLY OBSOLETE, see secondary filtering)" org-interactive-query)
- (const :tag "C invoice: Help manage client invoices in Org-mode" org-invoice)
- (const :tag "C jira: Add a jira:ticket protocol to Org-mode" org-jira)
- (const :tag "C learn: SuperMemo's incremental learning algorithm" org-learn)
- (const :tag "C mairix: Hook mairix search into Org-mode for different MUAs" org-mairix)
- (const :tag "C notmuch: Provide org links to notmuch searches or messages" org-notmuch)
- (const :tag "C mac-iCal Imports events from iCal.app to the Emacs diary" org-mac-iCal)
- (const :tag "C mac-link-grabber Grab links and URLs from various Mac applications" org-mac-link-grabber)
- (const :tag "C man: Support for links to manpages in Org-mode" org-man)
- (const :tag "C mtags: Support for muse-like tags" org-mtags)
- (const :tag "C panel: Simple routines for us with bad memory" org-panel)
- (const :tag "C registry: A registry for Org-mode links" org-registry)
- (const :tag "C org2rem: Convert org appointments into reminders" org2rem)
- (const :tag "C screen: Visit screen sessions through Org-mode links" org-screen)
- (const :tag "C secretary: Team management with org-mode" org-secretary)
- (const :tag "C sqlinsert: Convert Org-mode tables to SQL insertions" orgtbl-sqlinsert)
- (const :tag "C toc: Table of contents for Org-mode buffer" org-toc)
- (const :tag "C track: Keep up with Org-mode development" org-track)
- (const :tag "C velocity Something like Notational Velocity for Org" org-velocity)
- (const :tag "C wikinodes: CamelCase wiki-like links" org-wikinodes)
- (repeat :tag "External packages" :inline t (symbol :tag "Package"))))
- (defcustom org-support-shift-select nil
- "Non-nil means make shift-cursor commands select text when possible.
- In Emacs 23, when `shift-select-mode' is on, shifted cursor keys start
- selecting a region, or enlarge regions started in this way.
- In Org-mode, in special contexts, these same keys are used for other
- purposes, important enough to compete with shift selection. Org tries
- to balance these needs by supporting `shift-select-mode' outside these
- special contexts, under control of this variable.
- The default of this variable is nil, to avoid confusing behavior. Shifted
- cursor keys will then execute Org commands in the following contexts:
- - on a headline, changing TODO state (left/right) and priority (up/down)
- - on a time stamp, changing the time
- - in a plain list item, changing the bullet type
- - in a property definition line, switching between allowed values
- - in the BEGIN line of a clock table (changing the time block).
- Outside these contexts, the commands will throw an error.
- When this variable is t and the cursor is not in a special context,
- Org-mode will support shift-selection for making and enlarging regions.
- To make this more effective, the bullet cycling will no longer happen
- anywhere in an item line, but only if the cursor is exactly on the bullet.
- If you set this variable to the symbol `always', then the keys
- will not be special in headlines, property lines, and item lines, to make
- shift selection work there as well. If this is what you want, you can
- use the following alternative commands: `C-c C-t' and `C-c ,' to
- change TODO state and priority, `C-u C-u C-c C-t' can be used to switch
- TODO sets, `C-c -' to cycle item bullet types, and properties can be
- edited by hand or in column view.
- However, when the cursor is on a timestamp, shift-cursor commands
- will still edit the time stamp - this is just too good to give up.
- XEmacs user should have this variable set to nil, because shift-select-mode
- is Emacs 23 only."
- :group 'org
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "When outside special context" t)
- (const :tag "Everywhere except timestamps" always)))
- (defgroup org-startup nil
- "Options concerning startup of Org-mode."
- :tag "Org Startup"
- :group 'org)
- (defcustom org-startup-folded t
- "Non-nil means entering Org-mode will switch to OVERVIEW.
- This can also be configured on a per-file basis by adding one of
- the following lines anywhere in the buffer:
- #+STARTUP: fold (or `overview', this is equivalent)
- #+STARTUP: nofold (or `showall', this is equivalent)
- #+STARTUP: content
- #+STARTUP: showeverything"
- :group 'org-startup
- :type '(choice
- (const :tag "nofold: show all" nil)
- (const :tag "fold: overview" t)
- (const :tag "content: all headlines" content)
- (const :tag "show everything, even drawers" showeverything)))
- (defcustom org-startup-truncated t
- "Non-nil means entering Org-mode will set `truncate-lines'.
- This is useful since some lines containing links can be very long and
- uninteresting. Also tables look terrible when wrapped."
- :group 'org-startup
- :type 'boolean)
- (defcustom org-startup-indented nil
- "Non-nil means turn on `org-indent-mode' on startup.
- This can also be configured on a per-file basis by adding one of
- the following lines anywhere in the buffer:
- #+STARTUP: indent
- #+STARTUP: noindent"
- :group 'org-structure
- :type '(choice
- (const :tag "Not" nil)
- (const :tag "Globally (slow on startup in large files)" t)))
- (defcustom org-use-sub-superscripts t
- "Non-nil means interpret \"_\" and \"^\" for export.
- When this option is turned on, you can use TeX-like syntax for sub- and
- superscripts. Several characters after \"_\" or \"^\" will be
- considered as a single item - so grouping with {} is normally not
- needed. For example, the following things will be parsed as single
- sub- or superscripts.
- 10^24 or 10^tau several digits will be considered 1 item.
- 10^-12 or 10^-tau a leading sign with digits or a word
- x^2-y^3 will be read as x^2 - y^3, because items are
- terminated by almost any nonword/nondigit char.
- x_{i^2} or x^(2-i) braces or parenthesis do grouping.
- Still, ambiguity is possible - so when in doubt use {} to enclose the
- sub/superscript. If you set this variable to the symbol `{}',
- the braces are *required* in order to trigger interpretations as
- sub/superscript. This can be helpful in documents that need \"_\"
- frequently in plain text.
- Not all export backends support this, but HTML does.
- This option can also be set with the +OPTIONS line, e.g. \"^:nil\"."
- :group 'org-startup
- :group 'org-export-translation
- :type '(choice
- (const :tag "Always interpret" t)
- (const :tag "Only with braces" {})
- (const :tag "Never interpret" nil)))
- (if (fboundp 'defvaralias)
- (defvaralias 'org-export-with-sub-superscripts 'org-use-sub-superscripts))
- (defcustom org-startup-with-beamer-mode nil
- "Non-nil means turn on `org-beamer-mode' on startup.
- This can also be configured on a per-file basis by adding one of
- the following lines anywhere in the buffer:
- #+STARTUP: beamer"
- :group 'org-startup
- :type 'boolean)
- (defcustom org-startup-align-all-tables nil
- "Non-nil means align all tables when visiting a file.
- This is useful when the column width in tables is forced with <N> cookies
- in table fields. Such tables will look correct only after the first re-align.
- This can also be configured on a per-file basis by adding one of
- the following lines anywhere in the buffer:
- #+STARTUP: align
- #+STARTUP: noalign"
- :group 'org-startup
- :type 'boolean)
- (defcustom org-startup-with-inline-images nil
- "Non-nil means show inline images when loading a new Org file.
- This can also be configured on a per-file basis by adding one of
- the following lines anywhere in the buffer:
- #+STARTUP: inlineimages
- #+STARTUP: noinlineimages"
- :group 'org-startup
- :type 'boolean)
- (defcustom org-insert-mode-line-in-empty-file nil
- "Non-nil means insert the first line setting Org-mode in empty files.
- When the function `org-mode' is called interactively in an empty file, this
- normally means that the file name does not automatically trigger Org-mode.
- To ensure that the file will always be in Org-mode in the future, a
- line enforcing Org-mode will be inserted into the buffer, if this option
- has been set."
- :group 'org-startup
- :type 'boolean)
- (defcustom org-replace-disputed-keys nil
- "Non-nil means use alternative key bindings for some keys.
- Org-mode uses S-<cursor> keys for changing timestamps and priorities.
- These keys are also used by other packages like shift-selection-mode'
- \(built into Emacs 23), `CUA-mode' or `windmove.el'.
- If you want to use Org-mode together with one of these other modes,
- or more generally if you would like to move some Org-mode commands to
- other keys, set this variable and configure the keys with the variable
- `org-disputed-keys'.
- This option is only relevant at load-time of Org-mode, and must be set
- *before* org.el is loaded. Changing it requires a restart of Emacs to
- become effective."
- :group 'org-startup
- :type 'boolean)
- (defcustom org-use-extra-keys nil
- "Non-nil means use extra key sequence definitions for certain commands.
- This happens automatically if you run XEmacs or if `window-system'
- is nil. This variable lets you do the same manually. You must
- set it before loading org.
- Example: on Carbon Emacs 22 running graphically, with an external
- keyboard on a Powerbook, the default way of setting M-left might
- not work for either Alt or ESC. Setting this variable will make
- it work for ESC."
- :group 'org-startup
- :type 'boolean)
- (if (fboundp 'defvaralias)
- (defvaralias 'org-CUA-compatible 'org-replace-disputed-keys))
- (defcustom org-disputed-keys
- '(([(shift up)] . [(meta p)])
- ([(shift down)] . [(meta n)])
- ([(shift left)] . [(meta -)])
- ([(shift right)] . [(meta +)])
- ([(control shift right)] . [(meta shift +)])
- ([(control shift left)] . [(meta shift -)]))
- "Keys for which Org-mode and other modes compete.
- This is an alist, cars are the default keys, second element specifies
- the alternative to use when `org-replace-disputed-keys' is t.
- Keys can be specified in any syntax supported by `define-key'.
- The value of this option takes effect only at Org-mode's startup,
- therefore you'll have to restart Emacs to apply it after changing."
- :group 'org-startup
- :type 'alist)
- (defun org-key (key)
- "Select key according to `org-replace-disputed-keys' and `org-disputed-keys'.
- Or return the original if not disputed.
- Also apply the translations defined in `org-xemacs-key-equivalents'."
- (when org-replace-disputed-keys
- (let* ((nkey (key-description key))
- (x (org-find-if (lambda (x)
- (equal (key-description (car x)) nkey))
- org-disputed-keys)))
- (setq key (if x (cdr x) key))))
- (when (featurep 'xemacs)
- (setq key (or (cdr (assoc key org-xemacs-key-equivalents)) key)))
- key)
- (defun org-find-if (predicate seq)
- (catch 'exit
- (while seq
- (if (funcall predicate (car seq))
- (throw 'exit (car seq))
- (pop seq)))))
- (defun org-defkey (keymap key def)
- "Define a key, possibly translated, as returned by `org-key'."
- (define-key keymap (org-key key) def))
- (defcustom org-ellipsis nil
- "The ellipsis to use in the Org-mode outline.
- When nil, just use the standard three dots. When a string, use that instead,
- When a face, use the standard 3 dots, but with the specified face.
- The change affects only Org-mode (which will then use its own display table).
- Changing this requires executing `M-x org-mode' in a buffer to become
- effective."
- :group 'org-startup
- :type '(choice (const :tag "Default" nil)
- (face :tag "Face" :value org-warning)
- (string :tag "String" :value "...#")))
- (defvar org-display-table nil
- "The display table for org-mode, in case `org-ellipsis' is non-nil.")
- (defgroup org-keywords nil
- "Keywords in Org-mode."
- :tag "Org Keywords"
- :group 'org)
- (defcustom org-deadline-string "DEADLINE:"
- "String to mark deadline entries.
- A deadline is this string, followed by a time stamp. Should be a word,
- terminated by a colon. You can insert a schedule keyword and
- a timestamp with \\[org-deadline].
- Changes become only effective after restarting Emacs."
- :group 'org-keywords
- :type 'string)
- (defcustom org-scheduled-string "SCHEDULED:"
- "String to mark scheduled TODO entries.
- A schedule is this string, followed by a time stamp. Should be a word,
- terminated by a colon. You can insert a schedule keyword and
- a timestamp with \\[org-schedule].
- Changes become only effective after restarting Emacs."
- :group 'org-keywords
- :type 'string)
- (defcustom org-closed-string "CLOSED:"
- "String used as the prefix for timestamps logging closing a TODO entry."
- :group 'org-keywords
- :type 'string)
- (defcustom org-clock-string "CLOCK:"
- "String used as prefix for timestamps clocking work hours on an item."
- :group 'org-keywords
- :type 'string)
- (defcustom org-comment-string "COMMENT"
- "Entries starting with this keyword will never be exported.
- An entry can be toggled between COMMENT and normal with
- \\[org-toggle-comment].
- Changes become only effective after restarting Emacs."
- :group 'org-keywords
- :type 'string)
- (defcustom org-quote-string "QUOTE"
- "Entries starting with this keyword will be exported in fixed-width font.
- Quoting applies only to the text in the entry following the headline, and does
- not extend beyond the next headline, even if that is lower level.
- An entry can be toggled between QUOTE and normal with
- \\[org-toggle-fixed-width-section]."
- :group 'org-keywords
- :type 'string)
- (defconst org-repeat-re
- "<[0-9]\\{4\\}-[0-9][0-9]-[0-9][0-9] [^>\n]*?\\([.+]?\\+[0-9]+[dwmy]\\(/[0-9]+[dwmy]\\)?\\)"
- "Regular expression for specifying repeated events.
- After a match, group 1 contains the repeat expression.")
- (defgroup org-structure nil
- "Options concerning the general structure of Org-mode files."
- :tag "Org Structure"
- :group 'org)
- (defgroup org-reveal-location nil
- "Options about how to make context of a location visible."
- :tag "Org Reveal Location"
- :group 'org-structure)
- (defconst org-context-choice
- '(choice
- (const :tag "Always" t)
- (const :tag "Never" nil)
- (repeat :greedy t :tag "Individual contexts"
- (cons
- (choice :tag "Context"
- (const agenda)
- (const org-goto)
- (const occur-tree)
- (const tags-tree)
- (const link-search)
- (const mark-goto)
- (const bookmark-jump)
- (const isearch)
- (const default))
- (boolean))))
- "Contexts for the reveal options.")
- (defcustom org-show-hierarchy-above '((default . t))
- "Non-nil means show full hierarchy when revealing a location.
- Org-mode often shows locations in an org-mode file which might have
- been invisible before. When this is set, the hierarchy of headings
- above the exposed location is shown.
- Turning this off for example for sparse trees makes them very compact.
- Instead of t, this can also be an alist specifying this option for different
- contexts. Valid contexts are
- agenda when exposing an entry from the agenda
- org-goto when using the command `org-goto' on key C-c C-j
- occur-tree when using the command `org-occur' on key C-c /
- tags-tree when constructing a sparse tree based on tags matches
- link-search when exposing search matches associated with a link
- mark-goto when exposing the jump goal of a mark
- bookmark-jump when exposing a bookmark location
- isearch when exiting from an incremental search
- default default for all contexts not set explicitly"
- :group 'org-reveal-location
- :type org-context-choice)
- (defcustom org-show-following-heading '((default . nil))
- "Non-nil means show following heading when revealing a location.
- Org-mode often shows locations in an org-mode file which might have
- been invisible before. When this is set, the heading following the
- match is shown.
- Turning this off for example for sparse trees makes them very compact,
- but makes it harder to edit the location of the match. In such a case,
- use the command \\[org-reveal] to show more context.
- Instead of t, this can also be an alist specifying this option for different
- contexts. See `org-show-hierarchy-above' for valid contexts."
- :group 'org-reveal-location
- :type org-context-choice)
- (defcustom org-show-siblings '((default . nil) (isearch t))
- "Non-nil means show all sibling heading when revealing a location.
- Org-mode often shows locations in an org-mode file which might have
- been invisible before. When this is set, the sibling of the current entry
- heading are all made visible. If `org-show-hierarchy-above' is t,
- the same happens on each level of the hierarchy above the current entry.
- By default this is on for the isearch context, off for all other contexts.
- Turning this off for example for sparse trees makes them very compact,
- but makes it harder to edit the location of the match. In such a case,
- use the command \\[org-reveal] to show more context.
- Instead of t, this can also be an alist specifying this option for different
- contexts. See `org-show-hierarchy-above' for valid contexts."
- :group 'org-reveal-location
- :type org-context-choice)
- (defcustom org-show-entry-below '((default . nil))
- "Non-nil means show the entry below a headline when revealing a location.
- Org-mode often shows locations in an org-mode file which might have
- been invisible before. When this is set, the text below the headline that is
- exposed is also shown.
- By default this is off for all contexts.
- Instead of t, this can also be an alist specifying this option for different
- contexts. See `org-show-hierarchy-above' for valid contexts."
- :group 'org-reveal-location
- :type org-context-choice)
- (defcustom org-indirect-buffer-display 'other-window
- "How should indirect tree buffers be displayed?
- This applies to indirect buffers created with the commands
- \\[org-tree-to-indirect-buffer] and \\[org-agenda-tree-to-indirect-buffer].
- Valid values are:
- current-window Display in the current window
- other-window Just display in another window.
- dedicated-frame Create one new frame, and re-use it each time.
- new-frame Make a new frame each time. Note that in this case
- previously-made indirect buffers are kept, and you need to
- kill these buffers yourself."
- :group 'org-structure
- :group 'org-agenda-windows
- :type '(choice
- (const :tag "In current window" current-window)
- (const :tag "In current frame, other window" other-window)
- (const :tag "Each time a new frame" new-frame)
- (const :tag "One dedicated frame" dedicated-frame)))
- (defcustom org-use-speed-commands nil
- "Non-nil means activate single letter commands at beginning of a headline.
- This may also be a function to test for appropriate locations where speed
- commands should be active."
- :group 'org-structure
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "At beginning of headline stars" t)
- (function)))
- (defcustom org-speed-commands-user nil
- "Alist of additional speed commands.
- This list will be checked before `org-speed-commands-default'
- when the variable `org-use-speed-commands' is non-nil
- and when the cursor is at the beginning of a headline.
- The car if each entry is a string with a single letter, which must
- be assigned to `self-insert-command' in the global map.
- The cdr is either a command to be called interactively, a function
- to be called, or a form to be evaluated.
- An entry that is just a list with a single string will be interpreted
- as a descriptive headline that will be added when listing the speed
- commands in the Help buffer using the `?' speed command."
- :group 'org-structure
- :type '(repeat :value ("k" . ignore)
- (choice :value ("k" . ignore)
- (list :tag "Descriptive Headline" (string :tag "Headline"))
- (cons :tag "Letter and Command"
- (string :tag "Command letter")
- (choice
- (function)
- (sexp))))))
- (defgroup org-cycle nil
- "Options concerning visibility cycling in Org-mode."
- :tag "Org Cycle"
- :group 'org-structure)
- (defcustom org-cycle-skip-children-state-if-no-children t
- "Non-nil means skip CHILDREN state in entries that don't have any."
- :group 'org-cycle
- :type 'boolean)
- (defcustom org-cycle-max-level nil
- "Maximum level which should still be subject to visibility cycling.
- Levels higher than this will, for cycling, be treated as text, not a headline.
- When `org-odd-levels-only' is set, a value of N in this variable actually
- means 2N-1 stars as the limiting headline.
- When nil, cycle all levels.
- Note that the limiting level of cycling is also influenced by
- `org-inlinetask-min-level'. When `org-cycle-max-level' is not set but
- `org-inlinetask-min-level' is, cycling will be limited to levels one less
- than its value."
- :group 'org-cycle
- :type '(choice
- (const :tag "No limit" nil)
- (integer :tag "Maximum level")))
- (defcustom org-drawers '("PROPERTIES" "CLOCK" "LOGBOOK")
- "Names of drawers. Drawers are not opened by cycling on the headline above.
- Drawers only open with a TAB on the drawer line itself. A drawer looks like
- this:
- :DRAWERNAME:
- .....
- :END:
- The drawer \"PROPERTIES\" is special for capturing properties through
- the property API.
- Drawers can be defined on the per-file basis with a line like:
- #+DRAWERS: HIDDEN STATE PROPERTIES"
- :group 'org-structure
- :group 'org-cycle
- :type '(repeat (string :tag "Drawer Name")))
- (defcustom org-hide-block-startup nil
- "Non-nil means entering Org-mode will fold all blocks.
- This can also be set in on a per-file basis with
- #+STARTUP: hideblocks
- #+STARTUP: showblocks"
- :group 'org-startup
- :group 'org-cycle
- :type 'boolean)
- (defcustom org-cycle-global-at-bob nil
- "Cycle globally if cursor is at beginning of buffer and not at a headline.
- This makes it possible to do global cycling without having to use S-TAB or
- \\[universal-argument] TAB. For this special case to work, the first line \
- of the buffer
- must not be a headline - it may be empty or some other text. When used in
- this way, `org-cycle-hook' is disables temporarily, to make sure the
- cursor stays at the beginning of the buffer.
- When this option is nil, don't do anything special at the beginning
- of the buffer."
- :group 'org-cycle
- :type 'boolean)
- (defcustom org-cycle-level-after-item/entry-creation t
- "Non-nil means cycle entry level or item indentation in new empty entries.
- When the cursor is at the end of an empty headline, i.e with only stars
- and maybe a TODO keyword, TAB will then switch the entry to become a child,
- and then all possible ancestor states, before returning to the original state.
- This makes data entry extremely fast: M-RET to create a new headline,
- on TAB to make it a child, two or more tabs to make it a (grand-)uncle.
- When the cursor is at the end of an empty plain list item, one TAB will
- make it a subitem, two or more tabs will back up to make this an item
- higher up in the item hierarchy."
- :group 'org-cycle
- :type 'boolean)
- (defcustom org-cycle-emulate-tab t
- "Where should `org-cycle' emulate TAB.
- nil Never
- white Only in completely white lines
- whitestart Only at the beginning of lines, before the first non-white char
- t Everywhere except in headlines
- exc-hl-bol Everywhere except at the start of a headline
- If TAB is used in a place where it does not emulate TAB, the current subtree
- visibility is cycled."
- :group 'org-cycle
- :type '(choice (const :tag "Never" nil)
- (const :tag "Only in completely white lines" white)
- (const :tag "Before first char in a line" whitestart)
- (const :tag "Everywhere except in headlines" t)
- (const :tag "Everywhere except at bol in headlines" exc-hl-bol)
- ))
- (defcustom org-cycle-separator-lines 2
- "Number of empty lines needed to keep an empty line between collapsed trees.
- If you leave an empty line between the end of a subtree and the following
- headline, this empty line is hidden when the subtree is folded.
- Org-mode will leave (exactly) one empty line visible if the number of
- empty lines is equal or larger to the number given in this variable.
- So the default 2 means at least 2 empty lines after the end of a subtree
- are needed to produce free space between a collapsed subtree and the
- following headline.
- If the number is negative, and the number of empty lines is at least -N,
- all empty lines are shown.
- Special case: when 0, never leave empty lines in collapsed view."
- :group 'org-cycle
- :type 'integer)
- (put 'org-cycle-separator-lines 'safe-local-variable 'integerp)
- (defcustom org-pre-cycle-hook nil
- "Hook that is run before visibility cycling is happening.
- The function(s) in this hook must accept a single argument which indicates
- the new state that will be set right after running this hook. The
- argument is a symbol. Before a global state change, it can have the values
- `overview', `content', or `all'. Before a local state change, it can have
- the values `folded', `children', or `subtree'."
- :group 'org-cycle
- :type 'hook)
- (defcustom org-cycle-hook '(org-cycle-hide-archived-subtrees
- org-cycle-hide-drawers
- org-cycle-show-empty-lines
- org-optimize-window-after-visibility-change)
- "Hook that is run after `org-cycle' has changed the buffer visibility.
- The function(s) in this hook must accept a single argument which indicates
- the new state that was set by the most recent `org-cycle' command. The
- argument is a symbol. After a global state change, it can have the values
- `overview', `content', or `all'. After a local state change, it can have
- the values `folded', `children', or `subtree'."
- :group 'org-cycle
- :type 'hook)
- (defgroup org-edit-structure nil
- "Options concerning structure editing in Org-mode."
- :tag "Org Edit Structure"
- :group 'org-structure)
- (defcustom org-odd-levels-only nil
- "Non-nil means skip even levels and only use odd levels for the outline.
- This has the effect that two stars are being added/taken away in
- promotion/demotion commands. It also influences how levels are
- handled by the exporters.
- Changing it requires restart of `font-lock-mode' to become effective
- for fontification also in regions already fontified.
- You may also set this on a per-file basis by adding one of the following
- lines to the buffer:
- #+STARTUP: odd
- #+STARTUP: oddeven"
- :group 'org-edit-structure
- :group 'org-appearance
- :type 'boolean)
- (defcustom org-adapt-indentation t
- "Non-nil means adapt indentation to outline node level.
- When this variable is set, Org assumes that you write outlines by
- indenting text in each node to align with the headline (after the stars).
- The following issues are influenced by this variable:
- - When this is set and the *entire* text in an entry is indented, the
- indentation is increased by one space in a demotion command, and
- decreased by one in a promotion command. If any line in the entry
- body starts with text at column 0, indentation is not changed at all.
- - Property drawers and planning information is inserted indented when
- this variable s set. When nil, they will not be indented.
- - TAB indents a line relative to context. The lines below a headline
- will be indented when this variable is set.
- Note that this is all about true indentation, by adding and removing
- space characters. See also `org-indent.el' which does level-dependent
- indentation in a virtual way, i.e. at display time in Emacs."
- :group 'org-edit-structure
- :type 'boolean)
- (defcustom org-special-ctrl-a/e nil
- "Non-nil means `C-a' and `C-e' behave specially in headlines and items.
- When t, `C-a' will bring back the cursor to the beginning of the
- headline text, i.e. after the stars and after a possible TODO keyword.
- In an item, this will be the position after the bullet.
- When the cursor is already at that position, another `C-a' will bring
- it to the beginning of the line.
- `C-e' will jump to the end of the headline, ignoring the presence of tags
- in the headline. A second `C-e' will then jump to the true end of the
- line, after any tags. This also means that, when this variable is
- non-nil, `C-e' also will never jump beyond the end of the heading of a
- folded section, i.e. not after the ellipses.
- When set to the symbol `reversed', the first `C-a' or `C-e' works normally,
- going to the true line boundary first. Only a directly following, identical
- keypress will bring the cursor to the special positions.
- This may also be a cons cell where the behavior for `C-a' and `C-e' is
- set separately."
- :group 'org-edit-structure
- :type '(choice
- (const :tag "off" nil)
- (const :tag "on: after stars/bullet and before tags first" t)
- (const :tag "reversed: true line boundary first" reversed)
- (cons :tag "Set C-a and C-e separately"
- (choice :tag "Special C-a"
- (const :tag "off" nil)
- (const :tag "on: after stars/bullet first" t)
- (const :tag "reversed: before stars/bullet first" reversed))
- (choice :tag "Special C-e"
- (const :tag "off" nil)
- (const :tag "on: before tags first" t)
- (const :tag "reversed: after tags first" reversed)))))
- (if (fboundp 'defvaralias)
- (defvaralias 'org-special-ctrl-a 'org-special-ctrl-a/e))
- (defcustom org-special-ctrl-k nil
- "Non-nil means `C-k' will behave specially in headlines.
- When nil, `C-k' will call the default `kill-line' command.
- When t, the following will happen while the cursor is in the headline:
- - When the cursor is at the beginning of a headline, kill the entire
- line and possible the folded subtree below the line.
- - When in the middle of the headline text, kill the headline up to the tags.
- - When after the headline text, kill the tags."
- :group 'org-edit-structure
- :type 'boolean)
- (defcustom org-ctrl-k-protect-subtree nil
- "Non-nil means, do not delete a hidden subtree with C-k.
- When set to the symbol `error', simply throw an error when C-k is
- used to kill (part-of) a headline that has hidden text behind it.
- Any other non-nil value will result in a query to the user, if it is
- OK to kill that hidden subtree. When nil, kill without remorse."
- :group 'org-edit-structure
- :type '(choice
- (const :tag "Do not protect hidden subtrees" nil)
- (const :tag "Protect hidden subtrees with a security query" t)
- (const :tag "Never kill a hidden subtree with C-k" error)))
- (defcustom org-yank-folded-subtrees t
- "Non-nil means when yanking subtrees, fold them.
- If the kill is a single subtree, or a sequence of subtrees, i.e. if
- it starts with a heading and all other headings in it are either children
- or siblings, then fold all the subtrees. However, do this only if no
- text after the yank would be swallowed into a folded tree by this action."
- :group 'org-edit-structure
- :type 'boolean)
- (defcustom org-yank-adjusted-subtrees nil
- "Non-nil means when yanking subtrees, adjust the level.
- With this setting, `org-paste-subtree' is used to insert the subtree, see
- this function for details."
- :group 'org-edit-structure
- :type 'boolean)
- (defcustom org-M-RET-may-split-line '((default . t))
- "Non-nil means M-RET will split the line at the cursor position.
- When nil, it will go to the end of the line before making a
- new line.
- You may also set this option in a different way for different
- contexts. Valid contexts are:
- headline when creating a new headline
- item when creating a new item
- table in a table field
- default the value to be used for all contexts not explicitly
- customized"
- :group 'org-structure
- :group 'org-table
- :type '(choice
- (const :tag "Always" t)
- (const :tag "Never" nil)
- (repeat :greedy t :tag "Individual contexts"
- (cons
- (choice :tag "Context"
- (const headline)
- (const item)
- (const table)
- (const default))
- (boolean)))))
- (defcustom org-insert-heading-respect-content nil
- "Non-nil means insert new headings after the current subtree.
- When nil, the new heading is created directly after the current line.
- The commands \\[org-insert-heading-respect-content] and
- \\[org-insert-todo-heading-respect-content] turn this variable on
- for the duration of the command."
- :group 'org-structure
- :type 'boolean)
- (defcustom org-blank-before-new-entry '((heading . auto)
- (plain-list-item . auto))
- "Should `org-insert-heading' leave a blank line before new heading/item?
- The value is an alist, with `heading' and `plain-list-item' as car,
- and a boolean flag as cdr. The cdr may also be the symbol `auto', and then
- Org will look at the surrounding headings/items and try to make an
- intelligent decision whether to insert a blank line or not.
- For plain lists, if the variable `org-empty-line-terminates-plain-lists' is
- set, the setting here is ignored and no empty line is inserted, to avoid
- breaking the list structure."
- :group 'org-edit-structure
- :type '(list
- (cons (const heading)
- (choice (const :tag "Never" nil)
- (const :tag "Always" t)
- (const :tag "Auto" auto)))
- (cons (const plain-list-item)
- (choice (const :tag "Never" nil)
- (const :tag "Always" t)
- (const :tag "Auto" auto)))))
- (defcustom org-insert-heading-hook nil
- "Hook being run after inserting a new heading."
- :group 'org-edit-structure
- :type 'hook)
- (defcustom org-enable-fixed-width-editor t
- "Non-nil means lines starting with \":\" are treated as fixed-width.
- This currently only means they are never auto-wrapped.
- When nil, such lines will be treated like ordinary lines.
- See also the QUOTE keyword."
- :group 'org-edit-structure
- :type 'boolean)
- (defcustom org-goto-auto-isearch t
- "Non-nil means typing characters in `org-goto' starts incremental search."
- :group 'org-edit-structure
- :type 'boolean)
- (defgroup org-sparse-trees nil
- "Options concerning sparse trees in Org-mode."
- :tag "Org Sparse Trees"
- :group 'org-structure)
- (defcustom org-highlight-sparse-tree-matches t
- "Non-nil means highlight all matches that define a sparse tree.
- The highlights will automatically disappear the next time the buffer is
- changed by an edit command."
- :group 'org-sparse-trees
- :type 'boolean)
- (defcustom org-remove-highlights-with-change t
- "Non-nil means any change to the buffer will remove temporary highlights.
- Such highlights are created by `org-occur' and `org-clock-display'.
- When nil, `C-c C-c needs to be used to get rid of the highlights.
- The highlights created by `org-preview-latex-fragment' always need
- `C-c C-c' to be removed."
- :group 'org-sparse-trees
- :group 'org-time
- :type 'boolean)
- (defcustom org-occur-hook '(org-first-headline-recenter)
- "Hook that is run after `org-occur' has constructed a sparse tree.
- This can be used to recenter the window to show as much of the structure
- as possible."
- :group 'org-sparse-trees
- :type 'hook)
- (defgroup org-imenu-and-speedbar nil
- "Options concerning imenu and speedbar in Org-mode."
- :tag "Org Imenu and Speedbar"
- :group 'org-structure)
- (defcustom org-imenu-depth 2
- "The maximum level for Imenu access to Org-mode headlines.
- This also applied for speedbar access."
- :group 'org-imenu-and-speedbar
- :type 'integer)
- (defgroup org-table nil
- "Options concerning tables in Org-mode."
- :tag "Org Table"
- :group 'org)
- (defcustom org-enable-table-editor 'optimized
- "Non-nil means lines starting with \"|\" are handled by the table editor.
- When nil, such lines will be treated like ordinary lines.
- When equal to the symbol `optimized', the table editor will be optimized to
- do the following:
- - Automatic overwrite mode in front of whitespace in table fields.
- This makes the structure of the table stay in tact as long as the edited
- field does not exceed the column width.
- - Minimize the number of realigns. Normally, the table is aligned each time
- TAB or RET are pressed to move to another field. With optimization this
- happens only if changes to a field might have changed the column width.
- Optimization requires replacing the functions `self-insert-command',
- `delete-char', and `backward-delete-char' in Org-mode buffers, with a
- slight (in fact: unnoticeable) speed impact for normal typing. Org-mode is
- very good at guessing when a re-align will be necessary, but you can always
- force one with \\[org-ctrl-c-ctrl-c].
- If you would like to use the optimized version in Org-mode, but the
- un-optimized version in OrgTbl-mode, see the variable `orgtbl-optimized'.
- This variable can be used to turn on and off the table editor during a session,
- but in order to toggle optimization, a restart is required.
- See also the variable `org-table-auto-blank-field'."
- :group 'org-table
- :type '(choice
- (const :tag "off" nil)
- (const :tag "on" t)
- (const :tag "on, optimized" optimized)))
- (defcustom org-self-insert-cluster-for-undo t
- "Non-nil means cluster self-insert commands for undo when possible.
- If this is set, then, like in the Emacs command loop, 20 consecutive
- characters will be undone together.
- This is configurable, because there is some impact on typing performance."
- :group 'org-table
- :type 'boolean)
- (defcustom org-table-tab-recognizes-table.el t
- "Non-nil means TAB will automatically notice a table.el table.
- When it sees such a table, it moves point into it and - if necessary -
- calls `table-recognize-table'."
- :group 'org-table-editing
- :type 'boolean)
- (defgroup org-link nil
- "Options concerning links in Org-mode."
- :tag "Org Link"
- :group 'org)
- (defvar org-link-abbrev-alist-local nil
- "Buffer-local version of `org-link-abbrev-alist', which see.
- The value of this is taken from the #+LINK lines.")
- (make-variable-buffer-local 'org-link-abbrev-alist-local)
- (defcustom org-link-abbrev-alist nil
- "Alist of link abbreviations.
- The car of each element is a string, to be replaced at the start of a link.
- The cdrs are replacement values, like (\"linkkey\" . REPLACE). Abbreviated
- links in Org-mode buffers can have an optional tag after a double colon, e.g.
- [[linkkey:tag][description]]
- The 'linkkey' must be a word word, starting with a letter, followed
- by letters, numbers, '-' or '_'.
- If REPLACE is a string, the tag will simply be appended to create the link.
- If the string contains \"%s\", the tag will be inserted there. Alternatively,
- the placeholder \"%h\" will cause a url-encoded version of the tag to
- be inserted at that point (see the function `url-hexify-string').
- REPLACE may also be a function that will be called with the tag as the
- only argument to create the link, which should be returned as a string.
- See the manual for examples."
- :group 'org-link
- :type '(repeat
- (cons
- (string :tag "Protocol")
- (choice
- (string :tag "Format")
- (function)))))
- (defcustom org-descriptive-links t
- "Non-nil means hide link part and only show description of bracket links.
- Bracket links are like [[link][description]]. This variable sets the initial
- state in new org-mode buffers. The setting can then be toggled on a
- per-buffer basis from the Org->Hyperlinks menu."
- :group 'org-link
- :type 'boolean)
- (defcustom org-link-file-path-type 'adaptive
- "How the path name in file links should be stored.
- Valid values are:
- relative Relative to the current directory, i.e. the directory of the file
- into which the link is being inserted.
- absolute Absolute path, if possible with ~ for home directory.
- noabbrev Absolute path, no abbreviation of home directory.
- adaptive Use relative path for files in the current directory and sub-
- directories of it. For other files, use an absolute path."
- :group 'org-link
- :type '(choice
- (const relative)
- (const absolute)
- (const noabbrev)
- (const adaptive)))
- (defcustom org-activate-links '(bracket angle plain radio tag date footnote)
- "Types of links that should be activated in Org-mode files.
- This is a list of symbols, each leading to the activation of a certain link
- type. In principle, it does not hurt to turn on most link types - there may
- be a small gain when turning off unused link types. The types are:
- bracket The recommended [[link][description]] or [[link]] links with hiding.
- angle Links in angular brackets that may contain whitespace like
- <bbdb:Carsten Dominik>.
- plain Plain links in normal text, no whitespace, like http://google.com.
- radio Text that is matched by a radio target, see manual for details.
- tag Tag settings in a headline (link to tag search).
- date Time stamps (link to calendar).
- footnote Footnote labels.
- Changing this variable requires a restart of Emacs to become effective."
- :group 'org-link
- :type '(set :greedy t
- (const :tag "Double bracket links" bracket)
- (const :tag "Angular bracket links" angle)
- (const :tag "Plain text links" plain)
- (const :tag "Radio target matches" radio)
- (const :tag "Tags" tag)
- (const :tag "Timestamps" date)
- (const :tag "Footnotes" footnote)))
- (defcustom org-make-link-description-function nil
- "Function to use to generate link descriptions from links.
- If nil the link location will be used. This function must take
- two parameters; the first is the link and the second the
- description `org-insert-link' has generated, and should return the
- description to use."
- :group 'org-link
- :type 'function)
- (defgroup org-link-store nil
- "Options concerning storing links in Org-mode."
- :tag "Org Store Link"
- :group 'org-link)
- (defcustom org-email-link-description-format "Email %c: %.30s"
- "Format of the description part of a link to an email or usenet message.
- The following %-escapes will be replaced by corresponding information:
- %F full \"From\" field
- %f name, taken from \"From\" field, address if no name
- %T full \"To\" field
- %t first name in \"To\" field, address if no name
- %c correspondent. Usually \"from NAME\", but if you sent it yourself, it
- will be \"to NAME\". See also the variable `org-from-is-user-regexp'.
- %s subject
- %d date
- %m message-id.
- You may use normal field width specification between the % and the letter.
- This is for example useful to limit the length of the subject.
- Examples: \"%f on: %.30s\", \"Email from %f\", \"Email %c\""
- :group 'org-link-store
- :type 'string)
- (defcustom org-from-is-user-regexp
- (let (r1 r2)
- (when (and user-mail-address (not (string= user-mail-address "")))
- (setq r1 (concat "\\<" (regexp-quote user-mail-address) "\\>")))
- (when (and user-full-name (not (string= user-full-name "")))
- (setq r2 (concat "\\<" (regexp-quote user-full-name) "\\>")))
- (if (and r1 r2) (concat r1 "\\|" r2) (or r1 r2)))
- "Regexp matched against the \"From:\" header of an email or usenet message.
- It should match if the message is from the user him/herself."
- :group 'org-link-store
- :type 'regexp)
- (defcustom org-link-to-org-use-id 'create-if-interactive-and-no-custom-id
- "Non-nil means storing a link to an Org file will use entry IDs.
- Note that before this variable is even considered, org-id must be loaded,
- so please customize `org-modules' and turn it on.
- The variable can have the following values:
- t Create an ID if needed to make a link to the current entry.
- create-if-interactive
- If `org-store-link' is called directly (interactively, as a user
- command), do create an ID to support the link. But when doing the
- job for remember, only use the ID if it already exists. The
- purpose of this setting is to avoid proliferation of unwanted
- IDs, just because you happen to be in an Org file when you
- call `org-remember' that automatically and preemptively
- creates a link. If you do want to get an ID link in a remember
- template to an entry not having an ID, create it first by
- explicitly creating a link to it, using `C-c C-l' first.
- create-if-interactive-and-no-custom-id
- Like create-if-interactive, but do not create an ID if there is
- a CUSTOM_ID property defined in the entry. This is the default.
- use-existing
- Use existing ID, do not create one.
- nil Never use an ID to make a link, instead link using a text search for
- the headline text."
- :group 'org-link-store
- :type '(choice
- (const :tag "Create ID to make link" t)
- (const :tag "Create if storing link interactively"
- create-if-interactive)
- (const :tag "Create if storing link interactively and no CUSTOM_ID is present"
- create-if-interactive-and-no-custom-id)
- (const :tag "Only use existing" use-existing)
- (const :tag "Do not use ID to create link" nil)))
- (defcustom org-context-in-file-links t
- "Non-nil means file links from `org-store-link' contain context.
- A search string will be added to the file name with :: as separator and
- used to find the context when the link is activated by the command
- `org-open-at-point'. When this option is t, the entire active region
- will be placed in the search string of the file link. If set to a
- positive integer, only the first n lines of context will be stored.
- Using a prefix arg to the command \\[org-store-link] (`org-store-link')
- negates this setting for the duration of the command."
- :group 'org-link-store
- :type '(choice boolean integer))
- (defcustom org-keep-stored-link-after-insertion nil
- "Non-nil means keep link in list for entire session.
- The command `org-store-link' adds a link pointing to the current
- location to an internal list. These links accumulate during a session.
- The command `org-insert-link' can be used to insert links into any
- Org-mode file (offering completion for all stored links). When this
- option is nil, every link which has been inserted once using \\[org-insert-link]
- will be removed from the list, to make completing the unused links
- more efficient."
- :group 'org-link-store
- :type 'boolean)
- (defgroup org-link-follow nil
- "Options concerning following links in Org-mode."
- :tag "Org Follow Link"
- :group 'org-link)
- (defcustom org-link-translation-function nil
- "Function to translate links with different syntax to Org syntax.
- This can be used to translate links created for example by the Planner
- or emacs-wiki packages to Org syntax.
- The function must accept two parameters, a TYPE containing the link
- protocol name like \"rmail\" or \"gnus\" as a string, and the linked path,
- which is everything after the link protocol. It should return a cons
- with possibly modified values of type and path.
- Org contains a function for this, so if you set this variable to
- `org-translate-link-from-planner', you should be able follow many
- links created by planner."
- :group 'org-link-follow
- :type 'function)
- (defcustom org-follow-link-hook nil
- "Hook that is run after a link has been followed."
- :group 'org-link-follow
- :type 'hook)
- (defcustom org-tab-follows-link nil
- "Non-nil means on links TAB will follow the link.
- Needs to be set before org.el is loaded.
- This really should not be used, it does not make sense, and the
- implementation is bad."
- :group 'org-link-follow
- :type 'boolean)
- (defcustom org-return-follows-link nil
- "Non-nil means on links RET will follow the link."
- :group 'org-link-follow
- :type 'boolean)
- (defcustom org-mouse-1-follows-link
- (if (boundp 'mouse-1-click-follows-link) mouse-1-click-follows-link t)
- "Non-nil means mouse-1 on a link will follow the link.
- A longer mouse click will still set point. Does not work on XEmacs.
- Needs to be set before org.el is loaded."
- :group 'org-link-follow
- :type 'boolean)
- (defcustom org-mark-ring-length 4
- "Number of different positions to be recorded in the ring.
- Changing this requires a restart of Emacs to work correctly."
- :group 'org-link-follow
- :type 'integer)
- (defcustom org-link-search-must-match-exact-headline 'query-to-create
- "Non-nil means internal links in Org files must exactly match a headline.
- When nil, the link search tries to match a phrase with all words
- in the search text."
- :group 'org-link-follow
- :type '(choice
- (const :tag "Use fuzy text search" nil)
- (const :tag "Match only exact headline" t)
- (const :tag "Match extact headline or query to create it"
- query-to-create)))
- (defcustom org-link-frame-setup
- '((vm . vm-visit-folder-other-frame)
- (gnus . org-gnus-no-new-news)
- (file . find-file-other-window)
- (wl . wl-other-frame))
- "Setup the frame configuration for following links.
- When following a link with Emacs, it may often be useful to display
- this link in another window or frame. This variable can be used to
- set this up for the different types of links.
- For VM, use any of
- `vm-visit-folder'
- `vm-visit-folder-other-window'
- `vm-visit-folder-other-frame'
- For Gnus, use any of
- `gnus'
- `gnus-other-frame'
- `org-gnus-no-new-news'
- For FILE, use any of
- `find-file'
- `find-file-other-window'
- `find-file-other-frame'
- For Wanderlust use any of
- `wl'
- `wl-other-frame'
- For the calendar, use the variable `calendar-setup'.
- For BBDB, it is currently only possible to display the matches in
- another window."
- :group 'org-link-follow
- :type '(list
- (cons (const vm)
- (choice
- (const vm-visit-folder)
- (const vm-visit-folder-other-window)
- (const vm-visit-folder-other-frame)))
- (cons (const gnus)
- (choice
- (const gnus)
- (const gnus-other-frame)
- (const org-gnus-no-new-news)))
- (cons (const file)
- (choice
- (const find-file)
- (const find-file-other-window)
- (const find-file-other-frame)))
- (cons (const wl)
- (choice
- (const wl)
- (const wl-other-frame)))))
- (defcustom org-display-internal-link-with-indirect-buffer nil
- "Non-nil means use indirect buffer to display infile links.
- Activating internal links (from one location in a file to another location
- in the same file) normally just jumps to the location. When the link is
- activated with a \\[universal-argument] prefix (or with mouse-3), the link \
- is displayed in
- another window. When this option is set, the other window actually displays
- an indirect buffer clone of the current buffer, to avoid any visibility
- changes to the current buffer."
- :group 'org-link-follow
- :type 'boolean)
- (defcustom org-open-non-existing-files nil
- "Non-nil means `org-open-file' will open non-existing files.
- When nil, an error will be generated.
- This variable applies only to external applications because they
- might choke on non-existing files. If the link is to a file that
- will be opened in Emacs, the variable is ignored."
- :group 'org-link-follow
- :type 'boolean)
- (defcustom org-open-directory-means-index-dot-org nil
- "Non-nil means a link to a directory really means to index.org.
- When nil, following a directory link will run dired or open a finder/explorer
- window on that directory."
- :group 'org-link-follow
- :type 'boolean)
- (defcustom org-link-mailto-program '(browse-url "mailto:%a?subject=%s")
- "Function and arguments to call for following mailto links.
- This is a list with the first element being a Lisp function, and the
- remaining elements being arguments to the function. In string arguments,
- %a will be replaced by the address, and %s will be replaced by the subject
- if one was given like in <mailto:arthur@galaxy.org::this subject>."
- :group 'org-link-follow
- :type '(choice
- (const :tag "browse-url" (browse-url-mail "mailto:%a?subject=%s"))
- (const :tag "compose-mail" (compose-mail "%a" "%s"))
- (const :tag "message-mail" (message-mail "%a" "%s"))
- (cons :tag "other" (function) (repeat :tag "argument" sexp))))
- (defcustom org-confirm-shell-link-function 'yes-or-no-p
- "Non-nil means ask for confirmation before executing shell links.
- Shell links can be dangerous: just think about a link
- [[shell:rm -rf ~/*][Google Search]]
- This link would show up in your Org-mode document as \"Google Search\",
- but really it would remove your entire home directory.
- Therefore we advise against setting this variable to nil.
- Just change it to `y-or-n-p' if you want to confirm with a
- single keystroke rather than having to type \"yes\"."
- :group 'org-link-follow
- :type '(choice
- (const :tag "with yes-or-no (safer)" yes-or-no-p)
- (const :tag "with y-or-n (faster)" y-or-n-p)
- (const :tag "no confirmation (dangerous)" nil)))
- (put 'org-confirm-shell-link-function
- 'safe-local-variable
- #'(lambda (x) (member x '(yes-or-no-p y-or-n-p))))
- (defcustom org-confirm-shell-link-not-regexp ""
- "A regexp to skip confirmation for shell links."
- :group 'org-link-follow
- :type 'regexp)
- (defcustom org-confirm-elisp-link-function 'yes-or-no-p
- "Non-nil means ask for confirmation before executing Emacs Lisp links.
- Elisp links can be dangerous: just think about a link
- [[elisp:(shell-command \"rm -rf ~/*\")][Google Search]]
- This link would show up in your Org-mode document as \"Google Search\",
- but really it would remove your entire home directory.
- Therefore we advise against setting this variable to nil.
- Just change it to `y-or-n-p' if you want to confirm with a
- single keystroke rather than having to type \"yes\"."
- :group 'org-link-follow
- :type '(choice
- (const :tag "with yes-or-no (safer)" yes-or-no-p)
- (const :tag "with y-or-n (faster)" y-or-n-p)
- (const :tag "no confirmation (dangerous)" nil)))
- (put 'org-confirm-shell-link-function
- 'safe-local-variable
- #'(lambda (x) (member x '(yes-or-no-p y-or-n-p))))
- (defcustom org-confirm-elisp-link-not-regexp ""
- "A regexp to skip confirmation for Elisp links."
- :group 'org-link-follow
- :type 'regexp)
- (defconst org-file-apps-defaults-gnu
- '((remote . emacs)
- (system . mailcap)
- (t . mailcap))
- "Default file applications on a UNIX or GNU/Linux system.
- See `org-file-apps'.")
- (defconst org-file-apps-defaults-macosx
- '((remote . emacs)
- (t . "open %s")
- (system . "open %s")
- ("ps.gz" . "gv %s")
- ("eps.gz" . "gv %s")
- ("dvi" . "xdvi %s")
- ("fig" . "xfig %s"))
- "Default file applications on a MacOS X system.
- The system \"open\" is known as a default, but we use X11 applications
- for some files for which the OS does not have a good default.
- See `org-file-apps'.")
- (defconst org-file-apps-defaults-windowsnt
- (list
- '(remote . emacs)
- (cons t
- (list (if (featurep 'xemacs)
- 'mswindows-shell-execute
- 'w32-shell-execute)
- "open" 'file))
- (cons 'system
- (list (if (featurep 'xemacs)
- 'mswindows-shell-execute
- 'w32-shell-execute)
- "open" 'file)))
- "Default file applications on a Windows NT system.
- The system \"open\" is used for most files.
- See `org-file-apps'.")
- (defcustom org-file-apps
- '(
- (auto-mode . emacs)
- ("\\.mm\\'" . default)
- ("\\.x?html?\\'" . default)
- ("\\.pdf\\'" . default)
- )
- "External applications for opening `file:path' items in a document.
- Org-mode uses system defaults for different file types, but
- you can use this variable to set the application for a given file
- extension. The entries in this list are cons cells where the car identifies
- files and the cdr the corresponding command. Possible values for the
- file identifier are
- \"string\" A string as a file identifier can be interpreted in different
- ways, depending on its contents:
- - Alphanumeric characters only:
- Match links with this file extension.
- Example: (\"pdf\" . \"evince %s\")
- to open PDFs with evince.
- - Regular expression: Match links where the
- filename matches the regexp. If you want to
- use groups here, use shy groups.
- Example: (\"\\.x?html\\'\" . \"firefox %s\")
- (\"\\(?:xhtml\\|html\\)\" . \"firefox %s\")
- to open *.html and *.xhtml with firefox.
- - Regular expression which contains (non-shy) groups:
- Match links where the whole link, including \"::\", and
- anything after that, matches the regexp.
- In a custom command string, %1, %2, etc. are replaced with
- the parts of the link that were matched by the groups.
- For backwards compatibility, if a command string is given
- that does not use any of the group matches, this case is
- handled identically to the second one (i.e. match against
- file name only).
- In a custom lisp form, you can access the group matches with
- (match-string n link).
- Example: (\"\\.pdf::\\(\\d+\\)\\'\" . \"evince -p %1 %s\")
- to open [[file:document.pdf::5]] with evince at page 5.
- `directory' Matches a directory
- `remote' Matches a remote file, accessible through tramp or efs.
- Remote files most likely should be visited through Emacs
- because external applications cannot handle such paths.
- `auto-mode' Matches files that are matched by any entry in `auto-mode-alist',
- so all files Emacs knows how to handle. Using this with
- command `emacs' will open most files in Emacs. Beware that this
- will also open html files inside Emacs, unless you add
- (\"html\" . default) to the list as well.
- t Default for files not matched by any of the other options.
- `system' The system command to open files, like `open' on Windows
- and Mac OS X, and mailcap under GNU/Linux. This is the command
- that will be selected if you call `C-c C-o' with a double
- \\[universal-argument] \\[universal-argument] prefix.
- Possible values for the command are:
- `emacs' The file will be visited by the current Emacs process.
- `default' Use the default application for this file type, which is the
- association for t in the list, most likely in the system-specific
- part.
- This can be used to overrule an unwanted setting in the
- system-specific variable.
- `system' Use the system command for opening files, like \"open\".
- This command is specified by the entry whose car is `system'.
- Most likely, the system-specific version of this variable
- does define this command, but you can overrule/replace it
- here.
- string A command to be executed by a shell; %s will be replaced
- by the path to the file.
- sexp A Lisp form which will be evaluated. The file path will
- be available in the Lisp variable `file'.
- For more examples, see the system specific constants
- `org-file-apps-defaults-macosx'
- `org-file-apps-defaults-windowsnt'
- `org-file-apps-defaults-gnu'."
- :group 'org-link-follow
- :type '(repeat
- (cons (choice :value ""
- (string :tag "Extension")
- (const :tag "System command to open files" system)
- (const :tag "Default for unrecognized files" t)
- (const :tag "Remote file" remote)
- (const :tag "Links to a directory" directory)
- (const :tag "Any files that have Emacs modes"
- auto-mode))
- (choice :value ""
- (const :tag "Visit with Emacs" emacs)
- (const :tag "Use default" default)
- (const :tag "Use the system command" system)
- (string :tag "Command")
- (sexp :tag "Lisp form")))))
- (defgroup org-refile nil
- "Options concerning refiling entries in Org-mode."
- :tag "Org Refile"
- :group 'org)
- (defcustom org-directory "~/org"
- "Directory with org files.
- This is just a default location to look for Org files. There is no need
- at all to put your files into this directory. It is only used in the
- following situations:
- 1. When a remember template specifies a target file that is not an
- absolute path. The path will then be interpreted relative to
- `org-directory'
- 2. When a remember note is filed away in an interactive way (when exiting the
- note buffer with `C-1 C-c C-c'. The user is prompted for an org file,
- with `org-directory' as the default path."
- :group 'org-refile
- :group 'org-remember
- :type 'directory)
- (defcustom org-default-notes-file (convert-standard-filename "~/.notes")
- "Default target for storing notes.
- Used as a fall back file for org-remember.el and org-capture.el, for
- templates that do not specify a target file."
- :group 'org-refile
- :group 'org-remember
- :type '(choice
- (const :tag "Default from remember-data-file" nil)
- file))
- (defcustom org-goto-interface 'outline
- "The default interface to be used for `org-goto'.
- Allowed values are:
- outline The interface shows an outline of the relevant file
- and the correct heading is found by moving through
- the outline or by searching with incremental search.
- outline-path-completion Headlines in the current buffer are offered via
- completion. This is the interface also used by
- the refile command."
- :group 'org-refile
- :type '(choice
- (const :tag "Outline" outline)
- (const :tag "Outline-path-completion" outline-path-completion)))
- (defcustom org-goto-max-level 5
- "Maximum target level when running `org-goto' with refile interface."
- :group 'org-refile
- :type 'integer)
- (defcustom org-reverse-note-order nil
- "Non-nil means store new notes at the beginning of a file or entry.
- When nil, new notes will be filed to the end of a file or entry.
- This can also be a list with cons cells of regular expressions that
- are matched against file names, and values."
- :group 'org-remember
- :group 'org-refile
- :type '(choice
- (const :tag "Reverse always" t)
- (const :tag "Reverse never" nil)
- (repeat :tag "By file name regexp"
- (cons regexp boolean))))
- (defcustom org-log-refile nil
- "Information to record when a task is refiled.
- Possible values are:
- nil Don't add anything
- time Add a time stamp to the task
- note Prompt for a note and add it with template `org-log-note-headings'
- This option can also be set with on a per-file-basis with
- #+STARTUP: nologrefile
- #+STARTUP: logrefile
- #+STARTUP: lognoterefile
- You can have local logging settings for a subtree by setting the LOGGING
- property to one or more of these keywords.
- When bulk-refiling from the agenda, the value `note' is forbidden and
- will temporarily be changed to `time'."
- :group 'org-refile
- :group 'org-progress
- :type '(choice
- (const :tag "No logging" nil)
- (const :tag "Record timestamp" time)
- (const :tag "Record timestamp with note." note)))
- (defcustom org-refile-targets nil
- "Targets for refiling entries with \\[org-refile].
- This is list of cons cells. Each cell contains:
- - a specification of the files to be considered, either a list of files,
- or a symbol whose function or variable value will be used to retrieve
- a file name or a list of file names. If you use `org-agenda-files' for
- that, all agenda files will be scanned for targets. Nil means consider
- headings in the current buffer.
- - A specification of how to find candidate refile targets. This may be
- any of:
- - a cons cell (:tag . \"TAG\") to identify refile targets by a tag.
- This tag has to be present in all target headlines, inheritance will
- not be considered.
- - a cons cell (:todo . \"KEYWORD\") to identify refile targets by
- todo keyword.
- - a cons cell (:regexp . \"REGEXP\") with a regular expression matching
- headlines that are refiling targets.
- - a cons cell (:level . N). Any headline of level N is considered a target.
- Note that, when `org-odd-levels-only' is set, level corresponds to
- order in hierarchy, not to the number of stars.
- - a cons cell (:maxlevel . N). Any headline with level <= N is a target.
- Note that, when `org-odd-levels-only' is set, level corresponds to
- order in hierarchy, not to the number of stars.
- You can set the variable `org-refile-target-verify-function' to a function
- to verify each headline found by the simple criteria above.
- When this variable is nil, all top-level headlines in the current buffer
- are used, equivalent to the value `((nil . (:level . 1))'."
- :group 'org-refile
- :type '(repeat
- (cons
- (choice :value org-agenda-files
- (const :tag "All agenda files" org-agenda-files)
- (const :tag "Current buffer" nil)
- (function) (variable) (file))
- (choice :tag "Identify target headline by"
- (cons :tag "Specific tag" (const :value :tag) (string))
- (cons :tag "TODO keyword" (const :value :todo) (string))
- (cons :tag "Regular expression" (const :value :regexp) (regexp))
- (cons :tag "Level number" (const :value :level) (integer))
- (cons :tag "Max Level number" (const :value :maxlevel) (integer))))))
- (defcustom org-refile-target-verify-function nil
- "Function to verify if the headline at point should be a refile target.
- The function will be called without arguments, with point at the
- beginning of the headline. It should return t and leave point
- where it is if the headline is a valid target for refiling.
- If the target should not be selected, the function must return nil.
- In addition to this, it may move point to a place from where the search
- should be continued. For example, the function may decide that the entire
- subtree of the current entry should be excluded and move point to the end
- of the subtree."
- :group 'org-refile
- :type 'function)
- (defcustom org-refile-use-cache nil
- "Non-nil means cache refile targets to speed up the process.
- The cache for a particular file will be updated automatically when
- the buffer has been killed, or when any of the marker used for flagging
- refile targets no longer points at a live buffer.
- If you have added new entries to a buffer that might themselves be targets,
- you need to clear the cache manually by pressing `C-0 C-c C-w' or, if you
- find that easier, `C-u C-u C-u C-c C-w'."
- :group 'org-refile
- :type 'boolean)
- (defcustom org-refile-use-outline-path nil
- "Non-nil means provide refile targets as paths.
- So a level 3 headline will be available as level1/level2/level3.
- When the value is `file', also include the file name (without directory)
- into the path. In this case, you can also stop the completion after
- the file name, to get entries inserted as top level in the file.
- When `full-file-path', include the full file path."
- :group 'org-refile
- :type '(choice
- (const :tag "Not" nil)
- (const :tag "Yes" t)
- (const :tag "Start with file name" file)
- (const :tag "Start with full file path" full-file-path)))
- (defcustom org-outline-path-complete-in-steps t
- "Non-nil means complete the outline path in hierarchical steps.
- When Org-mode uses the refile interface to select an outline path
- \(see variable `org-refile-use-outline-path'), the completion of
- the path can be done is a single go, or if can be done in steps down
- the headline hierarchy. Going in steps is probably the best if you
- do not use a special completion package like `ido' or `icicles'.
- However, when using these packages, going in one step can be very
- fast, while still showing the whole path to the entry."
- :group 'org-refile
- :type 'boolean)
- (defcustom org-refile-allow-creating-parent-nodes nil
- "Non-nil means allow to create new nodes as refile targets.
- New nodes are then created by adding \"/new node name\" to the completion
- of an existing node. When the value of this variable is `confirm',
- new node creation must be confirmed by the user (recommended)
- When nil, the completion must match an existing entry.
- Note that, if the new heading is not seen by the criteria
- listed in `org-refile-targets', multiple instances of the same
- heading would be created by trying again to file under the new
- heading."
- :group 'org-refile
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "Always" t)
- (const :tag "Prompt for confirmation" confirm)))
- (defgroup org-todo nil
- "Options concerning TODO items in Org-mode."
- :tag "Org TODO"
- :group 'org)
- (defgroup org-progress nil
- "Options concerning Progress logging in Org-mode."
- :tag "Org Progress"
- :group 'org-time)
- (defvar org-todo-interpretation-widgets
- '(
- (:tag "Sequence (cycling hits every state)" sequence)
- (:tag "Type (cycling directly to DONE)" type))
- "The available interpretation symbols for customizing `org-todo-keywords'.
- Interested libraries should add to this list.")
- (defcustom org-todo-keywords '((sequence "TODO" "DONE"))
- "List of TODO entry keyword sequences and their interpretation.
- \\<org-mode-map>This is a list of sequences.
- Each sequence starts with a symbol, either `sequence' or `type',
- indicating if the keywords should be interpreted as a sequence of
- action steps, or as different types of TODO items. The first
- keywords are states requiring action - these states will select a headline
- for inclusion into the global TODO list Org-mode produces. If one of
- the \"keywords\" is the vertical bar, \"|\", the remaining keywords
- signify that no further action is necessary. If \"|\" is not found,
- the last keyword is treated as the only DONE state of the sequence.
- The command \\[org-todo] cycles an entry through these states, and one
- additional state where no keyword is present. For details about this
- cycling, see the manual.
- TODO keywords and interpretation can also be set on a per-file basis with
- the special #+SEQ_TODO and #+TYP_TODO lines.
- Each keyword can optionally specify a character for fast state selection
- \(in combination with the variable `org-use-fast-todo-selection')
- and specifiers for state change logging, using the same syntax
- that is used in the \"#+TODO:\" lines. For example, \"WAIT(w)\" says
- that the WAIT state can be selected with the \"w\" key. \"WAIT(w!)\"
- indicates to record a time stamp each time this state is selected.
- Each keyword may also specify if a timestamp or a note should be
- recorded when entering or leaving the state, by adding additional
- characters in the parenthesis after the keyword. This looks like this:
- \"WAIT(w@/!)\". \"@\" means to add a note (with time), \"!\" means to
- record only the time of the state change. With X and Y being either
- \"@\" or \"!\", \"X/Y\" means use X when entering the state, and use
- Y when leaving the state if and only if the *target* state does not
- define X. You may omit any of the fast-selection key or X or /Y,
- so WAIT(w@), WAIT(w/@) and WAIT(@/@) are all valid.
- For backward compatibility, this variable may also be just a list
- of keywords - in this case the interpretation (sequence or type) will be
- taken from the (otherwise obsolete) variable `org-todo-interpretation'."
- :group 'org-todo
- :group 'org-keywords
- :type '(choice
- (repeat :tag "Old syntax, just keywords"
- (string :tag "Keyword"))
- (repeat :tag "New syntax"
- (cons
- (choice
- :tag "Interpretation"
- ;;Quick and dirty way to see
- ;;`org-todo-interpretations'. This takes the
- ;;place of item arguments
- :convert-widget
- (lambda (widget)
- (widget-put widget
- :args (mapcar
- #'(lambda (x)
- (widget-convert
- (cons 'const x)))
- org-todo-interpretation-widgets))
- widget))
- (repeat
- (string :tag "Keyword"))))))
- (defvar org-todo-keywords-1 nil
- "All TODO and DONE keywords active in a buffer.")
- (make-variable-buffer-local 'org-todo-keywords-1)
- (defvar org-todo-keywords-for-agenda nil)
- (defvar org-done-keywords-for-agenda nil)
- (defvar org-drawers-for-agenda nil)
- (defvar org-todo-keyword-alist-for-agenda nil)
- (defvar org-tag-alist-for-agenda nil)
- (defvar org-agenda-contributing-files nil)
- (defvar org-not-done-keywords nil)
- (make-variable-buffer-local 'org-not-done-keywords)
- (defvar org-done-keywords nil)
- (make-variable-buffer-local 'org-done-keywords)
- (defvar org-todo-heads nil)
- (make-variable-buffer-local 'org-todo-heads)
- (defvar org-todo-sets nil)
- (make-variable-buffer-local 'org-todo-sets)
- (defvar org-todo-log-states nil)
- (make-variable-buffer-local 'org-todo-log-states)
- (defvar org-todo-kwd-alist nil)
- (make-variable-buffer-local 'org-todo-kwd-alist)
- (defvar org-todo-key-alist nil)
- (make-variable-buffer-local 'org-todo-key-alist)
- (defvar org-todo-key-trigger nil)
- (make-variable-buffer-local 'org-todo-key-trigger)
- (defcustom org-todo-interpretation 'sequence
- "Controls how TODO keywords are interpreted.
- This variable is in principle obsolete and is only used for
- backward compatibility, if the interpretation of todo keywords is
- not given already in `org-todo-keywords'. See that variable for
- more information."
- :group 'org-todo
- :group 'org-keywords
- :type '(choice (const sequence)
- (const type)))
- (defcustom org-use-fast-todo-selection t
- "Non-nil means use the fast todo selection scheme with C-c C-t.
- This variable describes if and under what circumstances the cycling
- mechanism for TODO keywords will be replaced by a single-key, direct
- selection scheme.
- When nil, fast selection is never used.
- When the symbol `prefix', it will be used when `org-todo' is called with
- a prefix argument, i.e. `C-u C-c C-t' in an Org-mode buffer, and `C-u t'
- in an agenda buffer.
- When t, fast selection is used by default. In this case, the prefix
- argument forces cycling instead.
- In all cases, the special interface is only used if access keys have actually
- been assigned by the user, i.e. if keywords in the configuration are followed
- by a letter in parenthesis, like TODO(t)."
- :group 'org-todo
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "By default" t)
- (const :tag "Only with C-u C-c C-t" prefix)))
- (defcustom org-provide-todo-statistics t
- "Non-nil means update todo statistics after insert and toggle.
- ALL-HEADLINES means update todo statistics by including headlines
- with no TODO keyword as well, counting them as not done.
- A list of TODO keywords means the same, but skip keywords that are
- not in this list.
- When this is set, todo statistics is updated in the parent of the
- current entry each time a todo state is changed."
- :group 'org-todo
- :type '(choice
- (const :tag "Yes, only for TODO entries" t)
- (const :tag "Yes, including all entries" 'all-headlines)
- (repeat :tag "Yes, for TODOs in this list"
- (string :tag "TODO keyword"))
- (other :tag "No TODO statistics" nil)))
- (defcustom org-hierarchical-todo-statistics t
- "Non-nil means TODO statistics covers just direct children.
- When nil, all entries in the subtree are considered.
- This has only an effect if `org-provide-todo-statistics' is set.
- To set this to nil for only a single subtree, use a COOKIE_DATA
- property and include the word \"recursive\" into the value."
- :group 'org-todo
- :type 'boolean)
- (defcustom org-after-todo-state-change-hook nil
- "Hook which is run after the state of a TODO item was changed.
- The new state (a string with a TODO keyword, or nil) is available in the
- Lisp variable `state'."
- :group 'org-todo
- :type 'hook)
- (defvar org-blocker-hook nil
- "Hook for functions that are allowed to block a state change.
- Each function gets as its single argument a property list, see
- `org-trigger-hook' for more information about this list.
- If any of the functions in this hook returns nil, the state change
- is blocked.")
- (defvar org-trigger-hook nil
- "Hook for functions that are triggered by a state change.
- Each function gets as its single argument a property list with at least
- the following elements:
- (:type type-of-change :position pos-at-entry-start
- :from old-state :to new-state)
- Depending on the type, more properties may be present.
- This mechanism is currently implemented for:
- TODO state changes
- ------------------
- :type todo-state-change
- :from previous state (keyword as a string), or nil, or a symbol
- 'todo' or 'done', to indicate the general type of state.
- :to new state, like in :from")
- (defcustom org-enforce-todo-dependencies nil
- "Non-nil means undone TODO entries will block switching the parent to DONE.
- Also, if a parent has an :ORDERED: property, switching an entry to DONE will
- be blocked if any prior sibling is not yet done.
- Finally, if the parent is blocked because of ordered siblings of its own,
- the child will also be blocked.
- This variable needs to be set before org.el is loaded, and you need to
- restart Emacs after a change to make the change effective. The only way
- to change is while Emacs is running is through the customize interface."
- :set (lambda (var val)
- (set var val)
- (if val
- (add-hook 'org-blocker-hook
- 'org-block-todo-from-children-or-siblings-or-parent)
- (remove-hook 'org-blocker-hook
- 'org-block-todo-from-children-or-siblings-or-parent)))
- :group 'org-todo
- :type 'boolean)
- (defcustom org-enforce-todo-checkbox-dependencies nil
- "Non-nil means unchecked boxes will block switching the parent to DONE.
- When this is nil, checkboxes have no influence on switching TODO states.
- When non-nil, you first need to check off all check boxes before the TODO
- entry can be switched to DONE.
- This variable needs to be set before org.el is loaded, and you need to
- restart Emacs after a change to make the change effective. The only way
- to change is while Emacs is running is through the customize interface."
- :set (lambda (var val)
- (set var val)
- (if val
- (add-hook 'org-blocker-hook
- 'org-block-todo-from-checkboxes)
- (remove-hook 'org-blocker-hook
- 'org-block-todo-from-checkboxes)))
- :group 'org-todo
- :type 'boolean)
- (defcustom org-treat-insert-todo-heading-as-state-change nil
- "Non-nil means inserting a TODO heading is treated as state change.
- So when the command \\[org-insert-todo-heading] is used, state change
- logging will apply if appropriate. When nil, the new TODO item will
- be inserted directly, and no logging will take place."
- :group 'org-todo
- :type 'boolean)
- (defcustom org-treat-S-cursor-todo-selection-as-state-change t
- "Non-nil means switching TODO states with S-cursor counts as state change.
- This is the default behavior. However, setting this to nil allows a
- convenient way to select a TODO state and bypass any logging associated
- with that."
- :group 'org-todo
- :type 'boolean)
- (defcustom org-todo-state-tags-triggers nil
- "Tag changes that should be triggered by TODO state changes.
- This is a list. Each entry is
- (state-change (tag . flag) .......)
- State-change can be a string with a state, and empty string to indicate the
- state that has no TODO keyword, or it can be one of the symbols `todo'
- or `done', meaning any not-done or done state, respectively."
- :group 'org-todo
- :group 'org-tags
- :type '(repeat
- (cons (choice :tag "When changing to"
- (const :tag "Not-done state" todo)
- (const :tag "Done state" done)
- (string :tag "State"))
- (repeat
- (cons :tag "Tag action"
- (string :tag "Tag")
- (choice (const :tag "Add" t) (const :tag "Remove" nil)))))))
- (defcustom org-log-done nil
- "Information to record when a task moves to the DONE state.
- Possible values are:
- nil Don't add anything, just change the keyword
- time Add a time stamp to the task
- note Prompt for a note and add it with template `org-log-note-headings'
- This option can also be set with on a per-file-basis with
- #+STARTUP: nologdone
- #+STARTUP: logdone
- #+STARTUP: lognotedone
- You can have local logging settings for a subtree by setting the LOGGING
- property to one or more of these keywords."
- :group 'org-todo
- :group 'org-progress
- :type '(choice
- (const :tag "No logging" nil)
- (const :tag "Record CLOSED timestamp" time)
- (const :tag "Record CLOSED timestamp with note." note)))
- ;; Normalize old uses of org-log-done.
- (cond
- ((eq org-log-done t) (setq org-log-done 'time))
- ((and (listp org-log-done) (memq 'done org-log-done))
- (setq org-log-done 'note)))
- (defcustom org-log-reschedule nil
- "Information to record when the scheduling date of a tasks is modified.
- Possible values are:
- nil Don't add anything, just change the date
- time Add a time stamp to the task
- note Prompt for a note and add it with template `org-log-note-headings'
- This option can also be set with on a per-file-basis with
- #+STARTUP: nologreschedule
- #+STARTUP: logreschedule
- #+STARTUP: lognotereschedule"
- :group 'org-todo
- :group 'org-progress
- :type '(choice
- (const :tag "No logging" nil)
- (const :tag "Record timestamp" time)
- (const :tag "Record timestamp with note." note)))
- (defcustom org-log-redeadline nil
- "Information to record when the deadline date of a tasks is modified.
- Possible values are:
- nil Don't add anything, just change the date
- time Add a time stamp to the task
- note Prompt for a note and add it with template `org-log-note-headings'
- This option can also be set with on a per-file-basis with
- #+STARTUP: nologredeadline
- #+STARTUP: logredeadline
- #+STARTUP: lognoteredeadline
- You can have local logging settings for a subtree by setting the LOGGING
- property to one or more of these keywords."
- :group 'org-todo
- :group 'org-progress
- :type '(choice
- (const :tag "No logging" nil)
- (const :tag "Record timestamp" time)
- (const :tag "Record timestamp with note." note)))
- (defcustom org-log-note-clock-out nil
- "Non-nil means record a note when clocking out of an item.
- This can also be configured on a per-file basis by adding one of
- the following lines anywhere in the buffer:
- #+STARTUP: lognoteclock-out
- #+STARTUP: nolognoteclock-out"
- :group 'org-todo
- :group 'org-progress
- :type 'boolean)
- (defcustom org-log-done-with-time t
- "Non-nil means the CLOSED time stamp will contain date and time.
- When nil, only the date will be recorded."
- :group 'org-progress
- :type 'boolean)
- (defcustom org-log-note-headings
- '((done . "CLOSING NOTE %t")
- (state . "State %-12s from %-12S %t")
- (note . "Note taken on %t")
- (reschedule . "Rescheduled from %S on %t")
- (delschedule . "Not scheduled, was %S on %t")
- (redeadline . "New deadline from %S on %t")
- (deldeadline . "Removed deadline, was %S on %t")
- (refile . "Refiled on %t")
- (clock-out . ""))
- "Headings for notes added to entries.
- The value is an alist, with the car being a symbol indicating the note
- context, and the cdr is the heading to be used. The heading may also be the
- empty string.
- %t in the heading will be replaced by a time stamp.
- %T will be an active time stamp instead the default inactive one
- %s will be replaced by the new TODO state, in double quotes.
- %S will be replaced by the old TODO state, in double quotes.
- %u will be replaced by the user name.
- %U will be replaced by the full user name.
- In fact, it is not a good idea to change the `state' entry, because
- agenda log mode depends on the format of these entries."
- :group 'org-todo
- :group 'org-progress
- :type '(list :greedy t
- (cons (const :tag "Heading when closing an item" done) string)
- (cons (const :tag
- "Heading when changing todo state (todo sequence only)"
- state) string)
- (cons (const :tag "Heading when just taking a note" note) string)
- (cons (const :tag "Heading when clocking out" clock-out) string)
- (cons (const :tag "Heading when an item is no longer scheduled" delschedule) string)
- (cons (const :tag "Heading when rescheduling" reschedule) string)
- (cons (const :tag "Heading when changing deadline" redeadline) string)
- (cons (const :tag "Heading when deleting a deadline" deldeadline) string)
- (cons (const :tag "Heading when refiling" refile) string)))
- (unless (assq 'note org-log-note-headings)
- (push '(note . "%t") org-log-note-headings))
- (defcustom org-log-into-drawer nil
- "Non-nil means insert state change notes and time stamps into a drawer.
- When nil, state changes notes will be inserted after the headline and
- any scheduling and clock lines, but not inside a drawer.
- The value of this variable should be the name of the drawer to use.
- LOGBOOK is proposed at the default drawer for this purpose, you can
- also set this to a string to define the drawer of your choice.
- A value of t is also allowed, representing \"LOGBOOK\".
- If this variable is set, `org-log-state-notes-insert-after-drawers'
- will be ignored.
- You can set the property LOG_INTO_DRAWER to overrule this setting for
- a subtree."
- :group 'org-todo
- :group 'org-progress
- :type '(choice
- (const :tag "Not into a drawer" nil)
- (const :tag "LOGBOOK" t)
- (string :tag "Other")))
- (if (fboundp 'defvaralias)
- (defvaralias 'org-log-state-notes-into-drawer 'org-log-into-drawer))
- (defun org-log-into-drawer ()
- "Return the value of `org-log-into-drawer', but let properties overrule.
- If the current entry has or inherits a LOG_INTO_DRAWER property, it will be
- used instead of the default value."
- (let ((p (org-entry-get nil "LOG_INTO_DRAWER" 'inherit)))
- (cond
- ((or (not p) (equal p "nil")) org-log-into-drawer)
- ((equal p "t") "LOGBOOK")
- (t p))))
- (defcustom org-log-state-notes-insert-after-drawers nil
- "Non-nil means insert state change notes after any drawers in entry.
- Only the drawers that *immediately* follow the headline and the
- deadline/scheduled line are skipped.
- When nil, insert notes right after the heading and perhaps the line
- with deadline/scheduling if present.
- This variable will have no effect if `org-log-into-drawer' is
- set."
- :group 'org-todo
- :group 'org-progress
- :type 'boolean)
- (defcustom org-log-states-order-reversed t
- "Non-nil means the latest state note will be directly after heading.
- When nil, the state change notes will be ordered according to time."
- :group 'org-todo
- :group 'org-progress
- :type 'boolean)
- (defcustom org-todo-repeat-to-state nil
- "The TODO state to which a repeater should return the repeating task.
- By default this is the first task in a TODO sequence, or the previous state
- in a TODO_TYP set. But you can specify another task here.
- alternatively, set the :REPEAT_TO_STATE: property of the entry."
- :group 'org-todo
- :type '(choice (const :tag "Head of sequence" nil)
- (string :tag "Specific state")))
- (defcustom org-log-repeat 'time
- "Non-nil means record moving through the DONE state when triggering repeat.
- An auto-repeating task is immediately switched back to TODO when
- marked DONE. If you are not logging state changes (by adding \"@\"
- or \"!\" to the TODO keyword definition), or set `org-log-done' to
- record a closing note, there will be no record of the task moving
- through DONE. This variable forces taking a note anyway.
- nil Don't force a record
- time Record a time stamp
- note Record a note
- This option can also be set with on a per-file-basis with
- #+STARTUP: logrepeat
- #+STARTUP: lognoterepeat
- #+STARTUP: nologrepeat
- You can have local logging settings for a subtree by setting the LOGGING
- property to one or more of these keywords."
- :group 'org-todo
- :group 'org-progress
- :type '(choice
- (const :tag "Don't force a record" nil)
- (const :tag "Force recording the DONE state" time)
- (const :tag "Force recording a note with the DONE state" note)))
- (defgroup org-priorities nil
- "Priorities in Org-mode."
- :tag "Org Priorities"
- :group 'org-todo)
- (defcustom org-enable-priority-commands t
- "Non-nil means priority commands are active.
- When nil, these commands will be disabled, so that you never accidentally
- set a priority."
- :group 'org-priorities
- :type 'boolean)
- (defcustom org-highest-priority ?A
- "The highest priority of TODO items. A character like ?A, ?B etc.
- Must have a smaller ASCII number than `org-lowest-priority'."
- :group 'org-priorities
- :type 'character)
- (defcustom org-lowest-priority ?C
- "The lowest priority of TODO items. A character like ?A, ?B etc.
- Must have a larger ASCII number than `org-highest-priority'."
- :group 'org-priorities
- :type 'character)
- (defcustom org-default-priority ?B
- "The default priority of TODO items.
- This is the priority an item gets if no explicit priority is given.
- When starting to cycle on an empty priority the first step in the cycle
- depends on `org-priority-start-cycle-with-default'. The resulting first
- step priority must not exceed the range from `org-highest-priority' to
- `org-lowest-priority' which means that `org-default-priority' has to be
- in this range exclusive or inclusive the range boundaries. Else the
- first step refuses to set the default and the second will fall back
- to (depending on the command used) the highest or lowest priority."
- :group 'org-priorities
- :type 'character)
- (defcustom org-priority-start-cycle-with-default t
- "Non-nil means start with default priority when starting to cycle.
- When this is nil, the first step in the cycle will be (depending on the
- command used) one higher or lower than the default priority.
- See also `org-default-priority'."
- :group 'org-priorities
- :type 'boolean)
- (defcustom org-get-priority-function nil
- "Function to extract the priority from a string.
- The string is normally the headline. If this is nil Org computes the
- priority from the priority cookie like [#A] in the headline. It returns
- an integer, increasing by 1000 for each priority level.
- The user can set a different function here, which should take a string
- as an argument and return the numeric priority."
- :group 'org-priorities
- :type 'function)
- (defgroup org-time nil
- "Options concerning time stamps and deadlines in Org-mode."
- :tag "Org Time"
- :group 'org)
- (defcustom org-insert-labeled-timestamps-at-point nil
- "Non-nil means SCHEDULED and DEADLINE timestamps are inserted at point.
- When nil, these labeled time stamps are forces into the second line of an
- entry, just after the headline. When scheduling from the global TODO list,
- the time stamp will always be forced into the second line."
- :group 'org-time
- :type 'boolean)
- (defconst org-time-stamp-formats '("<%Y-%m-%d %a>" . "<%Y-%m-%d %a %H:%M>")
- "Formats for `format-time-string' which are used for time stamps.
- It is not recommended to change this constant.")
- (defcustom org-time-stamp-rounding-minutes '(0 5)
- "Number of minutes to round time stamps to.
- These are two values, the first applies when first creating a time stamp.
- The second applies when changing it with the commands `S-up' and `S-down'.
- When changing the time stamp, this means that it will change in steps
- of N minutes, as given by the second value.
- When a setting is 0 or 1, insert the time unmodified. Useful rounding
- numbers should be factors of 60, so for example 5, 10, 15.
- When this is larger than 1, you can still force an exact time stamp by using
- a double prefix argument to a time stamp command like `C-c .' or `C-c !',
- and by using a prefix arg to `S-up/down' to specify the exact number
- of minutes to shift."
- :group 'org-time
- :get #'(lambda (var) ; Make sure both elements are there
- (if (integerp (default-value var))
- (list (default-value var) 5)
- (default-value var)))
- :type '(list
- (integer :tag "when inserting times")
- (integer :tag "when modifying times")))
- ;; Normalize old customizations of this variable.
- (when (integerp org-time-stamp-rounding-minutes)
- (setq org-time-stamp-rounding-minutes
- (list org-time-stamp-rounding-minutes
- org-time-stamp-rounding-minutes)))
- (defcustom org-display-custom-times nil
- "Non-nil means overlay custom formats over all time stamps.
- The formats are defined through the variable `org-time-stamp-custom-formats'.
- To turn this on on a per-file basis, insert anywhere in the file:
- #+STARTUP: customtime"
- :group 'org-time
- :set 'set-default
- :type 'sexp)
- (make-variable-buffer-local 'org-display-custom-times)
- (defcustom org-time-stamp-custom-formats
- '("<%m/%d/%y %a>" . "<%m/%d/%y %a %H:%M>") ; american
- "Custom formats for time stamps. See `format-time-string' for the syntax.
- These are overlayed over the default ISO format if the variable
- `org-display-custom-times' is set. Time like %H:%M should be at the
- end of the second format. The custom formats are also honored by export
- commands, if custom time display is turned on at the time of export."
- :group 'org-time
- :type 'sexp)
- (defun org-time-stamp-format (&optional long inactive)
- "Get the right format for a time string."
- (let ((f (if long (cdr org-time-stamp-formats)
- (car org-time-stamp-formats))))
- (if inactive
- (concat "[" (substring f 1 -1) "]")
- f)))
- (defcustom org-time-clocksum-format "%d:%02d"
- "The format string used when creating CLOCKSUM lines.
- This is also used when org-mode generates a time duration."
- :group 'org-time
- :type 'string)
- (defcustom org-time-clocksum-use-fractional nil
- "If non-nil, \\[org-clock-display] uses fractional times.
- org-mode generates a time duration."
- :group 'org-time
- :type 'boolean)
- (defcustom org-time-clocksum-fractional-format "%.2f"
- "The format string used when creating CLOCKSUM lines, or when
- org-mode generates a time duration."
- :group 'org-time
- :type 'string)
- (defcustom org-deadline-warning-days 14
- "No. of days before expiration during which a deadline becomes active.
- This variable governs the display in sparse trees and in the agenda.
- When 0 or negative, it means use this number (the absolute value of it)
- even if a deadline has a different individual lead time specified.
- Custom commands can set this variable in the options section."
- :group 'org-time
- :group 'org-agenda-daily/weekly
- :type 'integer)
- (defcustom org-read-date-prefer-future t
- "Non-nil means assume future for incomplete date input from user.
- This affects the following situations:
- 1. The user gives a month but not a year.
- For example, if it is April and you enter \"feb 2\", this will be read
- as Feb 2, *next* year. \"May 5\", however, will be this year.
- 2. The user gives a day, but no month.
- For example, if today is the 15th, and you enter \"3\", Org-mode will
- read this as the third of *next* month. However, if you enter \"17\",
- it will be considered as *this* month.
- If you set this variable to the symbol `time', then also the following
- will work:
- 3. If the user gives a time, but no day. If the time is before now,
- to will be interpreted as tomorrow.
- Currently none of this works for ISO week specifications.
- When this option is nil, the current day, month and year will always be
- used as defaults.
- See also `org-agenda-jump-prefer-future'."
- :group 'org-time
- :type '(choice
- (const :tag "Never" nil)
- (const :tag "Check month and day" t)
- (const :tag "Check month, day, and time" time)))
- (defcustom org-agenda-jump-prefer-future 'org-read-date-prefer-future
- "Should the agenda jump command prefer the future for incomplete dates?
- The default is to do the same as configured in `org-read-date-prefer-future'.
- But you can also set a deviating value here.
- This may t or nil, or the symbol `org-read-date-prefer-future'."
- :group 'org-agenda
- :group 'org-time
- :type '(choice
- (const :tag "Use org-read-date-prefer-future"
- org-read-date-prefer-future)
- (const :tag "Never" nil)
- (const :tag "Always" t)))
- (defcustom org-read-date-force-compatible-dates t
- "Should date/time prompt force dates that are guaranteed to work in Emacs?
- Depending on the system Emacs is running on, certain dates cannot
- be represented with the type used internally to represent time.
- Dates between 1970-1-1 and 2038-1-1 can always be represented
- correctly. Some systems allow for earlier dates, some for later,
- some for both. One way to find out it to insert any date into an
- Org buffer, putting the cursor on the year and hitting S-up and
- S-down to test the range.
- When this variable is set to t, the date/time prompt will not let
- you specify dates outside the 1970-2037 range, so it is certain that
- these dates will work in whatever version of Emacs you are
- running, and also that you can move a file from one Emacs implementation
- to another. WHenever Org is forcing the year for you, it will display
- a message and beep.
- When this variable is nil, Org will check if the date is
- representable in the specific Emacs implementation you are using.
- If not, it will force a year, usually the current year, and beep
- to remind you. Currently this setting is not recommended because
- the likelihood that you will open your Org files in an Emacs that
- has limited date range is not negligible.
- A workaround for this problem is to use diary sexp dates for time
- stamps outside of this range."
- :group 'org-time
- :type 'boolean)
- (defcustom org-read-date-display-live t
- "Non-nil means display current interpretation of date prompt live.
- This display will be in an overlay, in the minibuffer."
- :group 'org-time
- :type 'boolean)
- (defcustom org-read-date-popup-calendar t
- "Non-nil means pop up a calendar when prompting for a date.
- In the calendar, the date can be selected with mouse-1. However, the
- minibuffer will also be active, and you can simply enter the date as well.
- When nil, only the minibuffer will be available."
- :group 'org-time
- :type 'boolean)
- (if (fboundp 'defvaralias)
- (defvaralias 'org-popup-calendar-for-date-prompt
- 'org-read-date-popup-calendar))
- (defcustom org-read-date-minibuffer-setup-hook nil
- "Hook to be used to set up keys for the date/time interface.
- Add key definitions to `minibuffer-local-map', which will be a temporary
- copy."
- :group 'org-time
- :type 'hook)
- (defcustom org-extend-today-until 0
- "The hour when your day really ends. Must be an integer.
- This has influence for the following applications:
- - When switching the agenda to \"today\". It it is still earlier than
- the time given here, the day recognized as TODAY is actually yesterday.
- - When a date is read from the user and it is still before the time given
- here, the current date and time will be assumed to be yesterday, 23:59.
- Also, timestamps inserted in remember templates follow this rule.
- IMPORTANT: This is a feature whose implementation is and likely will
- remain incomplete. Really, it is only here because past midnight seems to
- be the favorite working time of John Wiegley :-)"
- :group 'org-time
- :type 'integer)
- (defcustom org-edit-timestamp-down-means-later nil
- "Non-nil means S-down will increase the time in a time stamp.
- When nil, S-up will increase."
- :group 'org-time
- :type 'boolean)
- (defcustom org-calendar-follow-timestamp-change t
- "Non-nil means make the calendar window follow timestamp changes.
- When a timestamp is modified and the calendar window is visible, it will be
- moved to the new date."
- :group 'org-time
- :type 'boolean)
- (defgroup org-tags nil
- "Options concerning tags in Org-mode."
- :tag "Org Tags"
- :group 'org)
- (defcustom org-tag-alist nil
- "List of tags allowed in Org-mode files.
- When this list is nil, Org-mode will base TAG input on what is already in the
- buffer.
- The value of this variable is an alist, the car of each entry must be a
- keyword as a string, the cdr may be a character that is used to select
- that tag through the fast-tag-selection interface.
- See the manual for details."
- :group 'org-tags
- :type '(repeat
- (choice
- (cons (string :tag "Tag name")
- (character :tag "Access char"))
- (list :tag "Start radio group"
- (const :startgroup)
- (option (string :tag "Group description")))
- (list :tag "End radio group"
- (const :endgroup)
- (option (string :tag "Group description")))
- (const :tag "New line" (:newline)))))
- (defcustom org-tag-persistent-alist nil
- "List of tags that will always appear in all Org-mode files.
- This is in addition to any in buffer settings or customizations
- of `org-tag-alist'.
- When this list is nil, Org-mode will base TAG input on `org-tag-alist'.
- The value of this variable is an alist, the car of each entry must be a
- keyword as a string, the cdr may be a character that is used to select
- that tag through the fast-tag-selection interface.
- See the manual for details.
- To disable these tags on a per-file basis, insert anywhere in the file:
- #+STARTUP: noptag"
- :group 'org-tags
- :type '(repeat
- (choice
- (cons (string :tag "Tag name")
- (character :tag "Access char"))
- (const :tag "Start radio group" (:startgroup))
- (const :tag "End radio group" (:endgroup))
- (const :tag "New line" (:newline)))))
- (defcustom org-complete-tags-always-offer-all-agenda-tags nil
- "If non-nil, always offer completion for all tags of all agenda files.
- Instead of customizing this variable directly, you might want to
- set it locally for capture buffers, because there no list of
- tags in that file can be created dynamically (there are none).
- (add-hook 'org-capture-mode-hook
- (lambda ()
- (set (make-local-variable
- 'org-complete-tags-always-offer-all-agenda-tags)
- t)))"
- :group 'org-tags
- :type 'boolean)
- (defvar org-file-tags nil
- "List of tags that can be inherited by all entries in the file.
- The tags will be inherited if the variable `org-use-tag-inheritance'
- says they should be.
- This variable is populated from #+FILETAGS lines.")
- (defcustom org-use-fast-tag-selection 'auto
- "Non-nil means use fast tag selection scheme.
- This is a special interface to select and deselect tags with single keys.
- When nil, fast selection is never used.
- When the symbol `auto', fast selection is used if and only if selection
- characters for tags have been configured, either through the variable
- `org-tag-alist' or through a #+TAGS line in the buffer.
- When t, fast selection is always used and selection keys are assigned
- automatically if necessary."
- :group 'org-tags
- :type '(choice
- (const :tag "Always" t)
- (const :tag "Never" nil)
- (const :tag "When selection characters are configured" 'auto)))
- (defcustom org-fast-tag-selection-single-key nil
- "Non-nil means fast tag selection exits after first change.
- When nil, you have to press RET to exit it.
- During fast tag selection, you can toggle this flag with `C-c'.
- This variable can also have the value `expert'. In this case, the window
- displaying the tags menu is not even shown, until you press C-c again."
- :group 'org-tags
- :type '(choice
- (const :tag "No" nil)
- (const :tag "Yes" t)
- (const :tag "Expert" expert)))
- (defvar org-fast-tag-selection-include-todo nil
- "Non-nil means fast tags selection interface will also offer TODO states.
- This is an undocumented feature, you should not rely on it.")
- (defcustom org-tags-column (if (featurep 'xemacs) -76 -77)
- "The column to which tags should be indented in a headline.
- If this number is positive, it specifies the column. If it is negative,
- it means that the tags should be flushright to that column. For example,
- -80 works well for a normal 80 character screen."
- :group 'org-tags
- :type 'integer)
- (defcustom org-auto-align-tags t
- "Non-nil keeps tags aligned when modifying headlines.
- Some operations (i.e. demoting) change the length of a headline and
- therefore shift the tags around. With this option turned on, after
- each such operation the tags are again aligned to `org-tags-column'."
- :group 'org-tags
- :type 'boolean)
- (defcustom org-use-tag-inheritance t
- "Non-nil means tags in levels apply also for sublevels.
- When nil, only the tags directly given in a specific line apply there.
- This may also be a list of tags that should be inherited, or a regexp that
- matches tags that should be inherited. Additional control is possible
- with the variable `org-tags-exclude-from-inheritance' which gives an
- explicit list of tags to be excluded from inheritance., even if the value of
- `org-use-tag-inheritance' would select it for inheritance.
- If this option is t, a match early-on in a tree can lead to a large
- number of matches in the subtree when constructing the agenda or creating
- a sparse tree. If you only want to see the first match in a tree during
- a search, check out the variable `org-tags-match-list-sublevels'."
- :group 'org-tags
- :type '(choice
- (const :tag "Not" nil)
- (const :tag "Always" t)
- (repeat :tag "Specific tags" (string :tag "Tag"))
- (regexp :tag "Tags matched by regexp")))
- (defcustom org-tags-exclude-from-inheritance nil
- "List of tags that should never be inherited.
- This is a way to exclude a few tags from inheritance. For way to do
- the opposite, to actively allow inheritance for selected tags,
- see the variable `org-use-tag-inheritance'."
- :group 'org-tags
- :type '(repeat (string :tag "Tag")))
- (defun org-tag-inherit-p (tag)
- "Check if TAG is one that should be inherited."
- (cond
- ((member tag org-tags-exclude-from-inheritance) nil)
- ((eq org-use-tag-inheritance t) t)
- ((not org-use-tag-inheritance) nil)
- ((stringp org-use-tag-inheritance)
- (string-match org-use-tag-inheritance tag))
- ((listp org-use-tag-inheritance)
- (member tag org-use-tag-inheritance))
- (t (error "Invalid setting of `org-use-tag-inheritance'"))))
- (defcustom org-tags-match-list-sublevels t
- "Non-nil means list also sublevels of headlines matching a search.
- This variable applies to tags/property searches, and also to stuck
- projects because this search is based on a tags match as well.
- When set to the symbol `indented', sublevels are indented with
- leading dots.
- Because of tag inheritance (see variable `org-use-tag-inheritance'),
- the sublevels of a headline matching a tag search often also match
- the same search. Listing all of them can create very long lists.
- Setting this variable to nil causes subtrees of a match to be skipped.
- This variable is semi-obsolete and probably should always be true. It
- is better to limit inheritance to certain tags using the variables
- `org-use-tag-inheritance' and `org-tags-exclude-from-inheritance'."
- :group 'org-tags
- :type '(choice
- (const :tag "No, don't list them" nil)
- (const :tag "Yes, do list them" t)
- (const :tag "List them, indented with leading dots" indented)))
- (defcustom org-tags-sort-function nil
- "When set, tags are sorted using this function as a comparator."
- :group 'org-tags
- :type '(choice
- (const :tag "No sorting" nil)
- (const :tag "Alphabetical" string<)
- (const :tag "Reverse alphabetical" string>)
- (function :tag "Custom function" nil)))
- (defvar org-tags-history nil
- "History of minibuffer reads for tags.")
- (defvar org-last-tags-completion-table nil
- "The last used completion table for tags.")
- (defvar org-after-tags-change-hook nil
- "Hook that is run after the tags in a line have changed.")
- (defgroup org-properties nil
- "Options concerning properties in Org-mode."
- :tag "Org Properties"
- :group 'org)
- (defcustom org-property-format "%-10s %s"
- "How property key/value pairs should be formatted by `indent-line'.
- When `indent-line' hits a property definition, it will format the line
- according to this format, mainly to make sure that the values are
- lined-up with respect to each other."
- :group 'org-properties
- :type 'string)
- (defcustom org-use-property-inheritance nil
- "Non-nil means properties apply also for sublevels.
- This setting is chiefly used during property searches. Turning it on can
- cause significant overhead when doing a search, which is why it is not
- on by default.
- When nil, only the properties directly given in the current entry count.
- When t, every property is inherited. The value may also be a list of
- properties that should have inheritance, or a regular expression matching
- properties that should be inherited.
- However, note that some special properties use inheritance under special
- circumstances (not in searches). Examples are CATEGORY, ARCHIVE, COLUMNS,
- and the properties ending in \"_ALL\" when they are used as descriptor
- for valid values of a property.
- Note for programmers:
- When querying an entry with `org-entry-get', you can control if inheritance
- should be used. By default, `org-entry-get' looks only at the local
- properties. You can request inheritance by setting the inherit argument
- to t (to force inheritance) or to `selective' (to respect the setting
- in this variable)."
- :group 'org-properties
- :type '(choice
- (const :tag "Not" nil)
- (const :tag "Always" t)
- (repeat :tag "Specific properties" (string :tag "Property"))
- (regexp :tag "Properties matched by regexp")))
- (defun org-property-inherit-p (property)
- "Check if PROPERTY is one that should be inherited."
- (cond
- ((eq org-use-property-inheritance t) t)
- ((not org-use-property-inheritance) nil)
- ((stringp org-use-property-inheritance)
- (string-match org-use-property-inheritance property))
- ((listp org-use-property-inheritance)
- (member property org-use-property-inheritance))
- (t (error "Invalid setting of `org-use-property-inheritance'"))))
- (defcustom org-columns-default-format "%25ITEM %TODO %3PRIORITY %TAGS"
- "The default column format, if no other format has been defined.
- This variable can be set on the per-file basis by inserting a line
- #+COLUMNS: %25ITEM ....."
- :group 'org-properties
- :type 'string)
- (defcustom org-columns-ellipses ".."
- "The ellipses to be used when a field in column view is truncated.
- When this is the empty string, as many characters as possible are shown,
- but then there will be no visual indication that the field has been truncated.
- When this is a string of length N, the last N characters of a truncated
- field are replaced by this string. If the column is narrower than the
- ellipses string, only part of the ellipses string will be shown."
- :group 'org-properties
- :type 'string)
- (defcustom org-columns-modify-value-for-display-function nil
- "Function that modifies values for display in column view.
- For example, it can be used to cut out a certain part from a time stamp.
- The function must take 2 arguments:
- column-title The title of the column (*not* the property name)
- value The value that should be modified.
- The function should return the value that should be displayed,
- or nil if the normal value should be used."
- :group 'org-properties
- :type 'function)
- (defcustom org-effort-property "Effort"
- "The property that is being used to keep track of effort estimates.
- Effort estimates given in this property need to have the format H:MM."
- :group 'org-properties
- :group 'org-progress
- :type '(string :tag "Property"))
- (defconst org-global-properties-fixed
- '(("VISIBILITY_ALL" . "folded children content all")
- ("CLOCK_MODELINE_TOTAL_ALL" . "current today repeat all auto"))
- "List of property/value pairs that can be inherited by any entry.
- These are fixed values, for the preset properties. The user variable
- that can be used to add to this list is `org-global-properties'.
- The entries in this list are cons cells where the car is a property
- name and cdr is a string with the value. If the value represents
- multiple items like an \"_ALL\" property, separate the items by
- spaces.")
- (defcustom org-global-properties nil
- "List of property/value pairs that can be inherited by any entry.
- This list will be combined with the constant `org-global-properties-fixed'.
- The entries in this list are cons cells where the car is a property
- name and cdr is a string with the value.
- You can set buffer-local values for the same purpose in the variable
- `org-file-properties' this by adding lines like
- #+PROPERTY: NAME VALUE"
- :group 'org-properties
- :type '(repeat
- (cons (string :tag "Property")
- (string :tag "Value"))))
- (defvar org-file-properties nil
- "List of property/value pairs that can be inherited by any entry.
- Valid for the current buffer.
- This variable is populated from #+PROPERTY lines.")
- (make-variable-buffer-local 'org-file-properties)
- (defgroup org-agenda nil
- "Options concerning agenda views in Org-mode."
- :tag "Org Agenda"
- :group 'org)
- (defvar org-category nil
- "Variable used by org files to set a category for agenda display.
- Such files should use a file variable to set it, for example
- # -*- mode: org; org-category: \"ELisp\"
- or contain a special line
- #+CATEGORY: ELisp
- If the file does not specify a category, then file's base name
- is used instead.")
- (make-variable-buffer-local 'org-category)
- (put 'org-category 'safe-local-variable #'(lambda (x) (or (symbolp x) (stringp x))))
- (defcustom org-agenda-files nil
- "The files to be used for agenda display.
- Entries may be added to this list with \\[org-agenda-file-to-front] and removed with
- \\[org-remove-file]. You can also use customize to edit the list.
- If an entry is a directory, all files in that directory that are matched by
- `org-agenda-file-regexp' will be part of the file list.
- If the value of the variable is not a list but a single file name, then
- the list of agenda files is actually stored and maintained in that file, one
- agenda file per line. In this file paths can be given relative to
- `org-directory'. Tilde expansion and environment variable substitution
- are also made."
- :group 'org-agenda
- :type '(choice
- (repeat :tag "List of files and directories" file)
- (file :tag "Store list in a file\n" :value "~/.agenda_files")))
- (defcustom org-agenda-file-regexp "\\`[^.].*\\.org\\'"
- "Regular expression to match files for `org-agenda-files'.
- If any element in the list in that variable contains a directory instead
- of a normal file, all files in that directory that are matched by this
- regular expression will be included."
- :group 'org-agenda
- :type 'regexp)
- (defcustom org-agenda-text-search-extra-files nil
- "List of extra files to be searched by text search commands.
- These files will be search in addition to the agenda files by the
- commands `org-search-view' (`C-c a s') and `org-occur-in-agenda-files'.
- Note that these files will only be searched for text search commands,
- not for the other agenda views like todo lists, tag searches or the weekly
- agenda. This variable is intended to list notes and possibly archive files
- that should also be searched by these two commands.
- In fact, if the first element in the list is the symbol `agenda-archives',
- than all archive files of all agenda files will be added to the search
- scope."
- :group 'org-agenda
- :type '(set :greedy t
- (const :tag "Agenda Archives" agenda-archives)
- (repeat :inline t (file))))
- (if (fboundp 'defvaralias)
- (defvaralias 'org-agenda-multi-occur-extra-files
- 'org-agenda-text-search-extra-files))
- (defcustom org-agenda-skip-unavailable-files nil
- "Non-nil means to just skip non-reachable files in `org-agenda-files'.
- A nil value means to remove them, after a query, from the list."
- :group 'org-agenda
- :type 'boolean)
- (defcustom org-calendar-to-agenda-key [?c]
- "The key to be installed in `calendar-mode-map' for switching to the agenda.
- The command `org-calendar-goto-agenda' will be bound to this key. The
- default is the character `c' because then `c' can be used to switch back and
- forth between agenda and calendar."
- :group 'org-agenda
- :type 'sexp)
- (defcustom org-calendar-agenda-action-key [?k]
- "The key to be installed in `calendar-mode-map' for agenda-action.
- The command `org-agenda-action' will be bound to this key. The
- default is the character `k' because we use the same key in the agenda."
- :group 'org-agenda
- :type 'sexp)
- (defcustom org-calendar-insert-diary-entry-key [?i]
- "The key to be installed in `calendar-mode-map' for adding diary entries.
- This option is irrelevant until `org-agenda-diary-file' has been configured
- to point to an Org-mode file. When that is the case, the command
- `org-agenda-diary-entry' will be bound to the key given here, by default
- `i'. In the calendar, `i' normally adds entries to `diary-file'. So
- if you want to continue doing this, you need to change this to a different
- key."
- :group 'org-agenda
- :type 'sexp)
- (defcustom org-agenda-diary-file 'diary-file
- "File to which to add new entries with the `i' key in agenda and calendar.
- When this is the symbol `diary-file', the functionality in the Emacs
- calendar will be used to add entries to the `diary-file'. But when this
- points to a file, `org-agenda-diary-entry' will be used instead."
- :group 'org-agenda
- :type '(choice
- (const :tag "The standard Emacs diary file" diary-file)
- (file :tag "Special Org file diary entries")))
- (eval-after-load "calendar"
- '(progn
- (org-defkey calendar-mode-map org-calendar-to-agenda-key
- 'org-calendar-goto-agenda)
- (org-defkey calendar-mode-map org-calendar-agenda-action-key
- 'org-agenda-action)
- (add-hook 'calendar-mode-hook
- (lambda ()
- (unless (eq org-agenda-diary-file 'diary-file)
- (define-key calendar-mode-map
- org-calendar-insert-diary-entry-key
- 'org-agenda-diary-entry))))))
- (defgroup org-latex nil
- "Options for embedding LaTeX code into Org-mode."
- :tag "Org LaTeX"
- :group 'org)
- (defcustom org-format-latex-options
- '(:foreground default :background default :scale 1.0
- :html-foreground "Black" :html-background "Transparent"
- :html-scale 1.0 :matchers ("begin" "$1" "$" "$$" "\\(" "\\["))
- "Options for creating images from LaTeX fragments.
- This is a property list with the following properties:
- :foreground the foreground color for images embedded in Emacs, e.g. \"Black\".
- `default' means use the foreground of the default face.
- :background the background color, or \"Transparent\".
- `default' means use the background of the default face.
- :scale a scaling factor for the size of the images, to get more pixels
- :html-foreground, :html-background, :html-scale
- the same numbers for HTML export.
- :matchers a list indicating which matchers should be used to
- find LaTeX fragments. Valid members of this list are:
- \"begin\" find environments
- \"$1\" find single characters surrounded by $.$
- \"$\" find math expressions surrounded by $...$
- \"$$\" find math expressions surrounded by $$....$$
- \"\\(\" find math expressions surrounded by \\(...\\)
- \"\\ [\" find math expressions surrounded by \\ [...\\]"
- :group 'org-latex
- :type 'plist)
- (defcustom org-format-latex-signal-error t
- "Non-nil means signal an error when image creation of LaTeX snippets fails.
- When nil, just push out a message."
- :group 'org-latex
- :type 'boolean)
- (defcustom org-format-latex-header "\\documentclass{article}
- \\usepackage[usenames]{color}
- \\usepackage{amsmath}
- \\usepackage[mathscr]{eucal}
- \\pagestyle{empty} % do not remove
- \[PACKAGES]
- \[DEFAULT-PACKAGES]
- % The settings below are copied from fullpage.sty
- \\setlength{\\textwidth}{\\paperwidth}
- \\addtolength{\\textwidth}{-3cm}
- \\setlength{\\oddsidemargin}{1.5cm}
- \\addtolength{\\oddsidemargin}{-2.54cm}
- \\setlength{\\evensidemargin}{\\oddsidemargin}
- \\setlength{\\textheight}{\\paperheight}
- \\addtolength{\\textheight}{-\\headheight}
- \\addtolength{\\textheight}{-\\headsep}
- \\addtolength{\\textheight}{-\\footskip}
- \\addtolength{\\textheight}{-3cm}
- \\setlength{\\topmargin}{1.5cm}
- \\addtolength{\\topmargin}{-2.54cm}"
- "The document header used for processing LaTeX fragments.
- It is imperative that this header make sure that no page number
- appears on the page. The package defined in the variables
- `org-export-latex-default-packages-alist' and `org-export-latex-packages-alist'
- will either replace the placeholder \"[PACKAGES]\" in this header, or they
- will be appended."
- :group 'org-latex
- :type 'string)
- (defvar org-format-latex-header-extra nil)
- (defun org-set-packages-alist (var val)
- "Set the packages alist and make sure it has 3 elements per entry."
- (set var (mapcar (lambda (x)
- (if (and (consp x) (= (length x) 2))
- (list (car x) (nth 1 x) t)
- x))
- val)))
- (defun org-get-packages-alist (var)
- "Get the packages alist and make sure it has 3 elements per entry."
- (mapcar (lambda (x)
- (if (and (consp x) (= (length x) 2))
- (list (car x) (nth 1 x) t)
- x))
- (default-value var)))
- ;; The following variables are defined here because is it also used
- ;; when formatting latex fragments. Originally it was part of the
- ;; LaTeX exporter, which is why the name includes "export".
- (defcustom org-export-latex-default-packages-alist
- '(("AUTO" "inputenc" t)
- ("T1" "fontenc" t)
- ("" "fixltx2e" nil)
- ("" "graphicx" t)
- ("" "longtable" nil)
- ("" "float" nil)
- ("" "wrapfig" nil)
- ("" "soul" t)
- ("" "textcomp" t)
- ("" "marvosym" t)
- ("" "wasysym" t)
- ("" "latexsym" t)
- ("" "amssymb" t)
- ("" "hyperref" nil)
- "\\tolerance=1000"
- )
- "Alist of default packages to be inserted in the header.
- Change this only if one of the packages here causes an incompatibility
- with another package you are using.
- The packages in this list are needed by one part or another of Org-mode
- to function properly.
- - inputenc, fontenc: for basic font and character selection
- - textcomp, marvosymb, wasysym, latexsym, amssym: for various symbols used
- for interpreting the entities in `org-entities'. You can skip some of these
- packages if you don't use any of the symbols in it.
- - graphicx: for including images
- - float, wrapfig: for figure placement
- - longtable: for long tables
- - hyperref: for cross references
- Therefore you should not modify this variable unless you know what you
- are doing. The one reason to change it anyway is that you might be loading
- some other package that conflicts with one of the default packages.
- Each cell is of the format \( \"options\" \"package\" snippet-flag\).
- If SNIPPET-FLAG is t, the package also needs to be included when
- compiling LaTeX snippets into images for inclusion into HTML."
- :group 'org-export-latex
- :set 'org-set-packages-alist
- :get 'org-get-packages-alist
- :type '(repeat
- (choice
- (list :tag "options/package pair"
- (string :tag "options")
- (string :tag "package")
- (boolean :tag "Snippet"))
- (string :tag "A line of LaTeX"))))
- (defcustom org-export-latex-packages-alist nil
- "Alist of packages to be inserted in every LaTeX header.
- These will be inserted after `org-export-latex-default-packages-alist'.
- Each cell is of the format \( \"options\" \"package\" snippet-flag \).
- SNIPPET-FLAG, when t, indicates that this package is also needed when
- turning LaTeX snippets into images for inclusion into HTML.
- Make sure that you only list packages here which:
- - you want in every file
- - do not conflict with the default packages in
- `org-export-latex-default-packages-alist'
- - do not conflict with the setup in `org-format-latex-header'."
- :group 'org-export-latex
- :set 'org-set-packages-alist
- :get 'org-get-packages-alist
- :type '(repeat
- (choice
- (list :tag "options/package pair"
- (string :tag "options")
- (string :tag "package")
- (boolean :tag "Snippet"))
- (string :tag "A line of LaTeX"))))
- (defgroup org-appearance nil
- "Settings for Org-mode appearance."
- :tag "Org Appearance"
- :group 'org)
- (defcustom org-level-color-stars-only nil
- "Non-nil means fontify only the stars in each headline.
- When nil, the entire headline is fontified.
- Changing it requires restart of `font-lock-mode' to become effective
- also in regions already fontified."
- :group 'org-appearance
- :type 'boolean)
- (defcustom org-hide-leading-stars nil
- "Non-nil means hide the first N-1 stars in a headline.
- This works by using the face `org-hide' for these stars. This
- face is white for a light background, and black for a dark
- background. You may have to customize the face `org-hide' to
- make this work.
- Changing it requires restart of `font-lock-mode' to become effective
- also in regions already fontified.
- You may also set this on a per-file basis by adding one of the following
- lines to the buffer:
- #+STARTUP: hidestars
- #+STARTUP: showstars"
- :group 'org-appearance
- :type 'boolean)
- (defcustom org-hidden-keywords nil
- "List of symbols corresponding to keywords to be hidden the org buffer.
- For example, a value '(title) for this list will make the document's title
- appear in the buffer without the initial #+TITLE: keyword."
- :group 'org-appearance
- :type '(set (const :tag "#+AUTHOR" author)
- (const :tag "#+DATE" date)
- (const :tag "#+EMAIL" email)
- (const :tag "#+TITLE" title)))
- (defcustom org-fontify-done-headline nil
- "Non-nil means change the face of a headline if it is marked DONE.
- Normally, only the TODO/DONE keyword indicates the state of a headline.
- When this is non-nil, the headline after the keyword is set to the
- `org-headline-done' as an additional indication."
- :group 'org-appearance
- :type 'boolean)
- (defcustom org-fontify-emphasized-text t
- "Non-nil means fontify *bold*, /italic/ and _underlined_ text.
- Changing this variable requires a restart of Emacs to take effect."
- :group 'org-appearance
- :type 'boolean)
- (defcustom org-fontify-whole-heading-line nil
- "Non-nil means fontify the whole line for headings.
- This is useful when setting a background color for the
- org-level-* faces."
- :group 'org-appearance
- :type 'boolean)
- (defcustom org-highlight-latex-fragments-and-specials nil
- "Non-nil means fontify what is treated specially by the exporters."
- :group 'org-appearance
- :type 'boolean)
- (defcustom org-hide-emphasis-markers nil
- "Non-nil mean font-lock should hide the emphasis marker characters."
- :group 'org-appearance
- :type 'boolean)
- (defcustom org-pretty-entities nil
- "Non-nil means show entities as UTF8 characters.
- When nil, the \\name form remains in the buffer."
- :group 'org-appearance
- :type 'boolean)
- (defcustom org-pretty-entities-include-sub-superscripts t
- "Non-nil means, pretty entity display includes formatting sub/superscripts."
- :group 'org-appearance
- :type 'boolean)
- (defvar org-emph-re nil
- "Regular expression for matching emphasis.
- After a match, the match groups contain these elements:
- 0 The match of the full regular expression, including the characters
- before and after the proper match
- 1 The character before the proper match, or empty at beginning of line
- 2 The proper match, including the leading and trailing markers
- 3 The leading marker like * or /, indicating the type of highlighting
- 4 The text between the emphasis markers, not including the markers
- 5 The character after the match, empty at the end of a line")
- (defvar org-verbatim-re nil
- "Regular expression for matching verbatim text.")
- (defvar org-emphasis-regexp-components) ; defined just below
- (defvar org-emphasis-alist) ; defined just below
- (defun org-set-emph-re (var val)
- "Set variable and compute the emphasis regular expression."
- (set var val)
- (when (and (boundp 'org-emphasis-alist)
- (boundp 'org-emphasis-regexp-components)
- org-emphasis-alist org-emphasis-regexp-components)
- (let* ((e org-emphasis-regexp-components)
- (pre (car e))
- (post (nth 1 e))
- (border (nth 2 e))
- (body (nth 3 e))
- (nl (nth 4 e))
- (body1 (concat body "*?"))
- (markers (mapconcat 'car org-emphasis-alist ""))
- (vmarkers (mapconcat
- (lambda (x) (if (eq (nth 4 x) 'verbatim) (car x) ""))
- org-emphasis-alist "")))
- ;; make sure special characters appear at the right position in the class
- (if (string-match "\\^" markers)
- (setq markers (concat (replace-match "" t t markers) "^")))
- (if (string-match "-" markers)
- (setq markers (concat (replace-match "" t t markers) "-")))
- (if (string-match "\\^" vmarkers)
- (setq vmarkers (concat (replace-match "" t t vmarkers) "^")))
- (if (string-match "-" vmarkers)
- (setq vmarkers (concat (replace-match "" t t vmarkers) "-")))
- (if (> nl 0)
- (setq body1 (concat body1 "\\(?:\n" body "*?\\)\\{0,"
- (int-to-string nl) "\\}")))
- ;; Make the regexp
- (setq org-emph-re
- (concat "\\([" pre "]\\|^\\)"
- "\\("
- "\\([" markers "]\\)"
- "\\("
- "[^" border "]\\|"
- "[^" border "]"
- body1
- "[^" border "]"
- "\\)"
- "\\3\\)"
- "\\([" post "]\\|$\\)"))
- (setq org-verbatim-re
- (concat "\\([" pre "]\\|^\\)"
- "\\("
- "\\([" vmarkers "]\\)"
- "\\("
- "[^" border "]\\|"
- "[^" border "]"
- body1
- "[^" border "]"
- "\\)"
- "\\3\\)"
- "\\([" post "]\\|$\\)")))))
- (defcustom org-emphasis-regexp-components
- '(" \t('\"{" "- \t.,:!?;'\")}\\" " \t\r\n,\"'" "." 1)
- "Components used to build the regular expression for emphasis.
- This is a list with five entries. Terminology: In an emphasis string
- like \" *strong word* \", we call the initial space PREMATCH, the final
- space POSTMATCH, the stars MARKERS, \"s\" and \"d\" are BORDER characters
- and \"trong wor\" is the body. The different components in this variable
- specify what is allowed/forbidden in each part:
- pre Chars allowed as prematch. Beginning of line will be allowed too.
- post Chars allowed as postmatch. End of line will be allowed too.
- border The chars *forbidden* as border characters.
- body-regexp A regexp like \".\" to match a body character. Don't use
- non-shy groups here, and don't allow newline here.
- newline The maximum number of newlines allowed in an emphasis exp.
- Use customize to modify this, or restart Emacs after changing it."
- :group 'org-appearance
- :set 'org-set-emph-re
- :type '(list
- (sexp :tag "Allowed chars in pre ")
- (sexp :tag "Allowed chars in post ")
- (sexp :tag "Forbidden chars in border ")
- (sexp :tag "Regexp for body ")
- (integer :tag "number of newlines allowed")
- (option (boolean :tag "Please ignore this button"))))
- (defcustom org-emphasis-alist
- `(("*" bold "<b>" "</b>")
- ("/" italic "<i>" "</i>")
- ("_" underline "<span style=\"text-decoration:underline;\">" "</span>")
- ("=" org-code "<code>" "</code>" verbatim)
- ("~" org-verbatim "<code>" "</code>" verbatim)
- ("+" ,(if (featurep 'xemacs) 'org-table '(:strike-through t))
- "<del>" "</del>")
- )
- "Special syntax for emphasized text.
- Text starting and ending with a special character will be emphasized, for
- example *bold*, _underlined_ and /italic/. This variable sets the marker
- characters, the face to be used by font-lock for highlighting in Org-mode
- Emacs buffers, and the HTML tags to be used for this.
- For LaTeX export, see the variable `org-export-latex-emphasis-alist'.
- For DocBook export, see the variable `org-export-docbook-emphasis-alist'.
- Use customize to modify this, or restart Emacs after changing it."
- :group 'org-appearance
- :set 'org-set-emph-re
- :type '(repeat
- (list
- (string :tag "Marker character")
- (choice
- (face :tag "Font-lock-face")
- (plist :tag "Face property list"))
- (string :tag "HTML start tag")
- (string :tag "HTML end tag")
- (option (const verbatim)))))
- (defvar org-protecting-blocks
- '("src" "example" "latex" "ascii" "html" "docbook" "ditaa" "dot" "r" "R")
- "Blocks that contain text that is quoted, i.e. not processed as Org syntax.
- This is needed for font-lock setup.")
- ;;; Miscellaneous options
- (defgroup org-completion nil
- "Completion in Org-mode."
- :tag "Org Completion"
- :group 'org)
- (defcustom org-completion-use-ido nil
- "Non-nil means use ido completion wherever possible.
- Note that `ido-mode' must be active for this variable to be relevant.
- If you decide to turn this variable on, you might well want to turn off
- `org-outline-path-complete-in-steps'.
- See also `org-completion-use-iswitchb'."
- :group 'org-completion
- :type 'boolean)
- (defcustom org-completion-use-iswitchb nil
- "Non-nil means use iswitchb completion wherever possible.
- Note that `iswitchb-mode' must be active for this variable to be relevant.
- If you decide to turn this variable on, you might well want to turn off
- `org-outline-path-complete-in-steps'.
- Note that this variable has only an effect if `org-completion-use-ido' is nil."
- :group 'org-completion
- :type 'boolean)
- (defcustom org-completion-fallback-command 'hippie-expand
- "The expansion command called by \\[pcomplete] in normal context.
- Normal means, no org-mode-specific context."
- :group 'org-completion
- :type 'function)
- ;;; Functions and variables from their packages
- ;; Declared here to avoid compiler warnings
- ;; XEmacs only
- (defvar outline-mode-menu-heading)
- (defvar outline-mode-menu-show)
- (defvar outline-mode-menu-hide)
- (defvar zmacs-regions) ; XEmacs regions
- ;; Emacs only
- (defvar mark-active)
- ;; Various packages
- (declare-function calendar-absolute-from-iso "cal-iso" (date))
- (declare-function calendar-forward-day "cal-move" (arg))
- (declare-function calendar-goto-date "cal-move" (date))
- (declare-function calendar-goto-today "cal-move" ())
- (declare-function calendar-iso-from-absolute "cal-iso" (date))
- (defvar calc-embedded-close-formula)
- (defvar calc-embedded-open-formula)
- (declare-function cdlatex-tab "ext:cdlatex" ())
- (declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep))
- (defvar font-lock-unfontify-region-function)
- (declare-function iswitchb-read-buffer "iswitchb"
- (prompt &optional default require-match start matches-set))
- (defvar iswitchb-temp-buflist)
- (declare-function org-gnus-follow-link "org-gnus" (&optional group article))
- (defvar org-agenda-tags-todo-honor-ignore-options)
- (declare-function org-agenda-skip "org-agenda" ())
- (declare-function
- org-format-agenda-item "org-agenda"
- (extra txt &optional category tags dotime noprefix remove-re habitp))
- (declare-function org-agenda-new-marker "org-agenda" (&optional pos))
- (declare-function org-agenda-change-all-lines "org-agenda"
- (newhead hdmarker &optional fixface just-this))
- (declare-function org-agenda-set-restriction-lock "org-agenda" (&optional type))
- (declare-function org-agenda-maybe-redo "org-agenda" ())
- (declare-function org-agenda-save-markers-for-cut-and-paste "org-agenda"
- (beg end))
- (declare-function org-agenda-copy-local-variable "org-agenda" (var))
- (declare-function org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item
- "org-agenda" (&optional end))
- (declare-function org-inlinetask-remove-END-maybe "org-inlinetask" ())
- (declare-function org-inlinetask-in-task-p "org-inlinetask" ())
- (declare-function org-inlinetask-goto-beginning "org-inlinetask" ())
- (declare-function org-inlinetask-goto-end "org-inlinetask" ())
- (declare-function org-indent-mode "org-indent" (&optional arg))
- (declare-function parse-time-string "parse-time" (string))
- (declare-function org-attach-reveal "org-attach" (&optional if-exists))
- (declare-function org-export-latex-fix-inputenc "org-latex" ())
- (declare-function orgtbl-send-table "org-table" (&optional maybe))
- (defvar remember-data-file)
- (defvar texmathp-why)
- (declare-function speedbar-line-directory "speedbar" (&optional depth))
- (declare-function table--at-cell-p "table" (position &optional object at-column))
- (defvar w3m-current-url)
- (defvar w3m-current-title)
- (defvar org-latex-regexps)
- ;;; Autoload and prepare some org modules
- ;; Some table stuff that needs to be defined here, because it is used
- ;; by the functions setting up org-mode or checking for table context.
- (defconst org-table-any-line-regexp "^[ \t]*\\(|\\|\\+-[-+]\\)"
- "Detect an org-type or table-type table.")
- (defconst org-table-line-regexp "^[ \t]*|"
- "Detect an org-type table line.")
- (defconst org-table-dataline-regexp "^[ \t]*|[^-]"
- "Detect an org-type table line.")
- (defconst org-table-hline-regexp "^[ \t]*|-"
- "Detect an org-type table hline.")
- (defconst org-table1-hline-regexp "^[ \t]*\\+-[-+]"
- "Detect a table-type table hline.")
- (defconst org-table-any-border-regexp "^[ \t]*[^|+ \t]"
- "Detect the first line outside a table when searching from within it.
- This works for both table types.")
- ;; Autoload the functions in org-table.el that are needed by functions here.
- (eval-and-compile
- (org-autoload "org-table"
- '(org-table-align org-table-begin org-table-blank-field
- org-table-convert org-table-convert-region org-table-copy-down
- org-table-copy-region org-table-create
- org-table-create-or-convert-from-region
- org-table-create-with-table.el org-table-current-dline
- org-table-cut-region org-table-delete-column org-table-edit-field
- org-table-edit-formulas org-table-end org-table-eval-formula
- org-table-export org-table-field-info
- org-table-get-stored-formulas org-table-goto-column
- org-table-hline-and-move org-table-import org-table-insert-column
- org-table-insert-hline org-table-insert-row org-table-iterate
- org-table-justify-field-maybe org-table-kill-row
- org-table-maybe-eval-formula org-table-maybe-recalculate-line
- org-table-move-column org-table-move-column-left
- org-table-move-column-right org-table-move-row
- org-table-move-row-down org-table-move-row-up
- org-table-next-field org-table-next-row org-table-paste-rectangle
- org-table-previous-field org-table-recalculate
- org-table-rotate-recalc-marks org-table-sort-lines org-table-sum
- org-table-toggle-coordinate-overlays
- org-table-toggle-formula-debugger org-table-wrap-region
- orgtbl-mode turn-on-orgtbl org-table-to-lisp
- orgtbl-to-generic orgtbl-to-tsv orgtbl-to-csv orgtbl-to-latex
- orgtbl-to-orgtbl orgtbl-to-html orgtbl-to-texinfo)))
- (defun org-at-table-p (&optional table-type)
- "Return t if the cursor is inside an org-type table.
- If TABLE-TYPE is non-nil, also check for table.el-type tables."
- (if org-enable-table-editor
- (save-excursion
- (beginning-of-line 1)
- (looking-at (if table-type org-table-any-line-regexp
- org-table-line-regexp)))
- nil))
- (defsubst org-table-p () (org-at-table-p))
- (defun org-at-table.el-p ()
- "Return t if and only if we are at a table.el table."
- (and (org-at-table-p 'any)
- (save-excursion
- (goto-char (org-table-begin 'any))
- (looking-at org-table1-hline-regexp))))
- (defun org-table-recognize-table.el ()
- "If there is a table.el table nearby, recognize it and move into it."
- (if org-table-tab-recognizes-table.el
- (if (org-at-table.el-p)
- (progn
- (beginning-of-line 1)
- (if (looking-at org-table-dataline-regexp)
- nil
- (if (looking-at org-table1-hline-regexp)
- (progn
- (beginning-of-line 2)
- (if (looking-at org-table-any-border-regexp)
- (beginning-of-line -1)))))
- (if (re-search-forward "|" (org-table-end t) t)
- (progn
- (require 'table)
- (if (table--at-cell-p (point))
- t
- (message "recognizing table.el table...")
- (table-recognize-table)
- (message "recognizing table.el table...done")))
- (error "This should not happen"))
- t)
- nil)
- nil))
- (defun org-at-table-hline-p ()
- "Return t if the cursor is inside a hline in a table."
- (if org-enable-table-editor
- (save-excursion
- (beginning-of-line 1)
- (looking-at org-table-hline-regexp))
- nil))
- (defvar org-table-clean-did-remove-column nil)
- (defun org-table-map-tables (function &optional quietly)
- "Apply FUNCTION to the start of all tables in the buffer."
- (save-excursion
- (save-restriction
- (widen)
- (goto-char (point-min))
- (while (re-search-forward org-table-any-line-regexp nil t)
- (unless quietly
- (message "Mapping tables: %d%%" (/ (* 100.0 (point)) (buffer-size))))
- (beginning-of-line 1)
- (when (looking-at org-table-line-regexp)
- (save-excursion (funcall function))
- (or (looking-at org-table-line-regexp)
- (forward-char 1)))
- (re-search-forward org-table-any-border-regexp nil 1))))
- (unless quietly (message "Mapping tables: done")))
- ;; Declare and autoload functions from org-exp.el & Co
- (declare-function org-default-export-plist "org-exp")
- (declare-function org-infile-export-plist "org-exp")
- (declare-function org-get-current-options "org-exp")
- (eval-and-compile
- (org-autoload "org-exp"
- '(org-export org-export-visible
- org-insert-export-options-template
- org-table-clean-before-export))
- (org-autoload "org-ascii"
- '(org-export-as-ascii org-export-ascii-preprocess
- org-export-as-ascii-to-buffer org-replace-region-by-ascii
- org-export-region-as-ascii))
- (org-autoload "org-latex"
- '(org-export-as-latex-batch org-export-as-latex-to-buffer
- org-replace-region-by-latex org-export-region-as-latex
- org-export-as-latex org-export-as-pdf
- org-export-as-pdf-and-open))
- (org-autoload "org-html"
- '(org-export-as-html-and-open
- org-export-as-html-batch org-export-as-html-to-buffer
- org-replace-region-by-html org-export-region-as-html
- org-export-as-html))
- (org-autoload "org-docbook"
- '(org-export-as-docbook-batch org-export-as-docbook-to-buffer
- org-replace-region-by-docbook org-export-region-as-docbook
- org-export-as-docbook-pdf org-export-as-docbook-pdf-and-open
- org-export-as-docbook))
- (org-autoload "org-icalendar"
- '(org-export-icalendar-this-file
- org-export-icalendar-all-agenda-files
- org-export-icalendar-combine-agenda-files))
- (org-autoload "org-xoxo" '(org-export-as-xoxo))
- (org-autoload "org-beamer" '(org-beamer-mode org-beamer-sectioning)))
- ;; Declare and autoload functions from org-agenda.el
- (eval-and-compile
- (org-autoload "org-agenda"
- '(org-agenda org-agenda-list org-search-view
- org-todo-list org-tags-view org-agenda-list-stuck-projects
- org-diary org-agenda-to-appt
- org-agenda-check-for-timestamp-as-reason-to-ignore-todo-item)))
- ;; Autoload org-remember
- (eval-and-compile
- (org-autoload "org-remember"
- '(org-remember-insinuate org-remember-annotation
- org-remember-apply-template org-remember org-remember-handler)))
- (eval-and-compile
- (org-autoload "org-capture"
- '(org-capture org-capture-insert-template-here
- org-capture-import-remember-templates)))
- ;; Autoload org-clock.el
- (declare-function org-clock-save-markers-for-cut-and-paste "org-clock"
- (beg end))
- (declare-function org-clock-update-mode-line "org-clock" ())
- (declare-function org-resolve-clocks "org-clock"
- (&optional also-non-dangling-p prompt last-valid))
- (defvar org-clock-start-time)
- (defvar org-clock-marker (make-marker)
- "Marker recording the last clock-in.")
- (defvar org-clock-hd-marker (make-marker)
- "Marker recording the last clock-in, but the headline position.")
- (defvar org-clock-heading ""
- "The heading of the current clock entry.")
- (defun org-clock-is-active ()
- "Return non-nil if clock is currently running.
- The return value is actually the clock marker."
- (marker-buffer org-clock-marker))
- (eval-and-compile
- (org-autoload
- "org-clock"
- '(org-clock-in org-clock-out org-clock-cancel
- org-clock-goto org-clock-sum org-clock-display
- org-clock-remove-overlays org-clock-report
- org-clocktable-shift org-dblock-write:clocktable
- org-get-clocktable org-resolve-clocks)))
- (defun org-clock-update-time-maybe ()
- "If this is a CLOCK line, update it and return t.
- Otherwise, return nil."
- (interactive)
- (save-excursion
- (beginning-of-line 1)
- (skip-chars-forward " \t")
- (when (looking-at org-clock-string)
- (let ((re (concat "[ \t]*" org-clock-string
- " *[[<]\\([^]>]+\\)[]>]\\(-+[[<]\\([^]>]+\\)[]>]"
- "\\([ \t]*=>.*\\)?\\)?"))
- ts te h m s neg)
- (cond
- ((not (looking-at re))
- nil)
- ((not (match-end 2))
- (when (and (equal (marker-buffer org-clock-marker) (current-buffer))
- (> org-clock-marker (point))
- (<= org-clock-marker (point-at-eol)))
- ;; The clock is running here
- (setq org-clock-start-time
- (apply 'encode-time
- (org-parse-time-string (match-string 1))))
- (org-clock-update-mode-line)))
- (t
- (and (match-end 4) (delete-region (match-beginning 4) (match-end 4)))
- (end-of-line 1)
- (setq ts (match-string 1)
- te (match-string 3))
- (setq s (- (org-float-time
- (apply 'encode-time (org-parse-time-string te)))
- (org-float-time
- (apply 'encode-time (org-parse-time-string ts))))
- neg (< s 0)
- s (abs s)
- h (floor (/ s 3600))
- s (- s (* 3600 h))
- m (floor (/ s 60))
- s (- s (* 60 s)))
- (insert " => " (format (if neg "-%d:%02d" "%2d:%02d") h m))
- t))))))
- (defun org-check-running-clock ()
- "Check if the current buffer contains the running clock.
- If yes, offer to stop it and to save the buffer with the changes."
- (when (and (equal (marker-buffer org-clock-marker) (current-buffer))
- (y-or-n-p (format "Clock-out in buffer %s before killing it? "
- (buffer-name))))
- (org-clock-out)
- (when (y-or-n-p "Save changed buffer?")
- (save-buffer))))
- (defun org-clocktable-try-shift (dir n)
- "Check if this line starts a clock table, if yes, shift the time block."
- (when (org-match-line "#\\+BEGIN: clocktable\\>")
- (org-clocktable-shift dir n)))
- ;; Autoload org-timer.el
- (eval-and-compile
- (org-autoload
- "org-timer"
- '(org-timer-start org-timer org-timer-item
- org-timer-change-times-in-region
- org-timer-set-timer
- org-timer-reset-timers
- org-timer-show-remaining-time)))
- ;; Autoload org-feed.el
- (eval-and-compile
- (org-autoload
- "org-feed"
- '(org-feed-update org-feed-update-all org-feed-goto-inbox)))
- ;; Autoload org-indent.el
- ;; Define the variable already here, to make sure we have it.
- (defvar org-indent-mode nil
- "Non-nil if Org-Indent mode is enabled.
- Use the command `org-indent-mode' to change this variable.")
- (eval-and-compile
- (org-autoload
- "org-indent"
- '(org-indent-mode)))
- ;; Autoload org-mobile.el
- (eval-and-compile
- (org-autoload
- "org-mobile"
- '(org-mobile-push org-mobile-pull org-mobile-create-sumo-agenda)))
- ;; Autoload archiving code
- ;; The stuff that is needed for cycling and tags has to be defined here.
- (defgroup org-archive nil
- "Options concerning archiving in Org-mode."
- :tag "Org Archive"
- :group 'org-structure)
- (defcustom org-archive-location "%s_archive::"
- "The location where subtrees should be archived.
- The value of this variable is a string, consisting of two parts,
- separated by a double-colon. The first part is a filename and
- the second part is a headline.
- When the filename is omitted, archiving happens in the same file.
- %s in the filename will be replaced by the current file
- name (without the directory part). Archiving to a different file
- is useful to keep archived entries from contributing to the
- Org-mode Agenda.
- The archived entries will be filed as subtrees of the specified
- headline. When the headline is omitted, the subtrees are simply
- filed away at the end of the file, as top-level entries. Also in
- the heading you can use %s to represent the file name, this can be
- useful when using the same archive for a number of different files.
- Here are a few examples:
- \"%s_archive::\"
- If the current file is Projects.org, archive in file
- Projects.org_archive, as top-level trees. This is the default.
- \"::* Archived Tasks\"
- Archive in the current file, under the top-level headline
- \"* Archived Tasks\".
- \"~/org/archive.org::\"
- Archive in file ~/org/archive.org (absolute path), as top-level trees.
- \"~/org/archive.org::From %s\"
- Archive in file ~/org/archive.org (absolute path), under headlines
- \"From FILENAME\" where file name is the current file name.
- \"basement::** Finished Tasks\"
- Archive in file ./basement (relative path), as level 3 trees
- below the level 2 heading \"** Finished Tasks\".
- You may set this option on a per-file basis by adding to the buffer a
- line like
- #+ARCHIVE: basement::** Finished Tasks
- You may also define it locally for a subtree by setting an ARCHIVE property
- in the entry. If such a property is found in an entry, or anywhere up
- the hierarchy, it will be used."
- :group 'org-archive
- :type 'string)
- (defcustom org-archive-tag "ARCHIVE"
- "The tag that marks a subtree as archived.
- An archived subtree does not open during visibility cycling, and does
- not contribute to the agenda listings.
- After changing this, font-lock must be restarted in the relevant buffers to
- get the proper fontification."
- :group 'org-archive
- :group 'org-keywords
- :type 'string)
- (defcustom org-agenda-skip-archived-trees t
- "Non-nil means the agenda will skip any items located in archived trees.
- An archived tree is a tree marked with the tag ARCHIVE. The use of this
- variable is no longer recommended, you should leave it at the value t.
- Instead, use the key `v' to cycle the archives-mode in the agenda."
- :group 'org-archive
- :group 'org-agenda-skip
- :type 'boolean)
- (defcustom org-columns-skip-archived-trees t
- "Non-nil means ignore archived trees when creating column view."
- :group 'org-archive
- :group 'org-properties
- :type 'boolean)
- (defcustom org-cycle-open-archived-trees nil
- "Non-nil means `org-cycle' will open archived trees.
- An archived tree is a tree marked with the tag ARCHIVE.
- When nil, archived trees will stay folded. You can still open them with
- normal outline commands like `show-all', but not with the cycling commands."
- :group 'org-archive
- :group 'org-cycle
- :type 'boolean)
- (defcustom org-sparse-tree-open-archived-trees nil
- "Non-nil means sparse tree construction shows matches in archived trees.
- When nil, matches in these trees are highlighted, but the trees are kept in
- collapsed state."
- :group 'org-archive
- :group 'org-sparse-trees
- :type 'boolean)
- (defun org-cycle-hide-archived-subtrees (state)
- "Re-hide all archived subtrees after a visibility state change."
- (when (and (not org-cycle-open-archived-trees)
- (not (memq state '(overview folded))))
- (save-excursion
- (let* ((globalp (memq state '(contents all)))
- (beg (if globalp (point-min) (point)))
- (end (if globalp (point-max) (org-end-of-subtree t))))
- (org-hide-archived-subtrees beg end)
- (goto-char beg)
- (if (looking-at (concat ".*:" org-archive-tag ":"))
- (message "%s" (substitute-command-keys
- "Subtree is archived and stays closed. Use \\[org-force-cycle-archived] to cycle it anyway.")))))))
- (defun org-force-cycle-archived ()
- "Cycle subtree even if it is archived."
- (interactive)
- (setq this-command 'org-cycle)
- (let ((org-cycle-open-archived-trees t))
- (call-interactively 'org-cycle)))
- (defun org-hide-archived-subtrees (beg end)
- "Re-hide all archived subtrees after a visibility state change."
- (save-excursion
- (let* ((re (concat ":" org-archive-tag ":")))
- (goto-char beg)
- (while (re-search-forward re end t)
- (when (org-on-heading-p)
- (org-flag-subtree t)
- (org-end-of-subtree t))))))
- (defun org-flag-subtree (flag)
- (save-excursion
- (org-back-to-heading t)
- (outline-end-of-heading)
- (outline-flag-region (point)
- (progn (org-end-of-subtree t) (point))
- flag)))
- (defalias 'org-advertized-archive-subtree 'org-archive-subtree)
- (eval-and-compile
- (org-autoload "org-archive"
- '(org-add-archive-files org-archive-subtree
- org-archive-to-archive-sibling org-toggle-archive-tag
- org-archive-subtree-default
- org-archive-subtree-default-with-confirmation)))
- ;; Autoload Column View Code
- (declare-function org-columns-number-to-string "org-colview")
- (declare-function org-columns-get-format-and-top-level "org-colview")
- (declare-function org-columns-compute "org-colview")
- (org-autoload (if (featurep 'xemacs) "org-colview-xemacs" "org-colview")
- '(org-columns-number-to-string org-columns-get-format-and-top-level
- org-columns-compute org-agenda-columns org-columns-remove-overlays
- org-columns org-insert-columns-dblock org-dblock-write:columnview))
- ;; Autoload ID code
- (declare-function org-id-store-link "org-id")
- (declare-function org-id-locations-load "org-id")
- (declare-function org-id-locations-save "org-id")
- (defvar org-id-track-globally)
- (org-autoload "org-id"
- '(org-id-get-create org-id-new org-id-copy org-id-get
- org-id-get-with-outline-path-completion
- org-id-get-with-outline-drilling org-id-store-link
- org-id-goto org-id-find org-id-store-link))
- ;; Autoload Plotting Code
- (org-autoload "org-plot"
- '(org-plot/gnuplot))
- ;;; Variables for pre-computed regular expressions, all buffer local
- (defvar org-drawer-regexp nil
- "Matches first line of a hidden block.")
- (make-variable-buffer-local 'org-drawer-regexp)
- (defvar org-todo-regexp nil
- "Matches any of the TODO state keywords.")
- (make-variable-buffer-local 'org-todo-regexp)
- (defvar org-not-done-regexp nil
- "Matches any of the TODO state keywords except the last one.")
- (make-variable-buffer-local 'org-not-done-regexp)
- (defvar org-not-done-heading-regexp nil
- "Matches a TODO headline that is not done.")
- (make-variable-buffer-local 'org-not-done-regexp)
- (defvar org-todo-line-regexp nil
- "Matches a headline and puts TODO state into group 2 if present.")
- (make-variable-buffer-local 'org-todo-line-regexp)
- (defvar org-complex-heading-regexp nil
- "Matches a headline and puts everything into groups:
- group 1: the stars
- group 2: The todo keyword, maybe
- group 3: Priority cookie
- group 4: True headline
- group 5: Tags")
- (make-variable-buffer-local 'org-complex-heading-regexp)
- (defvar org-complex-heading-regexp-format nil
- "Printf format to make regexp to match an exact headline.
- This regexp will match the headline of any node which hase the exact
- headline text that is put into the format, but may have any TODO state,
- priority and tags.")
- (make-variable-buffer-local 'org-complex-heading-regexp-format)
- (defvar org-todo-line-tags-regexp nil
- "Matches a headline and puts TODO state into group 2 if present.
- Also put tags into group 4 if tags are present.")
- (make-variable-buffer-local 'org-todo-line-tags-regexp)
- (defvar org-nl-done-regexp nil
- "Matches newline followed by a headline with the DONE keyword.")
- (make-variable-buffer-local 'org-nl-done-regexp)
- (defvar org-looking-at-done-regexp nil
- "Matches the DONE keyword a point.")
- (make-variable-buffer-local 'org-looking-at-done-regexp)
- (defvar org-ds-keyword-length 12
- "Maximum length of the Deadline and SCHEDULED keywords.")
- (make-variable-buffer-local 'org-ds-keyword-length)
- (defvar org-deadline-regexp nil
- "Matches the DEADLINE keyword.")
- (make-variable-buffer-local 'org-deadline-regexp)
- (defvar org-deadline-time-regexp nil
- "Matches the DEADLINE keyword together with a time stamp.")
- (make-variable-buffer-local 'org-deadline-time-regexp)
- (defvar org-deadline-line-regexp nil
- "Matches the DEADLINE keyword and the rest of the line.")
- (make-variable-buffer-local 'org-deadline-line-regexp)
- (defvar org-scheduled-regexp nil
- "Matches the SCHEDULED keyword.")
- (make-variable-buffer-local 'org-scheduled-regexp)
- (defvar org-scheduled-time-regexp nil
- "Matches the SCHEDULED keyword together with a time stamp.")
- (make-variable-buffer-local 'org-scheduled-time-regexp)
- (defvar org-closed-time-regexp nil
- "Matches the CLOSED keyword together with a time stamp.")
- (make-variable-buffer-local 'org-closed-time-regexp)
- (defvar org-keyword-time-regexp nil
- "Matches any of the 4 keywords, together with the time stamp.")
- (make-variable-buffer-local 'org-keyword-time-regexp)
- (defvar org-keyword-time-not-clock-regexp nil
- "Matches any of the 3 keywords, together with the time stamp.")
- (make-variable-buffer-local 'org-keyword-time-not-clock-regexp)
- (defvar org-maybe-keyword-time-regexp nil
- "Matches a timestamp, possibly preceded by a keyword.")
- (make-variable-buffer-local 'org-maybe-keyword-time-regexp)
- (defvar org-planning-or-clock-line-re nil
- "Matches a line with planning or clock info.")
- (make-variable-buffer-local 'org-planning-or-clock-line-re)
- (defvar org-all-time-keywords nil
- "List of time keywords.")
- (make-variable-buffer-local 'org-all-time-keywords)
- (defconst org-plain-time-of-day-regexp
- (concat
- "\\(\\<[012]?[0-9]"
- "\\(\\(:\\([0-5][0-9]\\([AaPp][Mm]\\)?\\)\\)\\|\\([AaPp][Mm]\\)\\)\\>\\)"
- "\\(--?"
- "\\(\\<[012]?[0-9]"
- "\\(\\(:\\([0-5][0-9]\\([AaPp][Mm]\\)?\\)\\)\\|\\([AaPp][Mm]\\)\\)\\>\\)"
- "\\)?")
- "Regular expression to match a plain time or time range.
- Examples: 11:45 or 8am-13:15 or 2:45-2:45pm. After a match, the following
- groups carry important information:
- 0 the full match
- 1 the first time, range or not
- 8 the second time, if it is a range.")
- (defconst org-plain-time-extension-regexp
- (concat
- "\\(\\<[012]?[0-9]"
- "\\(\\(:\\([0-5][0-9]\\([AaPp][Mm]\\)?\\)\\)\\|\\([AaPp][Mm]\\)\\)\\>\\)"
- "\\+\\([0-9]+\\)\\(:\\([0-5][0-9]\\)\\)?")
- "Regular expression to match a time range like 13:30+2:10 = 13:30-15:40.
- Examples: 11:45 or 8am-13:15 or 2:45-2:45pm. After a match, the following
- groups carry important information:
- 0 the full match
- 7 hours of duration
- 9 minutes of duration")
- (defconst org-stamp-time-of-day-regexp
- (concat
- "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} +\\sw+ +\\)"
- "\\([012][0-9]:[0-5][0-9]\\(-\\([012][0-9]:[0-5][0-9]\\)\\)?[^\n\r>]*?\\)>"
- "\\(--?"
- "<\\1\\([012][0-9]:[0-5][0-9]\\)>\\)?")
- "Regular expression to match a timestamp time or time range.
- After a match, the following groups carry important information:
- 0 the full match
- 1 date plus weekday, for back referencing to make sure both times are on the same day
- 2 the first time, range or not
- 4 the second time, if it is a range.")
- (defconst org-startup-options
- '(("fold" org-startup-folded t)
- ("overview" org-startup-folded t)
- ("nofold" org-startup-folded nil)
- ("showall" org-startup-folded nil)
- ("showeverything" org-startup-folded showeverything)
- ("content" org-startup-folded content)
- ("indent" org-startup-indented t)
- ("noindent" org-startup-indented nil)
- ("hidestars" org-hide-leading-stars t)
- ("showstars" org-hide-leading-stars nil)
- ("odd" org-odd-levels-only t)
- ("oddeven" org-odd-levels-only nil)
- ("align" org-startup-align-all-tables t)
- ("noalign" org-startup-align-all-tables nil)
- ("inlineimages" org-startup-with-inline-images t)
- ("noinlineimages" org-startup-with-inline-images nil)
- ("customtime" org-display-custom-times t)
- ("logdone" org-log-done time)
- ("lognotedone" org-log-done note)
- ("nologdone" org-log-done nil)
- ("lognoteclock-out" org-log-note-clock-out t)
- ("nolognoteclock-out" org-log-note-clock-out nil)
- ("logrepeat" org-log-repeat state)
- ("lognoterepeat" org-log-repeat note)
- ("nologrepeat" org-log-repeat nil)
- ("logreschedule" org-log-reschedule time)
- ("lognotereschedule" org-log-reschedule note)
- ("nologreschedule" org-log-reschedule nil)
- ("logredeadline" org-log-redeadline time)
- ("lognoteredeadline" org-log-redeadline note)
- ("nologredeadline" org-log-redeadline nil)
- ("logrefile" org-log-refile time)
- ("lognoterefile" org-log-refile note)
- ("nologrefile" org-log-refile nil)
- ("fninline" org-footnote-define-inline t)
- ("nofninline" org-footnote-define-inline nil)
- ("fnlocal" org-footnote-section nil)
- ("fnauto" org-footnote-auto-label t)
- ("fnprompt" org-footnote-auto-label nil)
- ("fnconfirm" org-footnote-auto-label confirm)
- ("fnplain" org-footnote-auto-label plain)
- ("fnadjust" org-footnote-auto-adjust t)
- ("nofnadjust" org-footnote-auto-adjust nil)
- ("constcgs" constants-unit-system cgs)
- ("constSI" constants-unit-system SI)
- ("noptag" org-tag-persistent-alist nil)
- ("hideblocks" org-hide-block-startup t)
- ("nohideblocks" org-hide-block-startup nil)
- ("beamer" org-startup-with-beamer-mode t)
- ("entitiespretty" org-pretty-entities t)
- ("entitiesplain" org-pretty-entities nil))
- "Variable associated with STARTUP options for org-mode.
- Each element is a list of three items: The startup options as written
- in the #+STARTUP line, the corresponding variable, and the value to
- set this variable to if the option is found. An optional forth element PUSH
- means to push this value onto the list in the variable.")
- (defun org-set-regexps-and-options ()
- "Precompute regular expressions for current buffer."
- (when (org-mode-p)
- (org-set-local 'org-todo-kwd-alist nil)
- (org-set-local 'org-todo-key-alist nil)
- (org-set-local 'org-todo-key-trigger nil)
- (org-set-local 'org-todo-keywords-1 nil)
- (org-set-local 'org-done-keywords nil)
- (org-set-local 'org-todo-heads nil)
- (org-set-local 'org-todo-sets nil)
- (org-set-local 'org-todo-log-states nil)
- (org-set-local 'org-file-properties nil)
- (org-set-local 'org-file-tags nil)
- (let ((re (org-make-options-regexp
- '("CATEGORY" "TODO" "COLUMNS"
- "STARTUP" "ARCHIVE" "FILETAGS" "TAGS" "LINK" "PRIORITIES"
- "CONSTANTS" "PROPERTY" "DRAWERS" "SETUPFILE" "LATEX_CLASS"
- "OPTIONS")
- "\\(?:[a-zA-Z][0-9a-zA-Z_]*_TODO\\)"))
- (splitre "[ \t]+")
- (scripts org-use-sub-superscripts)
- kwds kws0 kwsa key log value cat arch tags const links hw dws
- tail sep kws1 prio props ftags drawers beamer-p
- ext-setup-or-nil setup-contents (start 0))
- (save-excursion
- (save-restriction
- (widen)
- (goto-char (point-min))
- (while (or (and ext-setup-or-nil
- (string-match re ext-setup-or-nil start)
- (setq start (match-end 0)))
- (and (setq ext-setup-or-nil nil start 0)
- (re-search-forward re nil t)))
- (setq key (upcase (match-string 1 ext-setup-or-nil))
- value (org-match-string-no-properties 2 ext-setup-or-nil))
- (if (stringp value) (setq value (org-trim value)))
- (cond
- ((equal key "CATEGORY")
- (setq cat value))
- ((member key '("SEQ_TODO" "TODO"))
- (push (cons 'sequence (org-split-string value splitre)) kwds))
- ((equal key "TYP_TODO")
- (push (cons 'type (org-split-string value splitre)) kwds))
- ((string-match "\\`\\([a-zA-Z][0-9a-zA-Z_]*\\)_TODO\\'" key)
- ;; general TODO-like setup
- (push (cons (intern (downcase (match-string 1 key)))
- (org-split-string value splitre)) kwds))
- ((equal key "TAGS")
- (setq tags (append tags (if tags '("\\n") nil)
- (org-split-string value splitre))))
- ((equal key "COLUMNS")
- (org-set-local 'org-columns-default-format value))
- ((equal key "LINK")
- (when (string-match "^\\(\\S-+\\)[ \t]+\\(.+\\)" value)
- (push (cons (match-string 1 value)
- (org-trim (match-string 2 value)))
- links)))
- ((equal key "PRIORITIES")
- (setq prio (org-split-string value " +")))
- ((equal key "PROPERTY")
- (when (string-match "\\(\\S-+\\)\\s-+\\(.*\\)" value)
- (push (cons (match-string 1 value) (match-string 2 value))
- props)))
- ((equal key "FILETAGS")
- (when (string-match "\\S-" value)
- (setq ftags
- (append
- ftags
- (apply 'append
- (mapcar (lambda (x) (org-split-string x ":"))
- (org-split-string value)))))))
- ((equal key "DRAWERS")
- (setq drawers (org-split-string value splitre)))
- ((equal key "CONSTANTS")
- (setq const (append const (org-split-string value splitre))))
- ((equal key "STARTUP")
- (let ((opts (org-split-string value splitre))
- l var val)
- (while (setq l (pop opts))
- (when (setq l (assoc l org-startup-options))
- (setq var (nth 1 l) val (nth 2 l))
- (if (not (nth 3 l))
- (set (make-local-variable var) val)
- (if (not (listp (symbol-value var)))
- (set (make-local-variable var) nil))
- (set (make-local-variable var) (symbol-value var))
- (add-to-list var val))))))
- ((equal key "ARCHIVE")
- (setq arch value)
- (remove-text-properties 0 (length arch)
- '(face t fontified t) arch))
- ((equal key "LATEX_CLASS")
- (setq beamer-p (equal value "beamer")))
- ((equal key "OPTIONS")
- (if (string-match "\\([ \t]\\|\\`\\)\\^:\\(t\\|nil\\|{}\\)" value)
- (setq scripts (read (match-string 2 value)))))
- ((equal key "SETUPFILE")
- (setq setup-contents (org-file-contents
- (expand-file-name
- (org-remove-double-quotes value))
- 'noerror))
- (if (not ext-setup-or-nil)
- (setq ext-setup-or-nil setup-contents start 0)
- (setq ext-setup-or-nil
- (concat (substring ext-setup-or-nil 0 start)
- "\n" setup-contents "\n"
- (substring ext-setup-or-nil start)))))
- ))))
- (org-set-local 'org-use-sub-superscripts scripts)
- (when cat
- (org-set-local 'org-category (intern cat))
- (push (cons "CATEGORY" cat) props))
- (when prio
- (if (< (length prio) 3) (setq prio '("A" "C" "B")))
- (setq prio (mapcar 'string-to-char prio))
- (org-set-local 'org-highest-priority (nth 0 prio))
- (org-set-local 'org-lowest-priority (nth 1 prio))
- (org-set-local 'org-default-priority (nth 2 prio)))
- (and props (org-set-local 'org-file-properties (nreverse props)))
- (and ftags (org-set-local 'org-file-tags
- (mapcar 'org-add-prop-inherited ftags)))
- (and drawers (org-set-local 'org-drawers drawers))
- (and arch (org-set-local 'org-archive-location arch))
- (and links (setq org-link-abbrev-alist-local (nreverse links)))
- ;; Process the TODO keywords
- (unless kwds
- ;; Use the global values as if they had been given locally.
- (setq kwds (default-value 'org-todo-keywords))
- (if (stringp (car kwds))
- (setq kwds (list (cons org-todo-interpretation
- (default-value 'org-todo-keywords)))))
- (setq kwds (reverse kwds)))
- (setq kwds (nreverse kwds))
- (let (inter kws kw)
- (while (setq kws (pop kwds))
- (let ((kws (or
- (run-hook-with-args-until-success
- 'org-todo-setup-filter-hook kws)
- kws)))
- (setq inter (pop kws) sep (member "|" kws)
- kws0 (delete "|" (copy-sequence kws))
- kwsa nil
- kws1 (mapcar
- (lambda (x)
- ;; 1 2
- (if (string-match "^\\(.*?\\)\\(?:(\\([^!@/]\\)?.*?)\\)?$" x)
- (progn
- (setq kw (match-string 1 x)
- key (and (match-end 2) (match-string 2 x))
- log (org-extract-log-state-settings x))
- (push (cons kw (and key (string-to-char key))) kwsa)
- (and log (push log org-todo-log-states))
- kw)
- (error "Invalid TODO keyword %s" x)))
- kws0)
- kwsa (if kwsa (append '((:startgroup))
- (nreverse kwsa)
- '((:endgroup))))
- hw (car kws1)
- dws (if sep (org-remove-keyword-keys (cdr sep)) (last kws1))
- tail (list inter hw (car dws) (org-last dws))))
- (add-to-list 'org-todo-heads hw 'append)
- (push kws1 org-todo-sets)
- (setq org-done-keywords (append org-done-keywords dws nil))
- (setq org-todo-key-alist (append org-todo-key-alist kwsa))
- (mapc (lambda (x) (push (cons x tail) org-todo-kwd-alist)) kws1)
- (setq org-todo-keywords-1 (append org-todo-keywords-1 kws1 nil)))
- (setq org-todo-sets (nreverse org-todo-sets)
- org-todo-kwd-alist (nreverse org-todo-kwd-alist)
- org-todo-key-trigger (delq nil (mapcar 'cdr org-todo-key-alist))
- org-todo-key-alist (org-assign-fast-keys org-todo-key-alist)))
- ;; Process the constants
- (when const
- (let (e cst)
- (while (setq e (pop const))
- (if (string-match "^\\([a-zA-Z0][_a-zA-Z0-9]*\\)=\\(.*\\)" e)
- (push (cons (match-string 1 e) (match-string 2 e)) cst)))
- (setq org-table-formula-constants-local cst)))
- ;; Process the tags.
- (when tags
- (let (e tgs)
- (while (setq e (pop tags))
- (cond
- ((equal e "{") (push '(:startgroup) tgs))
- ((equal e "}") (push '(:endgroup) tgs))
- ((equal e "\\n") (push '(:newline) tgs))
- ((string-match (org-re "^\\([[:alnum:]_@#%]+\\)(\\(.\\))$") e)
- (push (cons (match-string 1 e)
- (string-to-char (match-string 2 e)))
- tgs))
- (t (push (list e) tgs))))
- (org-set-local 'org-tag-alist nil)
- (while (setq e (pop tgs))
- (or (and (stringp (car e))
- (assoc (car e) org-tag-alist))
- (push e org-tag-alist)))))
- ;; Compute the regular expressions and other local variables
- (if (not org-done-keywords)
- (setq org-done-keywords (and org-todo-keywords-1
- (list (org-last org-todo-keywords-1)))))
- (setq org-ds-keyword-length (+ 2 (max (length org-deadline-string)
- (length org-scheduled-string)
- (length org-clock-string)
- (length org-closed-string)))
- org-drawer-regexp
- (concat "^[ \t]*:\\("
- (mapconcat 'regexp-quote org-drawers "\\|")
- "\\):[ \t]*$")
- org-not-done-keywords
- (org-delete-all org-done-keywords (copy-sequence org-todo-keywords-1))
- org-todo-regexp
- (concat "\\<\\(" (mapconcat 'regexp-quote org-todo-keywords-1
- "\\|") "\\)\\>")
- org-not-done-regexp
- (concat "\\<\\("
- (mapconcat 'regexp-quote org-not-done-keywords "\\|")
- "\\)\\>")
- org-not-done-heading-regexp
- (concat "^\\(\\*+\\)[ \t]+\\("
- (mapconcat 'regexp-quote org-not-done-keywords "\\|")
- "\\)\\>")
- org-todo-line-regexp
- (concat "^\\(\\*+\\)[ \t]+\\(?:\\("
- (mapconcat 'regexp-quote org-todo-keywords-1 "\\|")
- "\\)\\>\\)?[ \t]*\\(.*\\)")
- org-complex-heading-regexp
- (concat "^\\(\\*+\\)[ \t]+\\(?:\\("
- (mapconcat 'regexp-quote org-todo-keywords-1 "\\|")
- "\\)\\>\\)?\\(?:[ \t]*\\(\\[#.\\]\\)\\)?[ \t]*\\(.*?\\)"
- "\\(?:[ \t]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ \t]*$")
- org-complex-heading-regexp-format
- (concat "^\\(\\*+\\)[ \t]+\\(?:\\("
- (mapconcat 'regexp-quote org-todo-keywords-1 "\\|")
- "\\)\\>\\)?"
- "\\(?:[ \t]*\\(\\[#.\\]\\)\\)?"
- "\\(?:[ \t]*\\(?:\\[[0-9%%/]+\\]\\)\\)?" ;; stats cookie
- "[ \t]*\\(%s\\)"
- "\\(?:[ \t]*\\(?:\\[[0-9%%/]+\\]\\)\\)?" ;; stats cookie
- "\\(?:[ \t]+\\(:[[:alnum:]_@#%%:]+:\\)\\)?[ \t]*$")
- org-nl-done-regexp
- (concat "\n\\*+[ \t]+"
- "\\(?:" (mapconcat 'regexp-quote org-done-keywords "\\|")
- "\\)" "\\>")
- org-todo-line-tags-regexp
- (concat "^\\(\\*+\\)[ \t]+\\(?:\\("
- (mapconcat 'regexp-quote org-todo-keywords-1 "\\|")
- (org-re
- "\\)\\>\\)? *\\(.*?\\([ \t]:[[:alnum:]:_@#%]+:[ \t]*\\)?$\\)"))
- org-looking-at-done-regexp
- (concat "^" "\\(?:"
- (mapconcat 'regexp-quote org-done-keywords "\\|") "\\)"
- "\\>")
- org-deadline-regexp (concat "\\<" org-deadline-string)
- org-deadline-time-regexp
- (concat "\\<" org-deadline-string " *<\\([^>]+\\)>")
- org-deadline-line-regexp
- (concat "\\<\\(" org-deadline-string "\\).*")
- org-scheduled-regexp
- (concat "\\<" org-scheduled-string)
- org-scheduled-time-regexp
- (concat "\\<" org-scheduled-string " *<\\([^>]+\\)>")
- org-closed-time-regexp
- (concat "\\<" org-closed-string " *\\[\\([^]]+\\)\\]")
- org-keyword-time-regexp
- (concat "\\<\\(" org-scheduled-string
- "\\|" org-deadline-string
- "\\|" org-closed-string
- "\\|" org-clock-string "\\)"
- " *[[<]\\([^]>]+\\)[]>]")
- org-keyword-time-not-clock-regexp
- (concat "\\<\\(" org-scheduled-string
- "\\|" org-deadline-string
- "\\|" org-closed-string
- "\\)"
- " *[[<]\\([^]>]+\\)[]>]")
- org-maybe-keyword-time-regexp
- (concat "\\(\\<\\(" org-scheduled-string
- "\\|" org-deadline-string
- "\\|" org-closed-string
- "\\|" org-clock-string "\\)\\)?"
- " *\\([[<][0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [^]\r\n>]*?[]>]\\|<%%([^\r\n>]*>\\)")
- org-planning-or-clock-line-re
- (concat "\\(?:^[ \t]*\\(" org-scheduled-string
- "\\|" org-deadline-string
- "\\|" org-closed-string "\\|" org-clock-string
- "\\)\\>\\)")
- org-all-time-keywords
- (mapcar (lambda (w) (substring w 0 -1))
- (list org-scheduled-string org-deadline-string
- org-clock-string org-closed-string))
- )
- (org-compute-latex-and-specials-regexp)
- (org-set-font-lock-defaults))))
- (defun org-file-contents (file &optional noerror)
- "Return the contents of FILE, as a string."
- (if (or (not file)
- (not (file-readable-p file)))
- (if noerror
- (progn
- (message "Cannot read file \"%s\"" file)
- (ding) (sit-for 2)
- "")
- (error "Cannot read file \"%s\"" file))
- (with-temp-buffer
- (insert-file-contents file)
- (buffer-string))))
- (defun org-extract-log-state-settings (x)
- "Extract the log state setting from a TODO keyword string.
- This will extract info from a string like \"WAIT(w@/!)\"."
- (let (kw key log1 log2)
- (when (string-match "^\\(.*?\\)\\(?:(\\([^!@/]\\)?\\([!@]\\)?\\(?:/\\([!@]\\)\\)?)\\)?$" x)
- (setq kw (match-string 1 x)
- key (and (match-end 2) (match-string 2 x))
- log1 (and (match-end 3) (match-string 3 x))
- log2 (and (match-end 4) (match-string 4 x)))
- (and (or log1 log2)
- (list kw
- (and log1 (if (equal log1 "!") 'time 'note))
- (and log2 (if (equal log2 "!") 'time 'note)))))))
- (defun org-remove-keyword-keys (list)
- "Remove a pair of parenthesis at the end of each string in LIST."
- (mapcar (lambda (x)
- (if (string-match "(.*)$" x)
- (substring x 0 (match-beginning 0))
- x))
- list))
- (defun org-assign-fast-keys (alist)
- "Assign fast keys to a keyword-key alist.
- Respect keys that are already there."
- (let (new e (alt ?0))
- (while (setq e (pop alist))
- (if (or (memq (car e) '(:newline :endgroup :startgroup))
- (cdr e)) ;; Key already assigned.
- (push e new)
- (let ((clist (string-to-list (downcase (car e))))
- (used (append new alist)))
- (when (= (car clist) ?@)
- (pop clist))
- (while (and clist (rassoc (car clist) used))
- (pop clist))
- (unless clist
- (while (rassoc alt used)
- (incf alt)))
- (push (cons (car e) (or (car clist) alt)) new))))
- (nreverse new)))
- ;;; Some variables used in various places
- (defvar org-window-configuration nil
- "Used in various places to store a window configuration.")
- (defvar org-selected-window nil
- "Used in various places to store a window configuration.")
- (defvar org-finish-function nil
- "Function to be called when `C-c C-c' is used.
- This is for getting out of special buffers like remember.")
- ;; FIXME: Occasionally check by commenting these, to make sure
- ;; no other functions uses these, forgetting to let-bind them.
- (defvar entry)
- (defvar last-state)
- (defvar date)
- ;; Defined somewhere in this file, but used before definition.
- (defvar org-entities) ;; defined in org-entities.el
- (defvar org-struct-menu)
- (defvar org-org-menu)
- (defvar org-tbl-menu)
- ;;;; Define the Org-mode
- (if (and (not (keymapp outline-mode-map)) (featurep 'allout))
- (error "Conflict with outdated version of allout.el. Load org.el before allout.el, or upgrade to newer allout, for example by switching to Emacs 22"))
- ;; We use a before-change function to check if a table might need
- ;; an update.
- (defvar org-table-may-need-update t
- "Indicates that a table might need an update.
- This variable is set by `org-before-change-function'.
- `org-table-align' sets it back to nil.")
- (defun org-before-change-function (beg end)
- "Every change indicates that a table might need an update."
- (setq org-table-may-need-update t))
- (defvar org-mode-map)
- (defvar org-inhibit-startup nil) ; Dynamically-scoped param.
- (defvar org-inhibit-startup-visibility-stuff nil) ; Dynamically-scoped param.
- (defvar org-agenda-keep-modes nil) ; Dynamically-scoped param.
- (defvar org-inhibit-logging nil) ; Dynamically-scoped param.
- (defvar org-inhibit-blocking nil) ; Dynamically-scoped param.
- (defvar org-table-buffer-is-an nil)
- (defconst org-outline-regexp "\\*+ ")
- ;;;###autoload
- (define-derived-mode org-mode outline-mode "Org"
- "Outline-based notes management and organizer, alias
- \"Carsten's outline-mode for keeping track of everything.\"
- Org-mode develops organizational tasks around a NOTES file which
- contains information about projects as plain text. Org-mode is
- implemented on top of outline-mode, which is ideal to keep the content
- of large files well structured. It supports ToDo items, deadlines and
- time stamps, which magically appear in the diary listing of the Emacs
- calendar. Tables are easily created with a built-in table editor.
- Plain text URL-like links connect to websites, emails (VM), Usenet
- messages (Gnus), BBDB entries, and any files related to the project.
- For printing and sharing of notes, an Org-mode file (or a part of it)
- can be exported as a structured ASCII or HTML file.
- The following commands are available:
- \\{org-mode-map}"
- ;; Get rid of Outline menus, they are not needed
- ;; Need to do this here because define-derived-mode sets up
- ;; the keymap so late. Still, it is a waste to call this each time
- ;; we switch another buffer into org-mode.
- (if (featurep 'xemacs)
- (when (boundp 'outline-mode-menu-heading)
- ;; Assume this is Greg's port, it uses easymenu
- (easy-menu-remove outline-mode-menu-heading)
- (easy-menu-remove outline-mode-menu-show)
- (easy-menu-remove outline-mode-menu-hide))
- (define-key org-mode-map [menu-bar headings] 'undefined)
- (define-key org-mode-map [menu-bar hide] 'undefined)
- (define-key org-mode-map [menu-bar show] 'undefined))
- (org-load-modules-maybe)
- (easy-menu-add org-org-menu)
- (easy-menu-add org-tbl-menu)
- (org-install-agenda-files-menu)
- (if org-descriptive-links (add-to-invisibility-spec '(org-link)))
- (add-to-invisibility-spec '(org-cwidth))
- (add-to-invisibility-spec '(org-hide-block . t))
- (when (featurep 'xemacs)
- (org-set-local 'line-move-ignore-invisible t))
- (org-set-local 'outline-regexp org-outline-regexp)
- (org-set-local 'outline-level 'org-outline-level)
- (when (and org-ellipsis
- (fboundp 'set-display-table-slot) (boundp 'buffer-display-table)
- (fboundp 'make-glyph-code))
- (unless org-display-table
- (setq org-display-table (make-display-table)))
- (set-display-table-slot
- org-display-table 4
- (vconcat (mapcar
- (lambda (c) (make-glyph-code c (and (not (stringp org-ellipsis))
- org-ellipsis)))
- (if (stringp org-ellipsis) org-ellipsis "..."))))
- (setq buffer-display-table org-display-table))
- (org-set-regexps-and-options)
- (when (and org-tag-faces (not org-tags-special-faces-re))
- ;; tag faces set outside customize.... force initialization.
- (org-set-tag-faces 'org-tag-faces org-tag-faces))
- ;; Calc embedded
- (org-set-local 'calc-embedded-open-mode "# ")
- (modify-syntax-entry ?@ "w")
- (if org-startup-truncated (setq truncate-lines t))
- (org-set-local 'font-lock-unfontify-region-function
- 'org-unfontify-region)
- ;; Activate before-change-function
- (org-set-local 'org-table-may-need-update t)
- (org-add-hook 'before-change-functions 'org-before-change-function nil
- 'local)
- ;; Check for running clock before killing a buffer
- (org-add-hook 'kill-buffer-hook 'org-check-running-clock nil 'local)
- ;; Paragraphs and auto-filling
- (org-set-autofill-regexps)
- (setq indent-line-function 'org-indent-line-function)
- (org-update-radio-target-regexp)
- ;; Beginning/end of defun
- (org-set-local 'beginning-of-defun-function 'org-beginning-of-defun)
- (org-set-local 'end-of-defun-function 'org-end-of-defun)
- ;; Next error for sparse trees
- (org-set-local 'next-error-function 'org-occur-next-match)
- ;; Make sure dependence stuff works reliably, even for users who set it
- ;; too late :-(
- (if org-enforce-todo-dependencies
- (add-hook 'org-blocker-hook
- 'org-block-todo-from-children-or-siblings-or-parent)
- (remove-hook 'org-blocker-hook
- 'org-block-todo-from-children-or-siblings-or-parent))
- (if org-enforce-todo-checkbox-dependencies
- (add-hook 'org-blocker-hook
- 'org-block-todo-from-checkboxes)
- (remove-hook 'org-blocker-hook
- 'org-block-todo-from-checkboxes))
- ;; Comment characters
- (org-set-local 'comment-start "#")
- (org-set-local 'comment-padding " ")
- ;; Align options lines
- (org-set-local
- 'align-mode-rules-list
- '((org-in-buffer-settings
- (regexp . "^#\\+[A-Z_]+:\\(\\s-*\\)\\S-+")
- (modes . '(org-mode)))))
- ;; Imenu
- (org-set-local 'imenu-create-index-function
- 'org-imenu-get-tree)
- ;; Make isearch reveal context
- (if (or (featurep 'xemacs)
- (not (boundp 'outline-isearch-open-invisible-function)))
- ;; Emacs 21 and XEmacs make use of the hook
- (org-add-hook 'isearch-mode-end-hook 'org-isearch-end 'append 'local)
- ;; Emacs 22 deals with this through a special variable
- (org-set-local 'outline-isearch-open-invisible-function
- (lambda (&rest ignore) (org-show-context 'isearch))))
- ;; Turn on org-beamer-mode?
- (and org-startup-with-beamer-mode (org-beamer-mode 1))
- ;; Setup the pcomplete hooks
- (set (make-local-variable 'pcomplete-command-completion-function)
- 'org-pcomplete-initial)
- (set (make-local-variable 'pcomplete-command-name-function)
- 'org-command-at-point)
- (set (make-local-variable 'pcomplete-default-completion-function)
- 'ignore)
- (set (make-local-variable 'pcomplete-parse-arguments-function)
- 'org-parse-arguments)
- (set (make-local-variable 'pcomplete-termination-string) "")
- ;; If empty file that did not turn on org-mode automatically, make it to.
- (if (and org-insert-mode-line-in-empty-file
- (called-interactively-p 'any)
- (= (point-min) (point-max)))
- (insert "# -*- mode: org -*-\n\n"))
- (unless org-inhibit-startup
- (when org-startup-align-all-tables
- (let ((bmp (buffer-modified-p)))
- (org-table-map-tables 'org-table-align 'quietly)
- (set-buffer-modified-p bmp)))
- (when org-startup-with-inline-images
- (org-display-inline-images))
- (when org-startup-indented
- (require 'org-indent)
- (org-indent-mode 1))
- (unless org-inhibit-startup-visibility-stuff
- (org-set-startup-visibility))))
- (when (fboundp 'abbrev-table-put)
- (abbrev-table-put org-mode-abbrev-table
- :parents (list text-mode-abbrev-table)))
- (put 'org-mode 'flyspell-mode-predicate 'org-mode-flyspell-verify)
- (defun org-current-time ()
- "Current time, possibly rounded to `org-time-stamp-rounding-minutes'."
- (if (> (car org-time-stamp-rounding-minutes) 1)
- (let ((r (car org-time-stamp-rounding-minutes))
- (time (decode-time)))
- (apply 'encode-time
- (append (list 0 (* r (floor (+ .5 (/ (float (nth 1 time)) r)))))
- (nthcdr 2 time))))
- (current-time)))
- (defun org-today ()
- "Return today date, considering `org-extend-today-until'."
- (time-to-days
- (time-subtract (current-time)
- (list 0 (* 3600 org-extend-today-until) 0))))
- ;;;; Font-Lock stuff, including the activators
- (defvar org-mouse-map (make-sparse-keymap))
- (org-defkey org-mouse-map [mouse-2] 'org-open-at-mouse)
- (org-defkey org-mouse-map [mouse-3] 'org-find-file-at-mouse)
- (when org-mouse-1-follows-link
- (org-defkey org-mouse-map [follow-link] 'mouse-face))
- (when org-tab-follows-link
- (org-defkey org-mouse-map [(tab)] 'org-open-at-point)
- (org-defkey org-mouse-map "\C-i" 'org-open-at-point))
- (require 'font-lock)
- (defconst org-non-link-chars "]\t\n\r<>")
- (defvar org-link-types '("http" "https" "ftp" "mailto" "file" "news"
- "shell" "elisp" "doi" "message"))
- (defvar org-link-types-re nil
- "Matches a link that has a url-like prefix like \"http:\"")
- (defvar org-link-re-with-space nil
- "Matches a link with spaces, optional angular brackets around it.")
- (defvar org-link-re-with-space2 nil
- "Matches a link with spaces, optional angular brackets around it.")
- (defvar org-link-re-with-space3 nil
- "Matches a link with spaces, only for internal part in bracket links.")
- (defvar org-angle-link-re nil
- "Matches link with angular brackets, spaces are allowed.")
- (defvar org-plain-link-re nil
- "Matches plain link, without spaces.")
- (defvar org-bracket-link-regexp nil
- "Matches a link in double brackets.")
- (defvar org-bracket-link-analytic-regexp nil
- "Regular expression used to analyze links.
- Here is what the match groups contain after a match:
- 1: http:
- 2: http
- 3: path
- 4: [desc]
- 5: desc")
- (defvar org-bracket-link-analytic-regexp++ nil
- "Like `org-bracket-link-analytic-regexp', but include coderef internal type.")
- (defvar org-any-link-re nil
- "Regular expression matching any link.")
- (defcustom org-match-sexp-depth 3
- "Number of stacked braces for sub/superscript matching.
- This has to be set before loading org.el to be effective."
- :group 'org-export-translation ; ??????????????????????????/
- :type 'integer)
- (defun org-create-multibrace-regexp (left right n)
- "Create a regular expression which will match a balanced sexp.
- Opening delimiter is LEFT, and closing delimiter is RIGHT, both given
- as single character strings.
- The regexp returned will match the entire expression including the
- delimiters. It will also define a single group which contains the
- match except for the outermost delimiters. The maximum depth of
- stacked delimiters is N. Escaping delimiters is not possible."
- (let* ((nothing (concat "[^" left right "]*?"))
- (or "\\|")
- (re nothing)
- (next (concat "\\(?:" nothing left nothing right "\\)+" nothing)))
- (while (> n 1)
- (setq n (1- n)
- re (concat re or next)
- next (concat "\\(?:" nothing left next right "\\)+" nothing)))
- (concat left "\\(" re "\\)" right)))
- (defvar org-match-substring-regexp
- (concat
- "\\([^\\]\\)\\([_^]\\)\\("
- "\\(" (org-create-multibrace-regexp "{" "}" org-match-sexp-depth) "\\)"
- "\\|"
- "\\(" (org-create-multibrace-regexp "(" ")" org-match-sexp-depth) "\\)"
- "\\|"
- "\\(\\(?:\\*\\|[-+]?[^-+*!@#$%^_ \t\r\n,:\"?<>~;./{}=()]+\\)\\)\\)")
- "The regular expression matching a sub- or superscript.")
- (defvar org-match-substring-with-braces-regexp
- (concat
- "\\([^\\]\\)\\([_^]\\)\\("
- "\\(" (org-create-multibrace-regexp "{" "}" org-match-sexp-depth) "\\)"
- "\\)")
- "The regular expression matching a sub- or superscript, forcing braces.")
- (defun org-make-link-regexps ()
- "Update the link regular expressions.
- This should be called after the variable `org-link-types' has changed."
- (setq org-link-types-re
- (concat
- "\\`\\(" (mapconcat 'regexp-quote org-link-types "\\|") "\\):")
- org-link-re-with-space
- (concat
- "<?\\(" (mapconcat 'regexp-quote org-link-types "\\|") "\\):"
- "\\([^" org-non-link-chars " ]"
- "[^" org-non-link-chars "]*"
- "[^" org-non-link-chars " ]\\)>?")
- org-link-re-with-space2
- (concat
- "<?\\(" (mapconcat 'regexp-quote org-link-types "\\|") "\\):"
- "\\([^" org-non-link-chars " ]"
- "[^\t\n\r]*"
- "[^" org-non-link-chars " ]\\)>?")
- org-link-re-with-space3
- (concat
- "<?\\(" (mapconcat 'regexp-quote org-link-types "\\|") "\\):"
- "\\([^" org-non-link-chars " ]"
- "[^\t\n\r]*\\)")
- org-angle-link-re
- (concat
- "<\\(" (mapconcat 'regexp-quote org-link-types "\\|") "\\):"
- "\\([^" org-non-link-chars " ]"
- "[^" org-non-link-chars "]*"
- "\\)>")
- org-plain-link-re
- (concat
- "\\<\\(" (mapconcat 'regexp-quote org-link-types "\\|") "\\):"
- (org-re "\\([^ \t\n()<>]+\\(?:([[:word:]0-9_]+)\\|\\([^[:punct:] \t\n]\\|/\\)\\)\\)"))
- ;; "\\([^]\t\n\r<>() ]+[^]\t\n\r<>,.;() ]\\)")
- org-bracket-link-regexp
- "\\[\\[\\([^][]+\\)\\]\\(\\[\\([^][]+\\)\\]\\)?\\]"
- org-bracket-link-analytic-regexp
- (concat
- "\\[\\["
- "\\(\\(" (mapconcat 'regexp-quote org-link-types "\\|") "\\):\\)?"
- "\\([^]]+\\)"
- "\\]"
- "\\(\\[" "\\([^]]+\\)" "\\]\\)?"
- "\\]")
- org-bracket-link-analytic-regexp++
- (concat
- "\\[\\["
- "\\(\\(" (mapconcat 'regexp-quote (cons "coderef" org-link-types) "\\|") "\\):\\)?"
- "\\([^]]+\\)"
- "\\]"
- "\\(\\[" "\\([^]]+\\)" "\\]\\)?"
- "\\]")
- org-any-link-re
- (concat "\\(" org-bracket-link-regexp "\\)\\|\\("
- org-angle-link-re "\\)\\|\\("
- org-plain-link-re "\\)")))
- (org-make-link-regexps)
- (defconst org-ts-regexp "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [^\r\n>]*?\\)>"
- "Regular expression for fast time stamp matching.")
- (defconst org-ts-regexp-both "[[<]\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [^]\r\n>]*?\\)[]>]"
- "Regular expression for fast time stamp matching.")
- (defconst org-ts-regexp0 "\\(\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\) *\\([^]+0-9>\r\n -]*\\)\\( \\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)"
- "Regular expression matching time strings for analysis.
- This one does not require the space after the date, so it can be used
- on a string that terminates immediately after the date.")
- (defconst org-ts-regexp1 "\\(\\([0-9]\\{4\\}\\)-\\([0-9]\\{2\\}\\)-\\([0-9]\\{2\\}\\) +\\([^]+0-9>\r\n -]*\\)\\( \\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)\\)?\\)"
- "Regular expression matching time strings for analysis.")
- (defconst org-ts-regexp2 (concat "<" org-ts-regexp1 "[^>\n]\\{0,16\\}>")
- "Regular expression matching time stamps, with groups.")
- (defconst org-ts-regexp3 (concat "[[<]" org-ts-regexp1 "[^]>\n]\\{0,16\\}[]>]")
- "Regular expression matching time stamps (also [..]), with groups.")
- (defconst org-tr-regexp (concat org-ts-regexp "--?-?" org-ts-regexp)
- "Regular expression matching a time stamp range.")
- (defconst org-tr-regexp-both
- (concat org-ts-regexp-both "--?-?" org-ts-regexp-both)
- "Regular expression matching a time stamp range.")
- (defconst org-tsr-regexp (concat org-ts-regexp "\\(--?-?"
- org-ts-regexp "\\)?")
- "Regular expression matching a time stamp or time stamp range.")
- (defconst org-tsr-regexp-both (concat org-ts-regexp-both "\\(--?-?"
- org-ts-regexp-both "\\)?")
- "Regular expression matching a time stamp or time stamp range.
- The time stamps may be either active or inactive.")
- (defvar org-emph-face nil)
- (defun org-do-emphasis-faces (limit)
- "Run through the buffer and add overlays to links."
- (let (rtn a)
- (while (and (not rtn) (re-search-forward org-emph-re limit t))
- (if (not (= (char-after (match-beginning 3))
- (char-after (match-beginning 4))))
- (progn
- (setq rtn t)
- (setq a (assoc (match-string 3) org-emphasis-alist))
- (font-lock-prepend-text-property (match-beginning 2) (match-end 2)
- 'face
- (nth 1 a))
- (and (nth 4 a)
- (org-remove-flyspell-overlays-in
- (match-beginning 0) (match-end 0)))
- (add-text-properties (match-beginning 2) (match-end 2)
- '(font-lock-multiline t org-emphasis t))
- (when org-hide-emphasis-markers
- (add-text-properties (match-end 4) (match-beginning 5)
- '(invisible org-link))
- (add-text-properties (match-beginning 3) (match-end 3)
- '(invisible org-link)))))
- (backward-char 1))
- rtn))
- (defun org-emphasize (&optional char)
- "Insert or change an emphasis, i.e. a font like bold or italic.
- If there is an active region, change that region to a new emphasis.
- If there is no region, just insert the marker characters and position
- the cursor between them.
- CHAR should be either the marker character, or the first character of the
- HTML tag associated with that emphasis. If CHAR is a space, the means
- to remove the emphasis of the selected region.
- If char is not given (for example in an interactive call) it
- will be prompted for."
- (interactive)
- (let ((eal org-emphasis-alist) e det
- (erc org-emphasis-regexp-components)
- (prompt "")
- (string "") beg end move tag c s)
- (if (org-region-active-p)
- (setq beg (region-beginning) end (region-end)
- string (buffer-substring beg end))
- (setq move t))
- (while (setq e (pop eal))
- (setq tag (car (org-split-string (nth 2 e) "[ <>/]+"))
- c (aref tag 0))
- (push (cons c (string-to-char (car e))) det)
- (setq prompt (concat prompt (format " [%s%c]%s" (car e) c
- (substring tag 1)))))
- (setq det (nreverse det))
- (unless char
- (message "%s" (concat "Emphasis marker or tag:" prompt))
- (setq char (read-char-exclusive)))
- (setq char (or (cdr (assoc char det)) char))
- (if (equal char ?\ )
- (setq s "" move nil)
- (unless (assoc (char-to-string char) org-emphasis-alist)
- (error "No such emphasis marker: \"%c\"" char))
- (setq s (char-to-string char)))
- (while (and (> (length string) 1)
- (equal (substring string 0 1) (substring string -1))
- (assoc (substring string 0 1) org-emphasis-alist))
- (setq string (substring string 1 -1)))
- (setq string (concat s string s))
- (if beg (delete-region beg end))
- (unless (or (bolp)
- (string-match (concat "[" (nth 0 erc) "\n]")
- (char-to-string (char-before (point)))))
- (insert " "))
- (unless (or (eobp)
- (string-match (concat "[" (nth 1 erc) "\n]")
- (char-to-string (char-after (point)))))
- (insert " ") (backward-char 1))
- (insert string)
- (and move (backward-char 1))))
- (defconst org-nonsticky-props
- '(mouse-face highlight keymap invisible intangible help-echo org-linked-text))
- (defsubst org-rear-nonsticky-at (pos)
- (add-text-properties (1- pos) pos (list 'rear-nonsticky org-nonsticky-props)))
- (defun org-activate-plain-links (limit)
- "Run through the buffer and add overlays to links."
- (catch 'exit
- (let (f)
- (if (re-search-forward org-plain-link-re limit t)
- (progn
- (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
- (setq f (get-text-property (match-beginning 0) 'face))
- (if (or (eq f 'org-tag)
- (and (listp f) (memq 'org-tag f)))
- nil
- (add-text-properties (match-beginning 0) (match-end 0)
- (list 'mouse-face 'highlight
- 'face 'org-link
- 'keymap org-mouse-map))
- (org-rear-nonsticky-at (match-end 0)))
- t)))))
- (defun org-activate-code (limit)
- (if (re-search-forward "^[ \t]*\\(: .*\n?\\)" limit t)
- (progn
- (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
- (remove-text-properties (match-beginning 0) (match-end 0)
- '(display t invisible t intangible t))
- t)))
- (defcustom org-src-fontify-natively nil
- "When non-nil, fontify code in code blocks."
- :type 'boolean
- :group 'org-appearance
- :group 'org-babel)
- (defun org-fontify-meta-lines-and-blocks (limit)
- "Fontify #+ lines and blocks, in the correct ways."
- (let ((case-fold-search t))
- (if (re-search-forward
- "^\\([ \t]*#\\+\\(\\([a-zA-Z]+:?\\| \\|$\\)\\(_\\([a-zA-Z]+\\)\\)?\\)[ \t]*\\(\\([^ \t\n]*\\)[ \t]*\\(.*\\)\\)\\)"
- limit t)
- (let ((beg (match-beginning 0))
- (block-start (match-end 0))
- (block-end nil)
- (lang (match-string 7))
- (beg1 (line-beginning-position 2))
- (dc1 (downcase (match-string 2)))
- (dc3 (downcase (match-string 3)))
- end end1 quoting block-type ovl)
- (cond
- ((member dc1 '("html:" "ascii:" "latex:" "docbook:"))
- ;; a single line of backend-specific content
- (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
- (remove-text-properties (match-beginning 0) (match-end 0)
- '(display t invisible t intangible t))
- (add-text-properties (match-beginning 1) (match-end 3)
- '(font-lock-fontified t face org-meta-line))
- (add-text-properties (match-beginning 6) (+ (match-end 6) 1)
- '(font-lock-fontified t face org-block))
- ; for backend-specific code
- t)
- ((and (match-end 4) (equal dc3 "begin"))
- ;; Truly a block
- (setq block-type (downcase (match-string 5))
- quoting (member block-type org-protecting-blocks))
- (when (re-search-forward
- (concat "^[ \t]*#\\+end" (match-string 4) "\\>.*")
- nil t) ;; on purpose, we look further than LIMIT
- (setq end (match-end 0) end1 (1- (match-beginning 0)))
- (setq block-end (match-beginning 0))
- (when quoting
- (remove-text-properties beg end
- '(display t invisible t intangible t)))
- (add-text-properties
- beg end
- '(font-lock-fontified t font-lock-multiline t))
- (add-text-properties beg beg1 '(face org-meta-line))
- (add-text-properties end1 (+ end 1) '(face org-meta-line))
- ; for end_src
- (cond
- ((and lang org-src-fontify-natively)
- (org-src-font-lock-fontify-block lang block-start block-end)
- ;; remove old background overlays
- (mapc (lambda (ov)
- (if (eq (overlay-get ov 'face) 'org-block-background)
- (delete-overlay ov)))
- (overlays-at (/ (+ beg1 block-end) 2)))
- ;; add a background overlay
- (setq ovl (make-overlay beg1 block-end))
- (overlay-put ovl 'face 'org-block-background)
- (overlay-put ovl 'evaporate t)) ;; make it go away when empty
- (quoting
- (add-text-properties beg1 (+ end1 1) '(face org-block)))
- ; end of source block
- ((not org-fontify-quote-and-verse-blocks))
- ((string= block-type "quote")
- (add-text-properties beg1 (1+ end1) '(face org-quote)))
- ((string= block-type "verse")
- (add-text-properties beg1 (1+ end1) '(face org-verse))))
- (add-text-properties beg beg1 '(face org-block-begin-line))
- (add-text-properties (1+ end) (1+ end1) '(face org-block-end-line))
- t))
- ((member dc1 '("title:" "author:" "email:" "date:"))
- (add-text-properties
- beg (match-end 3)
- (if (member (intern (substring dc1 0 -1)) org-hidden-keywords)
- '(font-lock-fontified t invisible t)
- '(font-lock-fontified t face org-document-info-keyword)))
- (add-text-properties
- (match-beginning 6) (match-end 6)
- (if (string-equal dc1 "title:")
- '(font-lock-fontified t face org-document-title)
- '(font-lock-fontified t face org-document-info))))
- ((not (member (char-after beg) '(?\ ?\t)))
- ;; just any other in-buffer setting, but not indented
- (add-text-properties
- beg (1+ (match-end 0))
- '(font-lock-fontified t face org-meta-line))
- t)
- ((or (member dc1 '("begin:" "end:" "caption:" "label:"
- "orgtbl:" "tblfm:" "tblname:" "result:"
- "results:" "source:" "srcname:" "call:"))
- (and (match-end 4) (equal dc3 "attr")))
- (add-text-properties
- beg (match-end 0)
- '(font-lock-fontified t face org-meta-line))
- t)
- ((member dc3 '(" " ""))
- (add-text-properties
- beg (match-end 0)
- '(font-lock-fontified t face font-lock-comment-face)))
- (t nil))))))
- (defun org-activate-angle-links (limit)
- "Run through the buffer and add overlays to links."
- (if (re-search-forward org-angle-link-re limit t)
- (progn
- (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
- (add-text-properties (match-beginning 0) (match-end 0)
- (list 'mouse-face 'highlight
- 'keymap org-mouse-map))
- (org-rear-nonsticky-at (match-end 0))
- t)))
- (defun org-activate-footnote-links (limit)
- "Run through the buffer and add overlays to links."
- (if (re-search-forward "\\(^\\|[^][]\\)\\(\\[\\([0-9]+\\]\\|fn:[^ \t\r\n:]+?[]:]\\)\\)"
- limit t)
- (progn
- (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
- (add-text-properties (match-beginning 2) (match-end 2)
- (list 'mouse-face 'highlight
- 'keymap org-mouse-map
- 'help-echo
- (if (= (point-at-bol) (match-beginning 2))
- "Footnote definition"
- "Footnote reference")
- ))
- (org-rear-nonsticky-at (match-end 2))
- t)))
- (defun org-activate-bracket-links (limit)
- "Run through the buffer and add overlays to bracketed links."
- (if (re-search-forward org-bracket-link-regexp limit t)
- (let* ((help (concat "LINK: "
- (org-match-string-no-properties 1)))
- ;; FIXME: above we should remove the escapes.
- ;; but that requires another match, protecting match data,
- ;; a lot of overhead for font-lock.
- (ip (org-maybe-intangible
- (list 'invisible 'org-link
- 'keymap org-mouse-map 'mouse-face 'highlight
- 'font-lock-multiline t 'help-echo help)))
|