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_journal.5.md | ||||||
| hledger_timedot.5.md | hledger_timedot.5.md | ||||||
| hledger_timelog.5.md | hledger_timelog.5.md | ||||||
|  | manual2.md | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user