fasheng

TagUI是个不错的前端自动化测试工具，使用它可以非常简单的批量对github项目进行归档操作。

---

TagUI is a great front-end automation testing tool. With it, we could archive multiple github projects easily.

Usage:

npm install tagui
tagui flow.txt chrome

fasheng

color background color188 color237
color info color144 color234
color article color188 color237
color listnormal color188 color237
color listfocus color108 color236
color listnormal_unread color223 color237
color listfocus_unread color108 color236

highlight article "^Feed:.*" color174 color237
highlight article "^Title:.*" color223 color237 bold

fasheng

#!/bin/bash

_pkgsite="http://packages.linuxdeepin.com"
pkgsite="${_pkgsite}/deepin"
deepin_debian_source="${pkgsite}/dists/trusty/main/source/Sources.gz"
tmp_source_file="/tmp/sources"

download_debian_source() {
    curl --retry 3 --retry-delay 3 -o "${tmp_source_file}".gz "${deepin_debian_source}"
    gunzip -f "${tmp_source_file}".gz

fasheng

(defun fsh-semantic-pkg-config (libs mode)
  "Add semantic system include DIR through pkg-config.

Usage: (fsh-semantic-pkg-config \"gtk+-2.0 QtGui QtNetwork...\" 'c-mode)"
  (let* ((pkg-cmd "pkg-config")
         (pkg-opt (format "--cflags %s" libs)))
    (setq result (shell-command-to-string (format "%s %s" pkg-cmd pkg-opt)))
    (dolist (str (split-string result))
      (if (string-match-p "^-I" str)
          (semantic-add-system-include (substring str 2 nil) mode)

fasheng

#! /usr/bin/expect -f

set timeout 60

if {$argc != 2} {
    set scriptname [lindex [split $argv0 "/"] end]
    send_user "Usage: $scriptname \"APPID01|APPID02..\" <email>\n"
    exit
}

fasheng

(defadvice org-publish (around fsh-org-publish-advice
                                        (project &optional force async) activate)
  "Change theme before publishing, for getting a good html code highlight style through
htmlize."
  (let ((thems custom-enabled-themes))
      (dolist (theme thems)
        (disable-theme theme))
      (load-theme 'github)
      ad-do-it
      (disable-theme 'github)

fasheng

;;;###autoload
(and load-file-name
     (boundp 'custom-theme-load-path)
     (add-to-list 'custom-theme-load-path
                  (file-name-as-directory
                   (file-name-directory load-file-name))))

(provide-theme 'theme-name)

fasheng

(defun fsh-revert-buffer-as-root ()
  "Revert buffer as root."
  (interactive)
  (let ((buf (current-buffer))
        (filename) (sudo-filename))
    (setq filename (buffer-file-name buf))
    (setq sudo-filename (concat "/sudo::" filename))
    (kill-buffer buf)
    (find-file sudo-filename)
    (message sudo-filename)

fasheng

(defadvice org-html-paragraph (before fsh-org-html-paragraph-advice
                                      (paragraph contents info) activate)
  "Join consecutive Chinese lines into a single long line without
unwanted space when exporting org-mode to html."
  (let ((fixed-contents)
        (orig-contents (ad-get-arg 1))
        (reg-han "[[:multibyte:]]"))
    (setq fixed-contents (replace-regexp-in-string
                          (concat "\\(" reg-han "\\) *\n *\\(" reg-han "\\)")
                          "\\1\\2" orig-contents))