Skip to content
Find file
de6442b Apr 28, 2011
24 lines (20 sloc) 631 Bytes
(defun deactivate-hacker-type ()
(interactive)
(define-key fake-hacker-type-map [remap self-insert-command] nil)
)
(defun inject_contents (&optional n)
(interactive)
(setq end (+ start insert_by))
(insert-file-contents filename nil start end)
(forward-char insert_by)
(setq start (+ start insert_by))
)
(defun hacker-type (arg)
(interactive (list (read-file-name "Filename: ")))
(setq fake-hacker-type-map (make-sparse-keymap))
(setq filename arg)
(setq start 0)
(setq insert_by 3)
(define-key fake-hacker-type-map [remap self-insert-command] 'inject_contents)
(use-local-map fake-hacker-type-map)
)
Something went wrong with that request. Please try again.