This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defadvice common-lisp-hyperspec | |
(around hyperspec-lookup-w3m () activate) | |
(let* ((window-configuration (current-window-configuration)) | |
(browse-url-browser-function | |
`(lambda (url new-window) | |
(w3m-browse-url url nil) | |
(let ((hs-map (copy-keymap w3m-mode-map))) | |
(define-key hs-map (kbd "q") | |
(lambda () | |
(interactive) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defpackage #:subsystem.hack | |
(:use #:cl) | |
(:export #:patch-subsystem) | |
(:import-from #:nibbles | |
#:read-ub16/le #:read-ub32/le #:write-ub16/le)) | |
(in-package #:subsystem.hack) | |
(defun subsystem-position (stream) | |
(file-position stream 0) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; bcycle.el --- buffer cycling with skip patterns | |
;; https://github.com/dalkire/bcycle | |
;; Intro | |
;; -------------------- | |
;; This file is a simple alternative to next-buffer/previous-buffer. | |
;; It adds the ability to include patterns to match buffers to skip. | |
;; Usage |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; refactoring from Ben Hyde's slime-documentation-search | |
;; https://gist.github.com/bhyde/5735219 | |
;; this creates 8 kbd shortcuts to 4 lisp search engines | |
;; by specifying a key. | |
;; C-c C-d key should browse with the emacs default browser (my case w3m) | |
;; C-c C-d C-key should browse with the OS default browser | |
;; C-c C-d is the default for the slime-doc-map | |
(defvar slime-documentation-format-quickdocs |