Skip to content

Instantly share code, notes, and snippets.

View xuchunyang's full-sized avatar

Xu Chunyang xuchunyang

View GitHub Profile
Received: from mxfront6g.mail.yandex.net ([127.0.0.1])
by mxfront6g.mail.yandex.net with LMTP id XLFpatfZ
for <mail@xuchunyang.me>; Sat, 10 Mar 2018 12:59:13 +0300
Received: from mta109.spmta.com (mta109.spmta.com [52.39.51.184])
by mxfront6g.mail.yandex.net (nwsmtp/Yandex) with ESMTPS id w9EqxDOAUJ-xB784qdI;
Sat, 10 Mar 2018 12:59:12 +0300
(using TLSv1.2 with cipher ECDHE-RSA-AES128-GCM-SHA256 (128/128 bits))
(Client certificate not present)
Return-Path: msprvs1=17607ciPQtabb=bounces-41606@spmailtechn.com
X-Yandex-Front: mxfront6g.mail.yandex.net
@xuchunyang
xuchunyang / add-seu-route.sh
Created August 1, 2014 06:47
修复 Mac 连上 Bras 之后不能访问外网和校内网的问题
#!/usr/bin/env bash
# Program: 添加东南大学路由表 | http://git.io/AOIiRg
# Note: 使用前需要修改 GATEWAY
# Usage: 添加路由表: sudo add-seu-route.sh
# 删除路由表: sudo add-seu-route.sh del
GATEWAY=192.168.7.1 # 修改成你的连接 bras 前的默认网关
#---------------------------------------------------------------
SEU_NETWORKS=(
@xuchunyang
xuchunyang / emacsclient.fish
Created April 9, 2018 09:49
emacsclient fish shell completion
complete -c emacsclient -l version -s V -d "Just print version info and return"
complete -c emacsclient -l help -s h -d "Print this usage information message"
complete -c emacsclient -l tty -s t -o nw -d "Open a new Emacs frame on the current terminal"
complete -c emacsclient -l create-frame -s c -d "Create a new frame instead of trying to use the current Emacs frame"
complete -c emacsclient -l frame-parameters -s F -d "Set the parameters of a new frame"
complete -c emacsclient -l eval -s e -d "Evaluate the FILE arguments as ELisp expressions"
complete -c emacsclient -l no-wait -s n -d "Don't wait for the server to return"
complete -c emacsclient -l quiet -s q -d "Don't display messages on success"
complete -c emacsclient -l suppress-output -s u -d "Don't display return values from the server"
complete -c emacsclient -l display -s d -d "Visit the file in the given display"
(setf (buffer-string) (buffer-name))
(setf (mark) 10
(point) 20)
(setq my-list '(0 1 2 3 4 5))
(cl-letf ((my-list))
(message "%s" my-list)) ;; ==> "(0 1 2 3 4 5)"
/*
~ $ ./file-mime-type foo.png
image/png
*/
#include <magic.h>
#include <stdio.h>
int main(int argc, char *argv[]) {
magic_t cookie = magic_open (MAGIC_MIME_TYPE);
@xuchunyang
xuchunyang / hn.user.js
Last active September 20, 2018 20:09
My first user script
// ==UserScript==
// @name Hacker News Demo
// @namespace http://tampermonkey.net/
// @version 0.1
// @description 测试 User Script
// @author xuchunyang
// @match https://news.ycombinator.com/
// @grant none
// ==/UserScript==
@xuchunyang
xuchunyang / grep.rkt
Last active July 4, 2018 09:24
Print matched lines
;;; grep.rkt --- Print matched lines
;; Author: Xu Chunyang <mail@xuchunyang.me>
;; Created: Tue, 03 Jul 2018 21:51:49 +0800
;; Updated: Wed, 04 Jul 2018 17:23:58 +0800
;; Homepage: https://gist.github.com/xuchunyang/3f9b4610c4cf6aff4647dc3ccafbdc26
;;; Commentary:
;; Example:
@xuchunyang
xuchunyang / ydcv.rkt
Created July 2, 2018 07:58
Youdao Dictionary Console Version in Racket
;;; ydcv.rkt --- Youdao Dictionary Console Version in Racket
;; Author: Xu Chunyang <mail@xuchunyang.me>
;; Created: Mon Jul 2 15:19:31 CST 2018
;; Usage:
;;
;; $ racket ydcv.rkt word
;; n. [语] 单词;话语;消息;诺言;命令
;; vt. 用言辞表达
#!/Users/xcy/Projects/emacs/nextstep/Emacs.app/Contents/MacOS/Emacs --script
(require 'package)
(package-initialize)
(princ
(mapconcat
#'identity
(mapcar
#'car
旧石器时代
中石器时期
黄河文明
长江文明
新石器时期