Skip to content

Instantly share code, notes, and snippets.

View mpontus's full-sized avatar

Michael Pontus mpontus

43 followers · 43 following
View GitHub Profile
@mpontus
mpontus / messages.log
Created January 9, 2013 05:07
Jan 9 04:22:08 localhost dbus[12815]: [system] Activating service name='org.freedesktop.NetworkManager' (using servicehelper)
Jan 9 04:22:08 localhost dbus[12815]: [system] Activated service 'org.freedesktop.NetworkManager' failed: Launch helper exited with unknown return code 1
Jan 9 04:26:02 localhost dbus[12815]: [system] Activating service name='org.freedesktop.NetworkManager' (using servicehelper)
Jan 9 04:26:02 localhost dbus[12815]: [system] Activated service 'org.freedesktop.NetworkManager' failed: Launch helper exited with unknown return code 1
Jan 9 04:26:04 localhost dbus[12815]: [system] Activating service name='org.freedesktop.NetworkManager' (using servicehelper)
Jan 9 04:26:04 localhost dbus[12815]: [system] Activated service 'org.freedesktop.NetworkManager' failed: Launch helper exited with unknown return code 1
Jan 9 04:28:09 localhost dbus[12815]: [system] Activating service name='org.freedesktop.NetworkManager' (using servicehelper)
Jan 9 04:28:09 localhost dbus[12815]: [system] Act
@mpontus
mpontus / messages.log
Created January 9, 2013 05:08
Jan 9 04:09:39 localhost pptp[30625]: anon log[decaps_gre:pptp_gre.c:414]: buffering packet 2050 (expecting 2043, lost or reordered)
Jan 9 04:09:39 localhost pptp[30625]: anon log[decaps_gre:pptp_gre.c:414]: buffering packet 2051 (expecting 2043, lost or reordered)
Jan 9 04:09:39 localhost pptp[30625]: anon log[decaps_gre:pptp_gre.c:414]: buffering packet 2053 (expecting 2043, lost or reordered)
Jan 9 04:09:39 localhost pptp[30625]: anon log[decaps_gre:pptp_gre.c:414]: buffering packet 2054 (expecting 2043, lost or reordered)
Jan 9 04:09:43 localhost dbus[12815]: [system] Activating service name='org.freedesktop.NetworkManager' (using servicehelper)
Jan 9 04:09:43 localhost dbus[12815]: [system] Activated service 'org.freedesktop.NetworkManager' failed: Launch helper exited with unknown return code 1
Jan 9 04:09:45 localhost dbus[12815]: [system] Activating service name='org.freedesktop.NetworkManager' (using servicehelper)
Jan 9 04:09:45 localhost dbus[12815]: [system] Activated service 'org.freedesk
@mpontus
mpontus / openvpn.conf
Created January 13, 2013 20:31
# non default port to prevent worm attacks!
port 11194
proto tcp
dev tun
ca privnet/ca.crt
cert privnet/server.crt
key privnet/server.key
dh privnet/dh1024.pem
server 10.7.0.0 255.255.255.0
ifconfig-pool-persist ipp.txt
@mpontus
mpontus / magit-gh-repos-mode.el
Created January 17, 2015 06:25
(defun read-list ()
(if (not (eq ?\( (following-char)))
(read (current-buffer))
(forward-char 1)
(prog1
(let (elements)
(while (not (memq (following-char) '(?\) ?\.)))
(push (read (current-buffer)) elements))
(setq elements (nreverse elements))
(if (eq ?\. (following-char))
@mpontus
mpontus / Repeat eval minibuffer.
Last active August 29, 2015 14:13
(add-hook 'eval-expression-minibuffer-setup-hook
(defun setup-repeat ()
(local-set-key (this-command-keys)
(lambda nil (interactive)
(command-execute 'previous-history-element)
(command-execute 'exit-minibuffer nil (vconcat (kbd "RET")))))))
@mpontus
mpontus / docstring-re.txt
Created January 26, 2015 15:18
"\n\\s-*\"\"\"\\s-*\n\\(?:\\\\\"\"\"\\|[^\"]\"\"\\|[^\"]\"\\|[^\"]\\)+?\"\"\""
@mpontus
mpontus / *Org Src .el
Created February 12, 2015 02:25
(ncaa/add-handler
:for window
:name ncaa/selected-window-if-changed
(lambda (fn &rest args)
((starting-window (selected-window)))
(unless (eq starting-window (selected-window))
(prog1 (selected-window)
(select-window starting-window)))))
(ncaa/add-handler
@mpontus
mpontus / command-decorators.el
Created February 12, 2015 19:02
(there-could-be-any number of args
on
first
line
)
(and-i-want following lines to continue
with
minimal
indent)
@mpontus
mpontus / names-introspect.el
Created February 13, 2015 03:07
(defun names-introspect-replace-labels (fn form)
(let* ((vars names--var-list)
(bindings (--> (-map 'symbol-value vars)
(-interleave vars it)
(-partition 2 it))))
`(lexical-let ,bindings ',@form)))
(lexical-let ((names--name new-)
(names--regexp "\\`new-")
(names--bound nil)
@mpontus
mpontus / names-introspect.el
Created February 13, 2015 03:14
(defun names-introspect-replace-labels (fn form)
(let* ((vars names--var-list)
(bindings (--> (-map 'symbol-value vars)
(-interleave vars it)
(-partition 2 it))))
`(lexical-let ,bindings ,form)
))
(defmacro names-introspect-replace-labels-1 (bindings form)