; Dikto Klistra - sekventiell inklistring av Dikto-sektioner i TakeCare
; eller annat journalsystem.
;
; ANVANDNING
;   1. Klicka "Kopiera som ko" pa resultatsidan i Dikto (dikto.se)
;   2. Stall markoren i forsta faltet i journalsystemet
;   3. F8        = klistra nasta sektion (tooltip visar vilken)
;      Shift+F8  = backa ett steg
;      F10       = tom kon
;
; Scriptet laser ENDAST urklippet nar det innehaller Diktos ko-markor.
; Ingenting skickas nagonstans, ingenting sparas.
;
; Kraver AutoHotkey v2 (gratis, autohotkey.com). Dubbelklicka pa filen.

#Requires AutoHotkey v2.0
#SingleInstance Force

global g_queue := []
global g_titles := []
global g_idx := 0

Notify(msg) {
  ToolTip msg
  SetTimer () => ToolTip(), -2600
}

LoadQueue() {
  global g_queue, g_titles, g_idx
  txt := A_Clipboard
  if !InStr(txt, "[[DIKTO-KO]]")
    return false
  g_queue := []
  g_titles := []
  g_idx := 0
  parts := StrSplit(txt, "[[")
  for part in parts {
    p := InStr(part, "]]")
    if (p = 0)
      continue
    title := SubStr(part, 1, p - 1)
    body := Trim(SubStr(part, p + 2), " `t`r`n")
    if (title = "DIKTO-KO" || body = "")
      continue
    g_titles.Push(title)
    g_queue.Push(body)
  }
  return g_queue.Length > 0
}

PasteCurrent() {
  global g_queue, g_titles, g_idx
  saved := ClipboardAll()
  A_Clipboard := g_queue[g_idx]
  ClipWait 1
  Send "^v"
  Sleep 200
  A_Clipboard := saved
  msg := "Klistrade " g_idx "/" g_queue.Length ": " g_titles[g_idx]
  if (g_idx < g_queue.Length)
    msg .= "`nF8 for nasta: " g_titles[g_idx + 1]
  else
    msg .= "`nKon ar klar."
  Notify(msg)
}

F8:: {
  global g_queue, g_idx
  if (g_queue.Length = 0 || g_idx >= g_queue.Length) {
    if !LoadQueue() {
      if (g_queue.Length > 0 && g_idx >= g_queue.Length) {
        Notify("Kon ar klar. Kopiera en ny ko i Dikto.")
      } else {
        Notify("Ingen Dikto-ko i urklippet.`nKlicka 'Kopiera som ko' i Dikto forst.")
      }
      return
    }
    Notify("Ko laddad: " g_queue.Length " sektioner.`nF8 klistrar forsta: " g_titles[1])
    return
  }
  g_idx += 1
  PasteCurrent()
}

+F8:: {
  global g_idx
  if (g_idx <= 1) {
    Notify("Redan pa forsta sektionen.")
    return
  }
  g_idx -= 1
  PasteCurrent()
}

F10:: {
  global g_queue, g_titles, g_idx
  g_queue := []
  g_titles := []
  g_idx := 0
  Notify("Dikto-kon tomd.")
}