Skip to content

Instantly share code, notes, and snippets.

View aanoaa's full-sized avatar
๐Ÿ’ญ
๐Ÿ’ฉ ๐Ÿ’ฉ ๐Ÿ’ฉ

Hyungsuk Hong aanoaa

๐Ÿ’ญ
๐Ÿ’ฉ ๐Ÿ’ฉ ๐Ÿ’ฉ
58 followers · 131 following
View GitHub Profile
@aanoaa
aanoaa / index.html
Created February 27, 2012 06:29
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<title>what the hell</title>
<style>
#foo { color: red }
#bar { color: green }
#baz { color: blue }
#bar:before,#baz:before {
@aanoaa
aanoaa / .gitignore
Created February 23, 2012 06:56
.*
*~
!.gitignore
!.perltidyrc
blib
pm_to_blib
Makefile*
!Makefile.PL
MANIFEST*
!MANIFEST.SKIP
@aanoaa
aanoaa / index.coffee
Created February 20, 2012 11:33
require [
"jquery",
"routers/root"
], ($, Router) ->
$(document).ready ->
new Router
Backbone.history.start()
@aanoaa
aanoaa / a.pl
Created December 26, 2011 07:58
#-----------------------------------------------
# by @jeen
#-----------------------------------------------
sub get_activities {
my ($self, $args) = @_;
my ( $cond, $attr ) = $self->_get_activities_condition($args);
my $r = $self->resultset('Activity')->search($cond, $attr);
my $pager = $self->pageset($r->pager);
my @list;
@aanoaa
aanoaa / a.pl
Created December 12, 2011 03:37
use 5.010;
use List::Util 'reduce';
my @numbers = qw/1 2 3/;
my $sum1 = reduce { $a + $b } (0, @numbers);
my $sum2 = reduce { $a + $b } (10, @numbers);
say $sum1;
say $sum2;
__DATA__
6
@aanoaa
aanoaa / erc.el
Created December 7, 2011 09:25
;; joining && autojoing
;; make sure to use wildcards for e.g. freenode as the actual server
;; name can be be a bit different, which would screw up autoconnect
(erc-autojoin-mode t)
(setq erc-autojoin-channels-alist
'((".*\\.freenode.net" "#perl-kr" "#ream-dev")
(".*\\.silex.kr" "#silex")))
(defun djcb-erc-start-or-switch ()
@aanoaa
aanoaa / a.pl
Created December 5, 2011 06:15
#!/usr/bin/env perl
use strict;
use warnings;
my @arr = qw/a b c d f s f d c c s f e s v c x x z d f e s f d f/;
my %cont;
for my $item (@arr) {
$cont{$item}++;
}
@aanoaa
aanoaa / a.md
Created November 30, 2011 14:41

์ˆจ๊ฒจ์ง„ text

perl code๋ฅผ ์‹คํ–‰ํ•  ์ˆ˜ ์žˆ๋‹ค๋ฉด ์†Œ์Šค์ฝ”๋“œ๋ฅผ ๋ณผ ์ˆ˜๋„ ์žˆ์Šต๋‹ˆ๋‹ค. ํ•˜์ง€๋งŒ ๋ช‡ ์ค„ ์•ˆ๋˜๋Š” ์ฝ”๋“œ๋กœ ์ž์‹ ์˜ ์ฝ”๋“œ๋ฅผ ์ˆจ๊ธธ ์ˆ˜๋„ ์žˆ์Šต๋‹ˆ๋‹ค.

์–ด๋–ป๊ฒŒ?

@aanoaa
aanoaa / s3cr3t
Created November 30, 2011 12:10
#!/usr/bin/env perl
use strict;
use warnings;
use Pod::Usage;
use Getopt::Long;
use File::Slurp 'slurp';
my %options;
GetOptions(\%options, "--show", "--help");
@aanoaa
aanoaa / hshong.el
Created November 25, 2011 09:35
;; 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)