peccu

#!/bin/bash
#-*- shell-script -*-

cat <<EOF
# history setting
HISTSIZE=100000
HISTFILESIZE=1000000
# append (default)
shopt -s histappend
# sync on multiple terminals

peccu

(defvar insert-date-format-history '())
(defun insert-date (arg)
  "Insert date with specific format.

Default format is %Y/%m/%d.
Call with `C-u' inserts %Y%m%d.
with `C-u C-u' inserts %Y-%m-%d.
with `C-u C-u C-u' prompts format."
  (interactive "p")
  (let* ((default-format "%Y/%m/%d %H:%M:%S")

peccu

<?php
App::uses('FormHelper', 'View/Helper');

class HogeFormHelper extends FormHelper {

/**
 * Returns a set of SELECT elements for a full datetime setup: day, month and year, and then time.
 *
 * ### Attributes:
 *

peccu

<form>
  <input type="file" id="form_image" onchange="previewImg(this, 'image');">
  <img id="image" style="visibility: hidden;">
  <a href="#" onclick="deleteImg(this, 'image')" id="delete_image" style="visibility: hidden;">unset image</a>
</form

peccu

#!/bin/bash
 
# settings
# Login information of freenom.com
freenom_email="main@address"
freenom_passwd="pswd"
# Open DNS management page in your browser.
# URL vs settings:
#   https://my.freenom.com/clientarea.php?managedns={freenom_domain_name}&domainid={freenom_domain_id}
freenom_domain_name="domain.name"

peccu

Floating box

A Pen by peccu on CodePen.

License.

peccu

Keybase proof

I hereby claim:

• I am peccu on github.
• I am peccu (https://keybase.io/peccu) on keybase.
• I have a public key ASBBOwgpqZUDhPObj_I85BwwiMUT62pQ3W0QsDJY6XixJAo

To claim this, I am signing this object:

peccu

;; mew summary date/time considering timezone
;; http://permalink.gmane.org/gmane.mail.mew.general.japanese/2355
(defun mew-summary-form-time-z ()
  "A function to return a message time, HH:MM"
  (let ((s (MEW-DATE)))
    (setq s (timezone-make-date-arpa-standard
             (if (or (string= s "")
                     (not (string-match mew-time-rfc-regex s)))
                 (mew-time-ctz-to-rfc
                  (mew-file-get-time (mew-expand-folder (MEW-FLD) (MEW-NUM))))

peccu

(defun delete-horizontal-big-space (&optional backward-only)
  "Delete all spaces and tabs and big space around point.
If BACKWARD-ONLY is non-nil, only delete them before point."
  (interactive "*P")
  (let ((orig-pos (point)))
    (delete-region
     (if backward-only
         orig-pos
       (progn
         (skip-chars-forward " \t　")

peccu

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(ql:quickload :lem)
(defun main (&rest argv)
  (declare (ignorable argv))
  (if (car argv)
      (lem:lem (car argv))