Top | Wiki | Blog | Github  

差分

この文書の現在のバージョンと選択したバージョンの差分を表示します。

この比較画面にリンクする

両方とも前のリビジョン 前のリビジョン
emacs:utility.el [2017/08/09 08:26]
takaxp
emacs:utility.el [2017/09/03 08:12] (現在)
takaxp
ライン 10: ライン 10:
  
 <code emacs-lisp>​ <code emacs-lisp>​
-(require 'org nil t) +  ​(require 'org nil t) 
-;;;###​autoload + 
-(defun eval-org-buffer () +  ​;;;###​autoload 
-  "Load init.org/​utility.org and tangle init.el/​utility.el."​ +  (defun eval-org-buffer () 
-  (interactive) +    "Load init.org/​utility.org and tangle init.el/​utility.el."​ 
-  (if (and (eq major-mode '​org-mode) +    (interactive) 
-           ​(member (buffer-name) '​("​init.org"​ "​utility.org"​))) +    (if (and (eq major-mode '​org-mode) 
-      (progn +             ​(member (buffer-name) '​("​init.org"​ "​utility.org"​))) 
-        (org-babel-tangle) +        (progn 
-        (let ((tangled-file +          (org-babel-tangle) 
-               ​(concat (file-name-sans-extension (buffer-file-name)) "​.el"​))) +          (let ((tangled-file 
-          (when (file-exists-p tangled-file) +                 ​(concat (file-name-sans-extension (buffer-file-name)) "​.el"​))) 
-            (byte-compile-file tangled-file)))) +            (when (file-exists-p tangled-file) 
-    (message "​Nothing to do for this buffer."​)))+              (byte-compile-file tangled-file)))) 
 +      (message "​Nothing to do for this buffer."​)))
 </​code>​ </​code>​
  
ライン 109: ライン 110:
       (set-alarms-from-file "​~/​Dropbox/​org/​trigger.org"​)))       (set-alarms-from-file "​~/​Dropbox/​org/​trigger.org"​)))
  
-    ​;;;###​autoload+  ​;;;###​autoload
   (defun set-alarms-from-file (file)   (defun set-alarms-from-file (file)
     "Make alarms from org-mode tables. If you have an org-mode file     "Make alarms from org-mode tables. If you have an org-mode file
ライン 129: ライン 130:
         (setq lines (cdr lines)))))         (setq lines (cdr lines)))))
  
-    ​;;;###​autoload+  ​;;;###​autoload
   (defun set-alarm-from-line (line)   (defun set-alarm-from-line (line)
     (let     (let
ライン 215: ライン 216:
   (defvar my:​file-ring nil)   (defvar my:​file-ring nil)
  
-   ;;;###​autoload+  ​;;;###​autoload
   (defun takaxp:​make-file-ring (files)   (defun takaxp:​make-file-ring (files)
     (setq my:​file-ring (copy-sequence files)))     (setq my:​file-ring (copy-sequence files)))
   ;;    (setf (cdr (last my:​file-ring)) my:​file-ring))   ;;    (setf (cdr (last my:​file-ring)) my:​file-ring))
   (takaxp:​make-file-ring   (takaxp:​make-file-ring
-   '​("​~/​Dropbox/​org/​work.org"​ "​~/​Dropbox/​org/​wg1.org" +   '​("​~/​Dropbox/​org/​work.org"​ "​~/​Dropbox/​org/​daily.org" "​~/​Dropbox/​org/​wg1.org" 
-     "​~/​Dropbox/​org/​research.org" "​~/​Dropbox/​emacs.d/config/init.org" +     "​~/​Dropbox/​org/research.org" "​~/​Dropbox/​emacs.d/​config/​init.org"​))
-     "​~/​Dropbox/​emacs.d/​config/​utility.org"​ "​~/​Dropbox/​org/​buffer.org"​ +
-     "​~/​Dropbox/​org/​next.org"​))+
  
-   ;;;###​autoload+  ​;;;###​autoload
   (defun takaxp:​open-file-ring ()   (defun takaxp:​open-file-ring ()
     (interactive)     (interactive)
ライン 533: ライン 532:
     (when (require '​daylight-theme nil t)     (when (require '​daylight-theme nil t)
       (mapc '​disable-theme custom-enabled-themes)       (mapc '​disable-theme custom-enabled-themes)
-      ;; (setq my:​cursor-color-ime-on "#​91C3FF"​) 
       (load-theme '​daylight t)       (load-theme '​daylight t)
-      ;; (set-face-foreground '​vertical-border (face-background '​default)) 
-      ;; (set-face-background '​vertical-border (face-background '​default)) 
       (moom-reset-font-size)))       (moom-reset-font-size)))
  
ライン 543: ライン 539:
     (interactive)     (interactive)
     (when (require '​night-theme nil t) ;; atom-one-dark-theme     (when (require '​night-theme nil t) ;; atom-one-dark-theme
-      ;;    (set-face-background '​hl-line "#​484c5c"​) 
       (mapc '​disable-theme custom-enabled-themes)       (mapc '​disable-theme custom-enabled-themes)
-      ;; (setq my:​cursor-color-ime-on "#​8599ff"​) 
       (load-theme 'night t)       (load-theme 'night t)
-      ;; (set-face-foreground '​vertical-border (face-background '​default)) 
-      ;; (set-face-background '​vertical-border (face-background '​default)) 
       (moom-reset-font-size)))       (moom-reset-font-size)))
 </​code>​ </​code>​
ライン 563: ライン 555:
     (setq str (replace-match ""​ t t str)))     (setq str (replace-match ""​ t t str)))
   str)   str)
 +</​code>​
 +
 +
 +==== iTerm2.app を呼び出す関数 ====
 +
 +<code emacs-lisp>​
 +;;;###​autoload
 +(defun my:​cmd-to-open-iterm2 ()
 +  (interactive)
 +  (shell-command-to-string "open -a iTerm2.app"​))
 +</​code>​
 +
 +==== lingr にログインする ====
 +
 +<code emacs-lisp>​
 +(defun my:​lingr-login ()
 +  (when (string= "​Sat"​ (format-time-string "​%a"​))
 +    (lingr-login)))
 +</​code>​
 +
 +==== 特定のファイルを Dropbox 以下にバックアップする ====
 +
 +<code emacs-lisp>​
 +(defun my:backup (files &​optional dropbox)
 +  "​Backup a file to `Dropbox/​backup'​ directory. If `dropbox'​ option is provided then the value is uased as a root directory."​
 +  (interactive "​P"​)
 +  (let ((system (system-name))
 +        (rootdir (or dropbox "​~/​Dropbox"​)))
 +    (if (and system
 +             ​(stringp rootdir)
 +             ​(file-directory-p (or rootdir (expand-file-name rootdir))))
 +        (mapc
 +         ​(lambda (file)
 +           (if (and (stringp file)
 +                    (file-readable-p (or file (expand-file-name file))))
 +               ​(shell-command-to-string
 +                (concat "cp -f " file " " rootdir "/​backup/"​ system "/"​))
 +             ​(message (format "--- backup failure: %s" file))))
 +         (if (listp files)
 +             files
 +           (list files)))
 +      (message (format "--- backup-dir does not exist: %s" rootdir)))))
 </​code>​ </​code>​
  
ライン 569: ライン 603:
 <code emacs-lisp>​ <code emacs-lisp>​
     ;;; Test function from GNU Emacs (O'​REILLY,​ P.328)     ;;; Test function from GNU Emacs (O'​REILLY,​ P.328)
-    ​;;;###​autoload+  ​;;;###​autoload
   (defun count-words-buffer ()   (defun count-words-buffer ()
     "Count the number of words in the current buffer"​     "Count the number of words in the current buffer"​
ライン 590: ライン 624:
        "​display dialog \"​Hello world!\"​ \r"​))))        "​display dialog \"​Hello world!\"​ \r"​))))
  
-    ​;;;###​autoload+  ​;;;###​autoload
   (defun describe-timer ()   (defun describe-timer ()
     "see http://​masutaka.net/​chalow/​2009-12-05-1.html"​     "see http://​masutaka.net/​chalow/​2009-12-05-1.html"​