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 wrap.txt
RTL in RTL
الثعلب البني السريع يقفز فوق الكلب الكسول.الثعلب البني السريع يقفز فوق الكلب الكسول.الثعلب البني السريع يقز فوق ال 《الكسو ل.الثعل 》 ب الكسول.الثعلب البني السريع يقفز
LRT in LRT
中文中文中文中文中文中文中文中文中文中文中文中文中文中文,中文《中文中文》中文中文中文中文中文中中文中文中文中文中中文中文中文中文中文
LRT in RTL
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}
You can’t perform that action at this time.