Skip to content

Instantly share code, notes, and snippets.

Martin Yrjölä myrjola

Block or report user

Report or block myrjola

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View diminish.el
;;; diminish.el --- Diminished modes are minor modes with no modeline display
;; Copyright (C) 1998 Free Software Foundation, Inc.
;; Author: Will Mengarini <seldon@eskimo.com>
;; URL: <http://www.eskimo.com/~seldon>
;; Created: Th 19 Feb 98
;; Version: 0.44, Sa 23 Jan 99
;; Keywords: extensions, diminish, minor, codeprose
View pdf-annot-markups-as-org-text.el
(defun pdf-annot-markups-as-org-text (pdfpath &optional title level)
"Acquire highlight annotations as text"
(interactive "fPath to PDF: ")
(let* ((outputstring "") ;; the text to be return
(title (or title (replace-regexp-in-string "-" " " (file-name-base pdfpath ))))
(level (or level (1+ (org-current-level)))) ;; I guess if we're not in an org-buffer this will fail
(levelstring (make-string level ?*))
(pdf-image-buffer (get-buffer-create "*temp pdf image*"))
)
View packages.el
(setq org-html-postamble nil)
(setq org-html-head-extra "
<link href='http://fonts.googleapis.com/css?family=Source+Sans+Pro:400,700,400italic,700italic&subset=latin,latin-ext' rel='stylesheet' type='text/css'>
<link href='http://fonts.googleapis.com/css?family=Source+Code+Pro:400,700' rel='stylesheet' type='text/css'>
<style type='text/css'>
body {
font-family: 'Source Sans Pro', sans-serif;
}
pre, code {
View funcs.el
(defun my-org-screenshot (arg)
"Take a screenshot into a time stamped unique-named file in the
same directory as the org-buffer and insert a link to this file.
If arg is not nil scale down the image to fit to a smaller width"
(interactive "P")
(setq filename
(concat
(make-temp-name
(concat (buffer-file-name)
View doc-view and pdf-view page browsing in other frame
;; Doc-view reading
(defun other-frame-doc-view-next-page ()
(interactive)
(other-frame 1)
(case major-mode
;; The timer causes race-conditions
('pdf-view-mode (progn (pdf-view-next-page-command)
(when pdf-view--next-page-timer
(cancel-timer pdf-view--next-page-timer)
You can’t perform that action at this time.