xuchunyang

/*
  ~ $ ./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

// ==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

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

;;; 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

;;; 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. 用言辞表达

xuchunyang

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"

xuchunyang

;; init.el ends here
(with-current-buffer " *load*" (goto-char (point-max)))

(the following does not matter nay more)

xuchunyang

;; 用绿色高亮「申请人」、黄色高亮「被申请人」

(defun my-highlight-some-text ()
  (hi-lock-set-pattern+ "被申请人" 0 'hi-yellow)
  (hi-lock-set-pattern+ "[^被]\\(申请人\\)" 1 'hi-green))

(add-hook 'org-mode-hook #'my-highlight-some-text)


(defun hi-lock-set-pattern+ (regexp group face)

xuchunyang

旧石器时代

中石器时期

黄河文明

长江文明

新石器时期

xuchunyang

#!/Users/xcy/Projects/emacs/nextstep/Emacs.app/Contents/MacOS/Emacs --script

(require 'package)
(package-initialize)

(princ
 (mapconcat
  #'identity
  (mapcar
   #'car