aaron-em

Keybase proof

I hereby claim:

• I am aaron-em on github.
• I am aaronem (https://keybase.io/aaronem) on keybase.
• I have a public key whose fingerprint is 7C64 8A1F A6AF 5406 02F6 3882 5772 90D4 9783 1C01

To claim this, I am signing this object:

aaron-em

#!/usr/bin/perl

use constant EOT => chr(4);
use constant BEL => chr(7);
use constant ESC => chr(27);
use constant FONTSCALE => 1.3;

# FIXME this is not idempotent - calling it a second time hoses up the
# terminal
sub get_term_fontsize {

aaron-em

#!/usr/bin/perl

use constant EOT => chr(4);
use constant BEL => chr(7);
use constant ESC => chr(27);

sub get_term_fontsize {
    local $|=1;
    my $oldstty = `stty -g`;
    my $resp;

aaron-em

(defun kill-and-yank-at-line (line)
  "Kill the region and yank it at the given LINE."
  (interactive "nLine: ")
  (save-excursion
    (kill-region (region-beginning) (region-end))
    (goto-line line)
    (yank)))

aaron-em

(defcustom *expected-packages*
  package-activated-list
  "The list of packages which should be installed in any Emacs
using this init system."
  :risky t
  :type '(repeat (symbol)))

;; detect and (offer to) install missing packages
(defun package-install-missing nil
  "If the current Emacs install lacks packages in

aaron-em

(defun expand-a-thing nil
  `(:thing-is ,blah))

(let ((blah "what"))
  (expand-a-thing))

;; -> (:thing-is "what")

aaron-em

--- src/emacs-dist.c	2015-07-17 08:33:53.065388047 -0400
+++ src/emacs.c	2015-07-17 09:54:39.085327207 -0400
@@ -1012,6 +1012,13 @@
 #ifndef DOS_NT
       pid_t f;
 
+      int no_fork = 0;
+
+      if (argmatch(argv, argc, "-nofork", "--nofork", 5, NULL, &skip_args)) {
+	fprintf(stderr, "Daemon won't background itself.\n");

aaron-em

(defun foo-swab (s)
  (mapconcat #'(lambda (s)
                 (if (string= s "0") "1"
                   "0"))
             (split-string s "" t) ""))

(foo-swab "10010")
  ; => "01101"

aaron-em

(mapconcat #'(lambda (s)
               (if (string= s "0") "1"
                   "0"))
           (split-string "10010" "" t) "")