Skip to content

Instantly share code, notes, and snippets.

Avatar
💭
I may be slow to respond.

Yuan Fu casouri

💭
I may be slow to respond.
View GitHub Profile
View long-line.org
JournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournalRecordMeta zoneJournal
@casouri
casouri / doc-view.el
Created Jul 8, 2020
doc-view fix for Emacs27
View doc-view.el
;;; doc-view.el --- View PDF/PostScript/DVI files in Emacs -*- lexical-binding: t -*-
;; Copyright (C) 2007-2020 Free Software Foundation, Inc.
;;
;; Author: Tassilo Horn <tsdh@gnu.org>
;; Keywords: files, pdf, ps, dvi
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
View wucuo log
CPU profiler started
Saving file /Users/yuan/emacs/src/xdisp.c...
Wrote /Users/yuan/emacs/src/xdisp.c
wucuo-spell-check-buffer called.
flyspell-region called from 22867 to 25824
Starting new Ispell process aspell with default dictionary...done
mode-predicate=nil
font-matched=(font-lock-string-face font-lock-doc-face font-lock-comment-face font-lock-builtin-face font-lock-function-name-face font-lock-variable-name-face font-lock-type-face js2-function-call js2-function-param js2-object-property js2-object-property-access font-lock-builtin-face css-selector css-property rjsx-text rjsx-tag rjsx-attr), current-font-face=font-lock-string-face
wucuo-generic-check-word-predicate => word=h rlt=nil wucuo-extra-predicate=(lambda (word) t) subwords=nil
mode-predicate=nil
View xdisp.c
This file has been truncated, but you can view the full file.
/* Display generation from window structure and buffer text.
Copyright (C) 1985-1988, 1993-1995, 1997-2020 Free Software Foundation,
Inc.
This file is part of GNU Emacs.
GNU Emacs is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
View undo-redo.el
(unless (boundp 'undo--last-change-was-undo-p)
(defun undo--last-change-was-undo-p (undo-list)
(while (and (consp undo-list) (eq (car undo-list) nil))
(setq undo-list (cdr undo-list)))
(gethash undo-list undo-equiv-table))
(defun undo-redo (&optional arg)
"Undo the last ARG undos."
(interactive "*p")
(cond
View new-wrap.patch
From f7c58ba4f67a7c8bcffbb7b7077b10fd944471eb Mon Sep 17 00:00:00 2001
From: Yuan Fu <casouri@gmail.com>
Date: Tue, 26 May 2020 22:47:27 -0400
Subject: [PATCH] checkpoint
---
src/xdisp.c | 131 ++++++++++++++++++++++++++++++++++++----------------
1 file changed, 92 insertions(+), 39 deletions(-)
diff --git a/src/xdisp.c b/src/xdisp.c
View index.html
This file has been truncated, but you can view the full file.
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<!-- This is the GNU Emacs Lisp Reference Manual
corresponding to Emacs version 27.0.60.
Copyright © 1990-1996, 1998-2020 Free Software Foundation,
Inc.
Permission is granted to copy, distribute and/or modify this document
@casouri
casouri / lambda.el
Created Dec 25, 2019
Untyped lambda calculus
View lambda.el
;; Term = (Var index context-size)
;; | (Abs term bound-var-name)
;; | (App term term)
;; Context = [(name, _)]
(defun var-name (context-elm)
"Get name of CONTEXT-ELM."
(car context-elm))
(defun add-var (var context)
@casouri
casouri / Portfile
Created Dec 3, 2019
Portfile for v2ray
View Portfile
# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4
PortSystem 1.0
name v2ray
version 4.21.3
categories net security
platforms darwin
license MIT
maintainers {@casouri gmail.com:casouri}
@casouri
casouri / README.org
Last active Dec 14, 2018
simple custom flymake modeline
View README.org

Modified from flymake--mode-line-format. I only used diags-by-type, you can do stuff with known, running, disabled, etc.

I use unicode for each type of diagnose, flymake-error/warning/note-bitmap would be intersting to use, too.

Don’t read source of flymake--mode-line-format, your sanity will drop.

还可以用汉字代替unicode符号,比如“死”,“警”,“意”对应“error”,“warning”和“note”。 用汉字的话建议在汉字和数字之间加半个空格: M-x insert-char RET thin space RET

You can’t perform that action at this time.