Skip to content

Instantly share code, notes, and snippets.

@marekkowalczyk
Created January 27, 2021 21:08
Show Gist options
  • Save marekkowalczyk/221032de9c0e6cc85aa80d0d3326c958 to your computer and use it in GitHub Desktop.
Save marekkowalczyk/221032de9c0e6cc85aa80d0d3326c958 to your computer and use it in GitHub Desktop.
-- Import a man page into DEVONthink as PDF
-- Created by Christian Grunenberg on Sat Apr 16 2005. Copyright (c) 2005-2019. All rights reserved.
-- Edited by Houthakker 2011 Feb 12 to import PDF (rather than text) version of man page (to preserve highlighting of keywords and headers)
-- Modified on 2021-01-25 by https://discourse.devontechnologies.com/u/pete31/ and https://discourse.devontechnologies.com/u/marekkowalczyk/ to add auto tagging of imported PDFs
tell application id "DNtp"
try
repeat
set page to display name editor "Man page" info "Enter the man page to import:"
if page is not "" then exit repeat
end repeat
show progress indicator "Converting man page to PDF ..." steps -1
set strPDF to "~/" & page & ".pdf"
-- Storing a temporary PS file in the home folder is ugly; TODO replace ~ with /tmp, which is not working for some reason (MKO)
set strCmd to "man -t " & (quoted form of page) & " | pstopdf -i -o " & strPDF
do shell script strCmd
tell application id "com.apple.finder"
set strTmpPath to (((path to home folder) as text) & page & ".pdf")
set blnExists to exists strTmpPath
end tell
if blnExists then
set theRecord to import strPDF name page to current group
set tags of theRecord to {"manpage", page}
tell application id "com.apple.finder" to delete file strTmpPath
else
error "Page does not exist."
end if
hide progress indicator
on error error_message number error_number
hide progress indicator
if the error_number is not -128 then display alert "DEVONthink" message error_message as warning
end try
end tell
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment