roife

export LANGUAGE=en_US.UTF-8

# auto-completion
zstyle ':completion:*' list-colors "${(@s.:.)LS_COLORS}" # colors for ls
zstyle ':completion:*' matcher-list '' 'm:{a-zA-Z}={A-Za-z}' # case-insensitive when completion with tab
autoload -U compinit
compinit

# cd folder without "cd"
setopt autocd

roife

// ==UserScript==
// @name         <DIV> Blocker
// @namespace    http://tampermonkey.net/
// @version      0.1
// @description  A script to block <DIV> that containing certain keywords
// @author       roife
// @require      https://cdn.bootcdn.net/ajax/libs/jquery/3.6.0/jquery.slim.min.js
// @match        *://*/*
// @grant        none
// ==/UserScript==

roife

(defmacro thing-edit-defcopy (thing)
  "Install funstions of copying for THING."
  `(defun ,(intern (format "thing-edit-copy-%s" thing)) (kill-condition)
     ,(format "Copy %s at current point.
With the universal argument, the text will also be killed" thing)
     (interactive "P")
     (thing-edit ',thing kill-condition)
     ))

(defmacro thing-edit-defcut (thing)

roife

(defun org-paste-image ()
  "Insert images from clipboard under macOS."
  (interactive)
  (let* ((path (concat default-directory "img/"))
         (image-file (concat
                      path
                      (buffer-name)
                      (format-time-string "_%Y%m%d_%H%M%S.png"))))
    (if (not (file-exists-p path))
        (mkdir path))