View org-duplicate-heading.el
(require 'dash) | |
(defun org-duplicate-heading () | |
"Move to duplicate heading in the current org buffer." | |
(interactive) | |
(let ((header-list '())) | |
(org-element-map (org-element-parse-buffer) 'headline | |
(lambda (x) | |
(let ((header (org-element-property :raw-value x)) | |
(begin (org-element-property :begin x))) | |
(when (-contains? header-list header) |
View org-clock-merge.el
(defun org-clock-merge (arg) | |
"Merge the org CLOCK line with the next CLOCK line. | |
Requires that the time ranges in two lines overlap, i.e. the | |
start time of the first line and the second time of the second | |
line are identical. | |
If the testing fails, move the cursor one line down. | |
Universal argument ARG overrides the test and merges |
View fill-or-unfill.el
(defun endless/fill-or-unfill () | |
"Like `fill-paragraph', but unfill if used twice." | |
(interactive) | |
(let ((fill-column | |
(if (eq last-command #'endless/fill-or-unfill) | |
(progn (setq this-command nil) | |
(point-max)) | |
fill-column))) | |
(if (eq major-mode 'org-mode) | |
(call-interactively #' org-fill-paragraph) |
View raw_copy
#!/usr/bin/env perl | |
use Modern::Perl; | |
use File::Find; | |
use Getopt::Long; | |
use constant PROGRAMME_NAME => 'raw_copy'; | |
use constant VERSION => '0.2'; | |
GetOptions( | |
'v|version' => sub{ print PROGRAMME_NAME, ", version ", VERSION, "\n"; |
View orphan_raw
#!/usr/bin/env perl | |
use Modern::Perl; | |
use File::Find; | |
use Getopt::Long; | |
use constant PROGRAMME_NAME => 'orphan_raw'; | |
use constant VERSION => '0.2'; | |
GetOptions( | |
'v|version' => sub{ print PROGRAMME_NAME, ", version ", VERSION, "\n"; |
View feh-remove.sh
#!/bin/sh | |
# ~/bin/feh-remove.sh | |
DIR=`dirname "$1"` | |
if [ ! -d $DIR/removed ]; then | |
mkdir $DIR/removed | |
fi; | |
mv "$1" $DIR/removed |
View feh-copy.sh
#!/bin/sh | |
# ~/bin/feh-copy.sh | |
DIR=`dirname "$1"` | |
if [ ! -d $DIR/copied ]; then | |
mkdir $DIR/copied | |
fi; | |
cp "$1" $DIR/copied |
View counsel-yank-fish-history.el
;; mod from http://blog.binchen.org/posts/use-ivy-mode-to-search-bash-history.html | |
(require 'dash) | |
(defun counsel-yank-fish-history () | |
"Yank the fish history" | |
(interactive) | |
(let (hist-cmd collection val) | |
(shell-command "history -r") ; reload history | |
(setq collection | |
(nreverse | |
(split-string (with-temp-buffer (insert-file-contents (file-truename "~/.config/fish/fish_history")) |
View elfeed-link-and-note
(use-package elfeed | |
:bind ("C-c f" . elfeed) | |
:init | |
(setq my/default-elfeed-search-filter "@1-month-ago +unread !sport ") | |
(setq-default elfeed-search-filter my/default-elfeed-search-filter) | |
:config | |
(elfeed-org) | |
;; | |
;; linking and capturing |
View gist:d79445c345e55e3cc3b5
" | |
_c_enter _q_uote _e_macs-lisp _L_aTeX: | |
_l_atex _e_xample _p_erl _i_ndex: | |
_a_scii _v_erse _P_erl tangled _I_NCLUDE: | |
_s_rc ^ ^ plant_u_ml _H_TML: | |
_h_tml ^ ^ ^ ^ _A_SCII: | |
" | |
("e" (progn (hot-expand "<s") (insert "emacs-lisp") (forward-line))) | |
("p" (progn (hot-expand "<s") (insert "perl") (forward-line))) |
NewerOlder