Skip to content

Instantly share code, notes, and snippets.

@hchbaw

hchbaw/diff0.html

Created February 26, 2010 13:30
Show Gist options
  • Save hchbaw/315711 to your computer and use it in GitHub Desktop.
Save hchbaw/315711 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
diff0.html
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
<!-- Created by htmlize-1.37 in css mode. -->
<html>
<head>
<title>*ansi-term*</title>
<style type="text/css">
<!--
body {
background: #000000;
color: #cccccc;
}
.ATTRLIST {
/* (:weight bold :foreground "cyan3" :background unspecified) */
color: #a4becd;
}
.ATTRLIST-1 {
/* (:weight bold :foreground "red3" :background unspecified) */
color: #ee9dbd;
}
.ATTRLIST-2 {
/* (:weight bold :foreground "blue2" :background unspecified) */
color: #838dbd;
}
.ATTRLIST-3 {
/* (:weight bold :foreground "yellow3" :background unspecified) */
color: #ffea83;
}
.ATTRLIST-4 {
/* (:weight bold :foreground "green3" :background unspecified) */
color: #aff7af;
}
.ATTRLIST-5 {
/* (:background "unspecified-bg" :foreground "unspecified-fg") */
/*color: unspecified-fg;
background-color: unspecified-bg;*/
}
.ATTRLIST-6 {
/* (:foreground "white" :background unspecified) */
color: #e5e5e5;
}
.ATTRLIST-7 {
/* (:weight bold :foreground "black" :background unspecified) */
color: #797979;
}
.default {
/* default */
background-color: #000000;
color: #cccccc;
}
a {
color: inherit;
background-color: inherit;
font: inherit;
text-decoration: inherit;
}
a:hover {
text-decoration: underline;
}
-->
</style>
</head>
<body>
<pre>
<span class="ATTRLIST-7">2974 22:16</span><span class="ATTRLIST-6"> ~/c/dot-home</span><span class="default">
</span><span class="ATTRLIST-5">&gt; </span><span class="ATTRLIST-5">git diff --color-words</span><span class="ATTRLIST-5"> --relative=emacs.d</span><span class="default">
</span><span class="ATTRLIST-4">diff --git a/anything.el b/anything.el</span><span class="default">
</span><span class="ATTRLIST-4">index 302757a..0c0f43f 100644</span><span class="default">
</span><span class="ATTRLIST-4">--- a/anything.el</span><span class="default">
</span><span class="ATTRLIST-4">+++ b/anything.el</span><span class="default">
</span><span class="ATTRLIST-3">@@ -3642,13 +3642,17 @@</span><span class="ATTRLIST-5"> </span><span class="ATTRLIST-2">(defun anything-revive-visible-mark ()</span><span class="default">
</span><span class="ATTRLIST-5"> (with-current-buffer anything-buffer</span><span class="default">
</span><span class="ATTRLIST-5"> (loop for o in anything-visible-mark-overlays do</span><span class="default">
</span><span class="ATTRLIST-5"> (goto-char (point-min))</span><span class="default">
</span><span class="ATTRLIST-5"> </span><span class="ATTRLIST-1">(when</span><span class="ATTRLIST">(let (moved)</span><span class="default">
</span><span class="ATTRLIST"> (while (and (not moved)</span><span class="default">
</span><span class="ATTRLIST-5"> (search-forward (overlay-get o 'string) nil </span><span class="ATTRLIST-1">t)</span><span class="ATTRLIST">t))</span><span class="default">
</span><span class="ATTRLIST-5"> (forward-line -1)</span><span class="default">
</span><span class="ATTRLIST-5"> (when (save-excursion</span><span class="default">
</span><span class="ATTRLIST-5"> (goto-char (anything-get-previous-header-pos))</span><span class="default">
</span><span class="ATTRLIST-5"> (equal (overlay-get o 'source)</span><span class="default">
</span><span class="ATTRLIST-5"> (buffer-substring (line-beginning-position) (lin</span><span class="ATTRLIST-5">en</span><span class="default">
</span><span class="ATTRLIST-5">d-position))))</span><span class="default">
</span><span class="ATTRLIST-5"> (move-overlay o (line-beginning-position) (1+ </span><span class="ATTRLIST-1">(line-end-posit</span><span class="ATTRLIST-1">n)</span><span class="default">
</span><span class="ATTRLIST-1">)))))))</span><span class="ATTRLIST">(line-end-position)))</span><span class="default">
</span><span class="ATTRLIST"> (setq moved t))</span><span class="default">
</span><span class="ATTRLIST"> (forward-line 1))))))</span><span class="default">
</span><span class="ATTRLIST-5">(add-hook 'anything-update-hook 'anything-revive-visible-mark)</span><span class="default">
</span><span class="ATTRLIST-5">(defun anything-next-visible-mark (&amp;optional prev)</span><span class="default">
</span></pre>
</body>
</html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment