Skip to content

Instantly share code, notes, and snippets.

View jidaikobo-shibata's full-sized avatar

jidaikobo-shibata jidaikobo-shibata

View GitHub Profile
@jidaikobo-shibata
jidaikobo-shibata / normalize-chars.el
Last active May 16, 2022 23:23
Emacs(Elisp): 全角英数字を半角英数字に、半角カナを全角に、UTF-8の濁点分離を直す。
;;; ------------------------------------------------------------
;;; 全角英数字を半角英数字に、半角カナを全角に、UTF-8の濁点分離を直す
;; http://d.hatena.ne.jp/nakamura001/20120529/1338305696
;; http://www.sakito.com/2010/05/mac-os-x-normalization.html
;; gist-description: Emacs(Elisp): 全角英数字を半角英数字に、半角カナを全角に、UTF-8の濁点分離を直す。
;; gist-id: 08a752b04107dbc50ef5
;; gist-name: normalize-chars.el
;; gist-private: nil
(require 'ucs-normalize)
@jidaikobo-shibata
jidaikobo-shibata / yagist-region-create-or-update.el
Last active July 19, 2016 09:30
Emacs(Elisp): create or update gist by using yagist. yagistでregionのgistをupdateする。
;;; ------------------------------------------------------------
;; gist-description: Emacs(Elisp): create or update gist by using yagist. yagistでregionのgistをupdateする。
;; gist-id: a20cd2d106edba225115
;; gist-name: yagist-region-create-or-update.el
;; gist-private: nil
(require 'yagist)
(defun yagist-region-create-or-update (beg end)
"Post the current region as a create or update at gist.github.com.
@jidaikobo-shibata
jidaikobo-shibata / join-multi-lines-to-one.el
Last active January 5, 2023 09:33
Emacs(Elisp): Join multi lines to one. 選択範囲を1行にまとめます。
;;; ------------------------------------------------------------
;;; 選択範囲を1行にする。最初のインデントは残す。
;; gist-description: Emacs(Elisp): Join multi lines to one. 選択範囲を1行にまとめます。
;; gist-id: ee6b2f8ef659ed58605d
;; gist-name: join-multi-lines-to-one.el
;; gist-private: nil
(defun join-multi-lines-to-one ()
"Join multi lines."
(interactive)
@jidaikobo-shibata
jidaikobo-shibata / is-once-in-a-day.el
Last active July 18, 2016 05:07
Emacs(Elisp): return t once in a day. 1日一回tを返すelispです。
;;; ------------------------------------------------------------
;;; 1日1回のチェック
;; gist-description: Emacs(Elisp): return t once in a day. 1日一回tを返すelispです。
;; gist-id: 33e072cea6aa96a19f58
;; gist-name: is-once-in-a-day.el
;; gist-private: nil
(defun is-once-in-a-day ()
"Is once in a day."
(interactive)
@jidaikobo-shibata
jidaikobo-shibata / do-somthing-with-peco.sh
Last active November 28, 2015 08:46
shellscripts of MacOS X+bash4+peco
#!/bin/bash
# peco-open-emacs
function peco-open-emacs
{
local files="$( find . -type f | peco )"
files_str=''
for file in $files
do
files_str=$files_str' '$file
@jidaikobo-shibata
jidaikobo-shibata / backup.sh
Last active December 9, 2015 12:24
backup shellscript.
#!/bin/sh
# variables
name="username"
dbpass="dbpass"
dbname="dbname"
host="host"
dirname="dirname"
# dump