blue0513’s gists

blue0513 / 物件.md

Last active December 8, 2021 03:16

物件.md

blue の個人的な備忘録です

中古マンション購入までの流れ

blue0513 / gasTwitterBot.gs

Last active February 3, 2024 09:51

Twitter Bot managed By Google App Script

	// ref: https://gist.github.com/M-Igashi/750ab08718687d11bff6322b8d6f5d90

	// 認証用インスタンス
	var twitter = TwitterWebService.getInstance(
	'', // 作成したアプリケーションのConsumer Key
	'' // 作成したアプリケーションのConsumer Secret
	);


	/// main methods ///

blue0513 / funcy-put-str!.el

Created April 23, 2019 14:34

blue0513 / my-smart-copy.el

Last active March 14, 2019 12:28

copy the region or thing-at-point

	(defun my-smart-copy ()
	"If the region is selected, copy the region. If not, copy thing-at-point."
	(interactive)
	(cond
	((region-active-p)
	(progn
	(copy-region-as-kill (region-beginning) (region-end))
	(message "region copied!")))
	((thing-at-point 'symbol)
	(progn

blue0513 / my-buffer-expose.el

Created February 25, 2019 16:43

sample settings of buffer-expose.el

	(require 'buffer-expose)
	(setq buffer-expose-max-num-windows 8)
	(setq buffer-expose-max-num-buffers 100)
	(setq buffer-expose-hide-headerlines t)
	(setq buffer-expose-hide-modelines t)
	(setq buffer-expose-rescale-factor 0.9)
	(setq buffer-expose-hide-regexes
	'("init.el" ".log." "Messages" "Help" "Compile-Log" "scratch"))

blue0513 / ensime-popup-type.el

Created February 7, 2019 16:59

show tooltip: ensime-type-at-point

blue0513 / flycheck-notification.el

Last active December 27, 2018 14:12

When flycheck detects errors, post desktop notification on Mac

	(add-hook 'flycheck-status-changed-functions
	(lambda (status)
	(when (eq status 'finished)
	(if(flycheck-has-current-errors-p 'error)
	(notification-center "flycheck ERROR")))))

	;; Mavericksで Emacsからデスクトップ通知を使う
	;; http://syohex.hatenablog.com/entry/20131025/1382712857
	(defvar notification-center-title "Emacs")
	(defun notification-center (msg)

blue0513 / my-fill-column-indicator.el

Created December 13, 2018 13:25

my settings for fill-column-indicator.el

	;; load package
	(add-to-list 'load-path "~/github/Fill-Column-Indicator")
	(require 'fill-column-indicator)

	;; invoke when prog-mode
	(add-hook 'prog-mode-hook 'fci-mode)

	;; when ruby-mode, rule-column is 80
	(add-hook 'ruby-mode-hook
	(lambda () (setq fci-rule-column 80)))

blue0513 / finder-open.el

Created December 9, 2018 07:24

Open finder with Emacs !

	;; open current directory
	(defun finder-current-dir-open()
	(interactive)
	(shell-command "open ."))

	;; open selected directory
	(defun finder-open(dirname)
	(interactive "DDirectoryName:")
	(shell-command (concat "open " dirname)))

blue0513 / eslint-auto.el

Last active January 3, 2020 15:50 — forked from ustun/eslint-auto.el

run eslint --fix on emacs file save

	;; forked from https://gist.github.com/ustun/73321bfcb01a8657e5b8

	(defun eslint-fix-file ()
	(interactive)
	(call-process-shell-command
	(concat "eslint --fix " (buffer-file-name)) nil 0))

	(defun eslint-fix-file-and-revert ()
	(interactive)
	(eslint-fix-file)

	(defun ensime-popup-type ()
	(interactive)
	(let* ((type (ensime-type-at-point-full-name)))
	(popup-tip type)))