app/osm.el


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

;;; app/osm.el -*- lexical-binding: t; -*-

(use-package! osm
  :bind (("C-c m h" . osm-home)
         ("C-c m s" . osm-search)
         ("C-c m v" . osm-server)
         ("C-c m t" . osm-goto)
         ("C-c m x" . osm-gpx-show)
         ("C-c m j" . osm-bookmark-jump))

  :config
  (add-to-list 'osm-server-list '(thunderforest-cycle
                                  :name "OpenCycleMap"
                                  :description "Map for cyclists, provided by Thunderforest"
                                  :url "https://%s.tile.thunderforest.com/cycle/%z/%x/%y.png?apikey=7c352c8ff1244dd8b732e349e0b0fe8d"))
  (setq osm-copyright nil)
  (setq osm-server 'thunderforest-cycle)
  (setq osm-home '(37.7775 -122.416389 14)) ; San Francisco, CA
  (set-evil-initial-state! 'osm-mode 'emacs)

  :init
  (with-eval-after-load 'org
    (require 'osm-ol)))