aanoaa

;; env for GUI
(defun set-exec-path-from-shell-PATH ()
  (let ((path-from-shell (replace-regexp-in-string
                          "[ \t\n]*$"
                          ""
                          (shell-command-to-string "$SHELL --login -i -c 'echo $PATH'"))))
    (setenv "PATH" path-from-shell)
    (setq exec-path (split-string path-from-shell path-separator))))

(if window-system (set-exec-path-from-shell-PATH))

aanoaa

package Foo {
use Moose;
use Moose::Util::TypeConstraints;
use namespace::autoclean;
use Config::General 'ParseConfig';

subtype 'Adapter',
  as 'Str',
  where { /(:?shell|irc)/i };

aanoaa

#!/usr/bin/env perl
use strict;
use warnings;
use XML::Simple;

my $ref = XMLin('AndroidManifest.xml');
for my $permission (@{ $ref->{'uses-permission'} }) {
  my $name = delete $permission->{'android:name'};
  print "$name\n";
  while (my ($key, $value) = each %$permission) {

aanoaa

;; visible bell
(setq visible-bell nil)
;; allow selection deletion
(delete-selection-mode t)
;; make sure delete key is delete key
(global-set-key [delete] 'delete-char)
;; have emacs scroll line-by-line
(setq scroll-step 1)
;; set color-theme
(color-theme-zenburn)

aanoaa

oops

aanoaa

#define _c(C)_ (C)&('|'+3):c_()(C)>>('\n'-3) __; /**/
#define C char*
#define keyboard ",,B3-u;.(&*5., /(b*(1\036!a%\031m,,,,,\r\n"
#define main(o,oo)oo(o){
#define _ ;case
C
#define c_(cc)c cc=
#define C_(sand)_O(sand)witch
o=keyboard;
#define __ ;break;

aanoaa

test gist with 한글

aanoaa

안뇽하세요

sfddsfsdfdsf

aanoaa

#!/usr/bin/env perl
use strict;
use warnings;
my $str = "---------- ---- -- - - - -----------";
my %seen;
for my $i (1..9) {
    my $j = 10 - $i;
    while ($str =~ m/
        (?=[ ]?[-]{$j})
        (?<=-{$i})

aanoaa

We couldn’t find that file to show.