heikkil

  (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)

heikkil

  (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 

heikkil

  (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)

heikkil

#!/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";

heikkil

#!/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";

heikkil

#!/bin/sh
# ~/bin/feh-remove.sh
DIR=`dirname "$1"`
if [ ! -d $DIR/removed ]; then
    mkdir $DIR/removed
fi;
mv "$1" $DIR/removed

heikkil

#!/bin/sh
# ~/bin/feh-copy.sh
DIR=`dirname "$1"`
if [ ! -d $DIR/copied ]; then
    mkdir $DIR/copied
fi;
cp "$1" $DIR/copied

heikkil

;; 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"))

heikkil

     (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

heikkil

          "
        _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)))