tools: missing file, git ignore
This commit is contained in:
		
							parent
							
								
									dea0c5973a
								
							
						
					
					
						commit
						0982aca223
					
				
							
								
								
									
										14
									
								
								doc/pandoc-demote-headers.hs
									
									
									
									
									
										Executable file
									
								
							
							
						
						
									
										14
									
								
								doc/pandoc-demote-headers.hs
									
									
									
									
									
										Executable file
									
								
							| @ -0,0 +1,14 @@ | ||||
| #!/usr/bin/env stack | ||||
| {- stack runghc --verbosity info --package pandoc-types-1.16.1 -} | ||||
| 
 | ||||
| import Text.Pandoc.JSON | ||||
| import Text.Pandoc.Walk | ||||
| import Data.Char (toUpper) | ||||
| 
 | ||||
| main :: IO () | ||||
| main = toJSONFilter demoteHeaders | ||||
| 
 | ||||
| demoteHeaders :: Block -> Block | ||||
| demoteHeaders (Header l attr xs) = Header (l+1) attr xs | ||||
| demoteHeaders x = x | ||||
| 
 | ||||
							
								
								
									
										1
									
								
								site/.gitignore
									
									
									
									
										vendored
									
									
								
							
							
						
						
									
										1
									
								
								site/.gitignore
									
									
									
									
										vendored
									
									
								
							| @ -11,3 +11,4 @@ hledger_csv.5.md | ||||
| hledger_journal.5.md | ||||
| hledger_timedot.5.md | ||||
| hledger_timelog.5.md | ||||
| manual2.md | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user