Shingo Fukuyama ShingoFukuyama
ShingoFukuyama
/ UIScrollView+Scrollabitily.h
Last active
May 2, 2018 14:12
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // | |
| // UIScrollView+Scrollabitily.h | |
| // | |
| // Created by FukuyamaShingo on 9/4/14. | |
| // Copyright (c) 2014 FukuyamaShingo. All rights reserved. | |
| // | |
| #import <UIKit/UIKit.h> | |
| @interface UIScrollView (Scrollabitily) |
ShingoFukuyama
/ gist:6a02a4cd5b80a4cf3477
Last active
May 30, 2017 05:27
emacs font change with overlay
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; require ov.el (ver 1.0.5) | |
| ;; https://github.com/ShingoFukuyama/ov.el | |
| (require 'ov) | |
| (defvar my-ov-font-size nil) | |
| (defun my-ov-font-size-change (ratio &optional update-all-buffer) | |
| (let ((ov-sticky-rear t) | |
| (ov-sticky-front t)) |
ShingoFukuyama
/ emacs24_3_inline_memleak.sh
Last active
August 29, 2015 14:02
— forked from anonymous/emacs24_3_inline_memleak.sh
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| EMACS_VER=24.3 | |
| curl -O http://ftp.gnu.org/pub/gnu/emacs/emacs-${EMACS_VER}.tar.gz | |
| curl -O https://gist.githubusercontent.com/anonymous/8553178/raw/c0ddb67b6e92da35a815d3465c633e036df1a105/emacs.memory.leak.aka.distnoted.patch.diff | |
| svn co http://svn.sourceforge.jp/svnroot/macemacsjp/inline_patch/trunk inline_patch | |
| tar xvfz emacs-${EMACS_VER}.tar.gz | |
| cd emacs-${EMACS_VER} |
ShingoFukuyama
/ Font-Awesome-for-Emacs.el
Last active
May 3, 2020 11:46
Show Font Awesome icons on Emacs
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; Assume you have already installed Font Awesome on the system | |
| ;; http://fortawesome.github.io/Font-Awesome/ | |
| (require 'ov) | |
| ;; Overlay Library | |
| ;; https://github.com/ShingoFukuyama/ov.el | |
| ;; Example 1: Insert all fonts at the cursor position | |
| (defun font-awesome-insert-all () |
ShingoFukuyama
/ gist:9835808
Last active
May 30, 2017 05:27
Execute Emacs Lisp in org file when it's opened.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (setq my-org-init-elisp-beg "# elisp") | |
| (setq my-org-init-elisp-end "# end") | |
| (setq my-org-init-elisp-comment "^#") | |
| (defun my-org-init-elisp () | |
| (save-excursion | |
| (goto-char (point-min)) | |
| (while (re-search-forward my-org-init-elisp-beg nil t) | |
| (let ($beg $end $elisp) | |
| (forward-line 1) |
ShingoFukuyama
/ my-sanctuarize-region.el
Last active
November 9, 2016 01:45
You can lock editable area from the region you make. #Emacs
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;;; Usage: | |
| ;; Make reagion, and then M-x my-sanctuarize-region. You can only edit the region area you made. | |
| ;; M-x my-sanctuarize-region-clear to clear the effect | |
| (defvar my-sanctuarize-region-outer) | |
| (defun my-sanctuarize-region () | |
| (interactive) | |
| (if mark-active |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defun my-helm-for-only-dir ($query) | |
| (interactive "sDir name: ") | |
| (helm :sources | |
| `((name . "helm for directory") | |
| (candidates . (lambda () | |
| (split-string | |
| (shell-command-to-string | |
| (format "find `pwd -P` -type d | grep '%s'" $query))))) | |
| (action . (lambda ($cand) | |
| (if (file-directory-p $cand) |
ShingoFukuyama
/ Return-to-ControlR-for-Karabiner
Last active
August 29, 2015 13:56
Pretend return key as control_r key. http://fukuyama.co/return-to-right-control
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <?xml version="1.0"?> | |
| <root> | |
| <item> | |
| <name>Change Return Key R</name> | |
| <item> | |
| <name>Return to Command_R</name> | |
| <identifier>remap.return2commandR</identifier> | |
| <autogen>__KeyToKey__ KeyCode::RETURN, KeyCode::COMMAND_R</autogen> | |
| </item> | |
| <item> |
ShingoFukuyama
/ defadvice-to-defsubst.el
Last active
August 29, 2015 13:56
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defun baz1 (arg) | |
| arg) | |
| (defsubst baz2 (arg) | |
| arg) | |
| ;; ---------------------------------------------------------------------- | |
| (defsubst foo1 (aaa) | |
| (baz1 aaa) | |
| (baz2 aaa)) |
ShingoFukuyama
/ Samples of ht.el
Created
February 7, 2014 05:02
Samples of ht.el Emacs Lisp hash table library.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; Wilfred / ht.el | |
| ;; https://github.com/Wilfred/ht.el | |
| (setq $h1 (ht (1 8888) | |
| (2 "ABCDE") | |
| (3 "Emacs Lisp") | |
| (4 "Emacs"))) | |
| ;; => #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data | |
| ;; (1 8888 2 "ABCDE" 3 "Emacs Lisp" 4 "Emacs")) |